VPF::Файлы на паскале - Форум программистов

Веталька

Дата 30.11.2008, 00:08 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 338
Регистрация: 2.11.2008

Репутация: нет
Всего: 6

подскажите как прочитать целые числа с файла
пробовал так но неполучается:(

Код


Program task2;

const n = 10;
var a: array [1..100] of integer;
    i: integer;
    F,F2:file of text;
begin


assign (f,'D:\dat.txt');
assign (f2,'D:\data2.txt');
reset(f);
rewrite(f2);

while not eof(f) do
begin
for i:=1 to 100 do
begin
read(f,a[i]);
end;
end;



close(f);
close(f2);
writeln('готово');
readln
end.

и по возможности как правиль цыкл задачь чтоб i было не 100 а равнялось количеству елементов файла?

--------------------

Ради зачета студент идет на все, даже на лекции........................

Brilona

Дата 30.11.2008, 08:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 54
Регистрация: 8.7.2008

Репутация: нет
Всего: 3

Вот так работает ))

Код


var f,f2:text;
    a:array[1..100] of integer;
    i:integer;

begin
     assign(f,'D:\dat.txt');
     assign(f2,'D:\dat2.txt');
     reset(f);
     rewrite(f2);
     i:=0;
     while not eof(f) do
     begin
          read(f,a[i]); {считываем из файла}
          writeln(f2,a[i]:5); {записываем в файл}
          i:=i+1;
     end;
     close(f);
     close(f2);
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »