Реферат: Файлы в языке 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, содержащее количество компонентов файла:

К-во Просмотров: 302
Бесплатно скачать Реферат: Файлы в языке Turbo Pascal