home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 02 / t12.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-02-05  |  433 b   |  19 lines
  1. program t12;
  2. const fac=4;
  3. type complex=record er,im:integer end;
  4. var x,y:complex;
  5.     n:integer;
  6.  
  7. begin
  8.   x.er:=2;x.im:=7;y.er:=6;y.im:=3;
  9.   for n:=1 to 4 do
  10.    begin
  11.      writeln(' x = ',x.er:3,x.im:3,'   y = ',y.er:3,y.im:3);
  12.      writeln(' Sum = ',x.er+y.er:3,x.im+y.im:3);
  13.      writeln(' produkt = ',x.er*y.er-x.im*y.im:3,x.er*y.im+x.im*y.er:3);
  14.      writeln;
  15.      x.er:=x.er+fac; x.im:=x.im-fac;
  16.    end;
  17. end.
  18.  
  19.