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

                              Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


  3) Написать программу, которая на диске D: создаст файл numbers.txt
     и запишет в него 5 введенных пользователем отдельных числа. Про-
     смотреть при помощи редактора текста созданный файл. Убе-
     диться, что каждое число находиться в отдельной строке.

   {Создает на диске D: файл и записывает в него 5
   целых чисел, введенных пользователем}
   uses CRT;
   var
     f: text; {Текстовый файл}
     n: integer; {число}
     i: integer; {счетчик чисел}
   begin
     clrscr;
     writeln('создание файла');
     writeln('Введите пять целых чисел');
writeln('После ввода каждого числа нажимайте ');
     Assign (f,'D:\Общая\numbers.txt');
     Rewrite (f); {открыть в режиме записи}
     for i:=1 to 5 do
         begin
           write('->');
           readln(n);
           writeln(f,n);
         end;
     close (f); {закрыть файл}
     writeln ('Введенные числа записаны в файл', 'D:\Общая\numbers.txt');
     readln;
   end.
   {записывает в файл D:\Soft\numbers.txt 5 введенных пользователем це-
лых чисел}
   var
     f: text; {Текстовый файл}
     n: integer; {число}
     i: integer; {счетчик чисел}
   begin
     writeln('добавление в файл D:\Soft\numbers.txt');
     writeln('Введите пять целых чисел');
     writeln('После ввода каждого числа нажимайте ');
     Assign(f,'D:\Общая\numbers.txt'); {связывание файловой переменной a
с файлом}
     Append(f); {открыть файл в режиме добавления}
     for i:=1 to 5 do


                                   50