Лабораторный практикум по программированию на языке Паскаль. Найханова Л.В - 86 стр.

UptoLike

86
Read(F, Fam, Name, Otch);
Write(Fam:16, Name:11, Otch:15);
end;
close(F);
End.
12.5. Типизированные файлы
Компоненты этого файла могут быть следующих типов:
базового: byte, word, longint, integer, real, запись, char, string;
структурного;
регулярного.
При этом все компоненты файла имеет один и тот же тип. Это означает, что длина
компоненты фиксирована.
Объявляется такой файл в программе следующим образом :
Var
F1 : File of byte;
F2 : File of string[80];
F3 : File of real;
. . .
F : File of RecFile;
Здесь F1, F2, F3, F - это файловые переменные, которые указывают на файлы, компонеты
которых соответственно являются типа byte, string, real и record.
Чтение компонент файла выполняется процедурой:
Read(< ф.п.>, < список ввода >);
Запись компонент в файл выполняется процедурой:
Write(< ф.п.>, < список вывода >);
Пример:
Var
X, Y : array[1..100] of integer; { массивы координат }
F : file of real;
i : byte;
Begin
. . .
< операторы по вводу 100 значений координат X, Y >
. . .
Assign(F, 'Coor.dat'); { файл будет создаваться в текущем каталоге }
ReWrite(F); { открытие файла для записи }
For i:= 1 to 100 do
Write(F, X[i], Y[i]); { запись координат в файл }
Close(F);
End.
В приведенном фрагменте программы координаты записаны последовательными парами X,
Y. При такой организации файла происходит частое обращение к внешнему носителю, это
приводит к замедлению работы программы, что особенно заметно при работе с большими
объемами данных. Поэтому рекомендуется данные записывать в файл и считывать из
файла большими блоками, примерно кратными 512 байтам.
Согласно этому модифицируем программу следующим образом:
Type
Coord = array[1..100] of integer; { массивы координат }
. . .
Var
              Read(F, Fam, Name, Otch);
              Write(Fam:16, Name:11, Otch:15);
       end;
       close(F);
End.

12.5. Типизированные файлы
Компоненты этого файла могут быть следующих типов:
базового: byte, word, longint, integer, real, запись, char, string;
структурного;
регулярного.
При этом все компоненты файла имеет один и тот же тип. Это означает, что длина
компоненты фиксирована.
Объявляется такой файл в программе следующим образом :
Var
       F1 : File of byte;
       F2 : File of string[80];
       F3 : File of real;
       ...
       F : File of RecFile;
Здесь F1, F2, F3, F - это файловые переменные, которые указывают на файлы, компонеты
которых соответственно являются типа byte, string, real и record.
Чтение компонент файла выполняется процедурой:
         Read(< ф.п.>, < список ввода >);
Запись компонент в файл выполняется процедурой:
         Write(< ф.п.>, < список вывода >);

Пример:
Var
      X, Y : array[1..100] of integer; { массивы координат }
      F : file of real;
      i : byte;
Begin
      ...
      < операторы по вводу 100 значений координат X, Y >
      ...
      Assign(F, 'Coor.dat'); { файл будет создаваться в текущем каталоге }
      ReWrite(F); { открытие файла для записи }
      For i:= 1 to 100 do
      Write(F, X[i], Y[i]); { запись координат в файл }
      Close(F);
End.
В приведенном фрагменте программы координаты записаны последовательными парами X,
Y. При такой организации файла происходит частое обращение к внешнему носителю, это
приводит к замедлению работы программы, что особенно заметно при работе с большими
объемами данных. Поэтому рекомендуется данные записывать в файл и считывать из
файла большими блоками, примерно кратными 512 байтам.
Согласно этому модифицируем программу следующим образом:
Type
      Coord = array[1..100] of integer; { массивы координат }
      ...
Var

                                                                                 86