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

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


  {просмотр файла complex.1}
  type t=record {объявление типа данных "запись"}
    re: real; {вещественная часть}
    im: real; {мнимая часть}
  end;
  var
    a: t; {объявление переменной типа "запись"}
    f: file of t; {объявление файловой переменной с компонентами типа
"запись"}
  begin
    writeln(' содержимое файла complex1.txt ');
    writeln(' ----------------------------------- ');
    Assign( f, 'D:\Общая\complex1.txt ');
    Reset (f); {открыть файл для чтения}
While not EOF(f) do {пока не достигнут конец файла}
       begin
          read (f, a);
          writeln (a.re, ' ' , a.im);
       end;
    Close (f); {закрыть файл}
    writeln (' ----------------------------------- ');
    readln;
  end.




   Лабораторная работа №14
    Вычисления с хранением последовательностей, число членов кото-
                      рых зависит от исходных
                                 данных
1) Даны натуральное число n и действительные числа а1, а2, …, аn. Если
последовательность упорядочена по неубыванию, то оставить ее без из-
менений, иначе получить последовательность
аn, аn-1, …, а1.

2) Даны натуральное число n и действительные числа а1, а2, …, а2n. Полу-
чить:
а) (a1 − a 2 n )(a3 − a 2 n − 2 )(a5 − a 2 n − 4 )...( a 2 n −1 − a 2 ) ;



                                    53