Практикум по решению задач на ЭВМ. Тарова И.Н - 51 стр.

                   Практикум по решению задач на ЭВМ


       begin
         write('->');
         readln(n);
         writeln(f,n);
       end;
    close (f); {закрыть файл}
    writeln ('Введенные числа дабавлены в файл', 'D:\Общая\numbers.txt');
    readln;
  end.




                                Типизированные файлы
4) Просмотр созданного файла.
   {выводит на экран содержимое файла D:\Soft\ number.txt }
   uses CRT;
   var
     f: text; { текстовый файл }
     n: integer; { число }
   begin
     clrscr;
     writeln('содержимое файла D:\Общая\ numbers.txt');
     writeln('-----------------------------------');
     Assign(f, 'D:\Общая\numbers.txt');
     Reset(f); {открыть файл для чтения}
While not EOF(f) do {пока не достигнут конец файла}
         begin
           readln(f,n); {прочитать число из файла}
     writeln(n); {вывести прочитанное число на экран}
         end;
     Close(f); { закрыть файл }
     writeln('-----------------------------------');
     readln;
   end.




                                    51