Паскаль в примерах. Иринчеев А.А - 72 стр.

     writeLN;
     write(' ':20, fio);
     writeln(sgl) ;
      for J:=1 to 15 do writeln;
 READLN
end.

                                      2.25. Файлы

      Удобным способом сохранения информации, полученной в ходе выполнения програм-
мы, служит запись этой информации на магнитный носитель. Запись особенно желательна,
если объем информации велик, предусмотрена использование в дальнейшем эту информа-
цию, а также при использовании определенной базы данных для расчета.
     В Паскале предусмотрены специальные объекты – файлы, операции над которыми сво-
дится к работе с носителями информации.
      Файл – это последовательность компонент, являющихся объектами одного и того же
типа. Количество компонент в файле заранее не оговаривается, компоненты файла не имеют
индексов. До некоторой компоненты можно добраться, только перебрав по очереди все.
Описание, имеющее вид
      V=file of integer
      Это описание типа, имя которого V. Объектами типа V будут файлы с целочисленными
компонентами.
      Операции над файлы – запись в файл. Пусть С – имя рассматриваемого файла, и пусть а
– переменна того типа, объектами которого являются компоненты файла.
      Запись в файл возможен, когда файл открыт. При соблюдении этого условия выполне-
ние оператора write(C.a) приведет к тому, что в файл будет записана еще одна компонента,
равная значению переменной а. Перед выполнением оператора write(C.a) проверяется, опи-
сан идентификатор С как переменная, значением которой должен быть файл. Если да, то
происходит запись в файл, иначе оператор write(C.a) выполняется как обычный оператор вы-
вода. Это же касается оператора read(C.a)
      Пример. Пусть а – файл, компонентами которого могут быть целые числа. Приведем
фрагмент программы, обеспечивающий запись в а квадрат ста первых натуральных числе:
      Rewrite(a); {служебное слово, для записи в файл}
       For I:=1 to 100 do
        Begin
         j:=sqr(i);
         write(f,j);
        end
      переменные I и j должны быть типа integer.
      Операции над файлы – чтение из файл. Если файл не пуст, то начинается чтение из
файла исходной информации, если файл пуст – то при чтении указывается признак конца
файла.
      Пример 57. Фрагмент программы, обеспечивающей чтение из файла С, компонентами
которого служат действительные числа, всех его компонент и вычисление суммы их квадра-
тов.
      reset(c); {операции над файлы –чтение файла}
       s:=0;
        while not eof(c) do
          begin
           read(c,t);
            s:=s+sqrt(t);
          end

                                                                                       72