Pascal jednotka - Komplexní čísla

unit KOMPLEXC;

{$mode objfpc}{$H+}

interface
  uses math;
  type KOMPLEX = record a,b:integer;
                 end;
  procedure napisK(A:KOMPLEX);
  procedure novyK(var A:KOMPLEX);
  procedure soucetK(A,B:KOMPLEX; var C:KOMPLEX);
  procedure soucinK(A,B:KOMPLEX; var C:KOMPLEX);
  procedure pruhK(A:KOMPLEX; var B:KOMPLEX);
  procedure rozdilK(A,B:KOMPLEX; var C:KOMPLEX);
  procedure gonK(A:KOMPLEX);

implementation

 procedure napisK(A:KOMPLEX);
 begin
   write('z = ',A.a,' + ', A.b,'i');
 end;

 procedure novyK(var A:KOMPLEX);
 begin
   writeln('z = a + bi');
   write('a = '); readln(A.a);
   write('b = '); readln(A.b);
   napisK(A); writeln; writeln;
 end;

 procedure soucetK(A,B:KOMPLEX; var C:KOMPLEX);
 begin
   C.a := A.a + B.a;
   C.b := A.b + B.b;
 end;

 procedure soucinK(A,B:KOMPLEX; var C:KOMPLEX);
 begin
   C.a := (A.a*B.a) - (A.b*B.b);
   C.b := (A.a*B.b) + (B.a*A.b);
 end;

 procedure pruhK(A:KOMPLEX; var B:KOMPLEX);
 begin
   B.a := A.a; B.b := -A.a;
 end;

 procedure rozdilK(A,B:KOMPLEX; var C:KOMPLEX);
 begin
   C.a:= A.a-B.a; C.b:= A.b - B.b;
 end;

 Procedure gonK(A:KOMPLEX);
 Begin
   NapisK(A);
   Write(' = ',sqrt((A.a*A.a)+(A.b*A.b)):0:3,'*(cos(',
         (arctan(A.b/A.a)*180/PI):0:3,')+isin(',
         (arctan(A.b/A.a)*180/PI):0:3,'))');
 end;
end.