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

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



5) Написать программу, которая создает файл complex1.txt и записывает
в него 5 комплексных чисел (действительную и мнимую часть)

  {создание файла complex.1}
  uses CRT;
  type t=record {объявление типа данных "запись"}
    re: real; {вещественная часть}
    im: real; {мнимая часть}
  end;
  var
    a: t; {объявление переменной типа "запись"}
    i: integer; {счетчик чисел}
    f: file of t; {объявление файловой переменной с компонентами типа
"запись"}
  begin
    clrscr;
    writeln(' создание файла ');
    writeln(' Введите пять комплексных чисел ');
    writeln('после каждого числа нижмите  ');
    Assign( f, 'D:\Общая\complex1.txt ');
    Rewrite (f);
    for i:=1 to 5 do
        begin
          write (' -> ');
          read (a.re, a.im);
          write (f,a);
        end;
    Close (f);
    writeln ('Данные числа записаны в файл', 'D:\Soft\complex1.txt ');
    readln;
  end.




  6) Написать программу, которая выводит на экран содержимое файла
complex1.txt.



                                  52