Типизированные файлы

Типизированными (двоичными) файлами называются дисковые файлы, состоящие из нумерованной последовательности записей (компонент) одинакового типа. Тип записей в файле задается при его объявлении. Длина каждой записи постоянна. Можно определить позицию каждой записи в файле и напрямую считать (или записать) эту запись.

Типизированные файлы полезны для временного хранения информации в процессе выполнения программы или для передачи большого объема промежуточных данных, полученных в одной программе, другой программе.

П р и м е р ы:

1. Создать файл, состоящий из записей с полями: ф. и. о. студента, номер курса и номер группы. Признаком конца вводимых записей будем считать пустую строку (пустая фамилия).

{Создание файла}

type rec = record

fio: string[20];

kurs, group: integer

End;

var zap: rec;

f: file of rec;

name: string;

Begin

writeln (‘Задайте имя файла’);

Readln (name);

assign(f,name); { связывает файловую переменную с

конкретным именем }

rewrite (f); { создает новый пустой файл }

write (‘Введите фамилию и.о. ’); readln (zap.fio);

while zap.fio <> ’’

Do begin

write (‘курс и группа ’);

Readln (zap.kurs, zap.group);

write(f, zap); { занесение содержимого записи

zap в файл в двоичном коде }

write (‘фамилия и.о.’);

Readln (zap.fio)

End;

Close (f);

writeln(‘Файл создан’)

End.

2. Выполнить просмотр ранее созданного файла, выдав на экран те записи, в которых фамилии начинаются и заканчиваются на одну и ту же букву.

{ Обработка файла }

{ фрагмент программы }

reset (f); {открыть файл для работы с ним}

while not eof(f) {проверить, не достигнут ли конец файла}