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

Длина любого компонента типизированного файла постоянна, что дает возможность организовать прямой доступ к каждому компоненту. Перед первым обращением к процедурам ввода/вывода указатель файла указывает на компоненту с номером 0. После каждого чтения или записи указатель перемещается на следующую компоненту. Переменные в списках ввода/вывода должны иметь тот же тип, что и компоненты файла. Если этих переменных в списке несколько, то указатель будет смещаться на соответствующее количество компонент после каждой операции обмена данными между переменными и дисковым файлом. Такой доступ называется последовательным к компонентам файла. В Turbo Pascal имеется возможность организовать прямой доступ к каждой компоненте c помощью процедуры SEEK.

Чтение очередных компонентов файла осуществляется с помощью процедуры READ (<файловая переменная>, <список ввода>);

Список ввода содержит одну или более переменных такого же типа, что и компоненты файла.

Файловая переменная должна быть объявлена предложением FILE OF… и связана с именем файла процедурой ASSIGN. Файл необходимо открыть процедурой RESET.

Для записи данных в типизированный файл используется процедура

WRITE (<файловая переменная>, <список вывода>);

Список вывода содержит одно или более выражение того же типа, что и компоненты файла.

Файловая переменная должна быть объявлена предложением FILE OF… и связана с именем файла процедурой ASSIGN. Файл необходимо открыть процедурой REWRITE или RESET.

Например: Составить программу для ввода 20 вещественных чисел и записи их в виде файла на диске.

Program Word;

Const n=20;

Var

f: file of real;

a: real;

i: byte;

BEGIN

Assign (f, ‘e:\pz961\lpc.txt’);

Rewrite (f);

for i:=1 to n do

Begin

Writeln (‘Введите’ ,i,’-ое число‘);

Readln (a);

Write (f,a);

End;

Close (f);

END.