Типизованный файл - это последовательность данных одного типа (базового). Его описание:
Базовый тип может быть любым за исключением файлового и структурированного с компонентами файлового типа.
Данные в типизованных файлах хранятся в машинном представлении.
При работе с типизованными файлами ввод-вывод выполняется процедурами 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.
