Page 55 - 4260

Result.Re:=x.Re + y.Re;
Result.Im:=x.Im + y.Im;
end; // Addc

function Subc(x,y: Tcomplex):Tcomplex;
begin
Result.Re:=x.Re - y.Re;
Result.Im:=x.Im - y.Im;
end; // Subc

function Multc(x,y: Tcomplex):Tcomplex;
begin
Result.Re:=x.Re*y.Re - x.Im*y.Im;
Result.Im:=x.Re*y.Im + x.Im*y.Re;
end; {Multc}

function Divc(x,y: Tcomplex):Tcomplex;
var z: Real;
begin
z:=sqr(y.Re)+sqr(y.Im);
try
// Захист при розподілі на 0
Result.Re:=(x.Re*y.Re + x.Im*y.Im)/z;
Result.Im:=(x.Re*y.Im - x.Im*y.Re)/z;
except
// Якщо дільник 0, те
Result.Re:=1.1e309;
Result.Im:=1.1e309
end;
end; {Divc}

end.

Лістинг модуля форми програми

unit Prg_13_1_;

interface
uses

55