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

Типизованный файл - это последовательность данных одного типа (базового). Его описание:

Базовый тип может быть любым за исключением файлового и структурированного с компонентами файлового типа.

Данные в типизованных файлах хранятся в машинном представлении.

При работе с типизованными файлами ввод-вывод выполняется процедурами read(f,<список переменных>), write(f,<список переменных >). Все переменные в списках ввода и вывода должны иметь базовый тип файла.

Запись типизованного файла представляет собой машинное представление значения базового типа файла. При чтении и записи значения базового типа указатель файла смещается к следующей записи.

Пример 3. В файле записаны квадратные матрицы 3-го порядка. Сохранить в файле с таким же именем только первые строки каждой из матриц данного файла.

Type t_row=array[1..3] of real;

t_matr=array[1..3] of t_row;

Var f_matr:file of t_matr;

f_row:file of t_row;

a:t_matr;

s:string;

Begin write(‘ Введите имя файла матриц ’); readln(s);

Assign(f_matr, s);

Assign(f_row, ’temp’);{temp - временный внешний файл}

Reset(f_matr);

Rewrite(f_row);

while not Eof(f_matr) do

begin

read(f_matr, a);

Rewrite(f_row, a[1])

end;

Close(f_marr);

Close(f_row);

Erase(f_matr);

Rename(f_row, s)

End.