Реферат: Файлы в языке Turbo Pascal
begin
assign (f4,'f4. dat');
reset (f4); {Откpыть файл по чтению}
sg: =0; k: =0; max: =0;
while not eof (f4) do {Пока не конец файла}
with ved do
begin
read (f4,fam); {Чтение файла}
readln (f4,fiz,mat,prog);
ss: =(fiz+mat+prog) /3; {Вычисляем сpедний балл
каждого студента}
if ss>max then {Опpеделяем фамилию студента}
begin { с максимальным сpедним баллом}
max: =ss;
maxfam: =fam;
end;
sg: =sg+ss;
k: =k+1
end;
sg: =sg/k;
writeln('Сpедний балл в гpуппе=',sg);
writeln('Максимальный сpедний балл у студента', maxfam)
end.
Как уже отмечалось текстовые файлы являются файлами последовательного доступа: к каждой строке возможен лишь последовательный доступ, начиная с первой. Типизированные же файлы содержат компоненты строго постоянной длины, что дает возможность организовать прямой доступ к каждому компоненту. Для этой цели служит встроенная процедура seek:
seek(<ф. п. >,<n компонента>)
Здесь <n компонента> – выражение типа longint, указывающее номер компонента.
Файловая переменная должна быть объявлена предложением file of и связана с именем файла процедурой assing. Файл необходимо открыть процедурой rewrite или reset. Для чтения и записи в типизированный файл используются известные процедуры read и write.
Специфика использования двух последних процедур при работе с типизированными файлами состоит в том, что список ввода содержит одну или несколько переменных такого же типа, что и компонент файла, а список вывода – одно или несколько выражений такого же типа, что и компонент файла.
Функция filesize возвращает значение типа longint, содержащее количество компонентов файла: