модуль комплексных чисел

UNIT Cmplx;
INTERFACE

  complex = class {object}
  x,y,x_mn,y_mn:real;
  constructor create (x,y,x_mn,y_mn:real);
  procedure vivod;

  function AddM(x,y:real):real; {А если мы хоти фунцию без формальных параметров, можно? все-равно все методы объекта работают с полями объекта??}
  function SubM(x,y:real):real; {т.е запись такого вида :function SubM():real; }
  Function MulM(x,y,x_mn,y_mn:real):real;
  Function DivM(x,y,x_mn,y_mn:real):real;

  function AddR(x,y:real):real;
  function SubR(x,y:real):real;
  function MulR(x,y,x_mn,y_mn:real):real;
  Function DivR(x,y,x_mn,y_mn:real):real;
end;


IMPLEMENTATION
Begin

constructor complex.create(x1,y1,x_mn1,y_mn1:real);
begin
  x :=x1;
  y :=y1;
  x_mn := x_mn1;
  y_mn :=y_mn1
end;


procedure complex.vivod;
begin
WriteLn('Сложение: 'complex.AddR:5:1, complex.AddM:5:1,'i') ;
WriteLn('Вычитание: 'complex.SubR:5:1, complex.SubM:5:1,'i');
WriteLn('Умножение: 'complex.MulR:5:1, complex.MulM:5:l,'i') ;
WriteLn('Деление: 'complex.DivR:5:l, complex.DivM:5:1,'i');
end;

Function complex.AddM(x,y:real):real;
begin
AddM := x + y
end {AddC};

function complex.AddR(x,y:real):real;
begin
AddR := x + y;
end {AddC};

Function complex.SubM(x,y:real):real;
begin
z.re := x.re - y. re ;
SubM:= x - y
end {SubC};

function complex.SubR(x,y:real):real;
begin
SubR:= x - y;
end {SubC};

Function complex.MulR(x,y,x_mn,y_mn:real):real;
begin
z:= x*y - x_mn*y_mn;
end {MulC};

Function complex.MulM(x,y,x_mn,y_mn:real):real;
begin
z_mn:= x*у_mn + x_mn*y
end {MulC};

Function c(x,y,x_mn,y_mn:real):real;
var
zz : real;
begin
zz := sqr(y) + sqr(y_mn);
DivM := (x * y_mn - x_mn * y) / zz
end {DivC};

Function complex.DivR(x,y,x_mn,y_mn:real):real;
var
zz : real;
begin
zz := sqr(y) + sqr(y_mn);
DivR := (x * y + x_mn * y_mn) / zz;
end {DivC};

end.