double arrow

Определение номера элемента


Функция FilePos(<имя файловой переменной>)возвращает номер элемента, на который «смотрит» файловый указатель.

Определение количества элементов в файле

Функция FileSize(<имя файловой переменной>)возвращает количество элементов в файле.

Удаление и переименование файлов

Erase(<имя файловой переменной>) процедура удаления файла.

Rename(<имя файловой переменной>,’<новое имя на диске>’) переименование файла.

Пример :В файле DAT1.DAT записаны целые числа. Вычислить сумму элементов файла и результат вместе с исходными данными записать в файл DAN2.DAT

Program WW;

Varf1,f2 : file of integer;

s, n : integer;

Begin

Assign(f1,’DAT1.DAT’);

Reset(F1);

Assign(f2,’DAT2.DAT’);

Rewrite(f2);

s:=0;

While Not Eof(f1) do { проверка на конец файла}

Begin

read(f1,n); {чтение элемента из файла F1}

write(f2,n); { запись элемента в файл F2}

s:=s+n;

end;

write(f2,s); {запись суммы элементов в конец файла F2}

write(‘Результат находится в файле DAT2.DAT’);

Close(f1);

Close(f2);

End.







Сейчас читают про: