Procedure AddC(c1,c2: Complex; var C: Complex);

Сложение:

Procedure AddC(c1,c2: Complex; var C: Complex);

begin

c.Re:=c1.Re+c2.Re;

c.Im:=c1.Im+c2.Im;

end;

Умножение:

Procedure MulC(c1,c2: Complex; var C: Complex);

begin

c.Re:=c1.Re*c2.Re-c1.Im*c2.Im;

c.Im:=c1.Re*c2.Im+c1.Im*c2.Re;

end;

Деление:

Procedure DivC(c1,c2: Complex; var C: Complex);

begin

c.Re:=(c1.Re*c2.Re-c1.Im*c2.Im)/(sqr(c2.Re)-sqr(c2.Im));

c.Im:=c1.Re*c2.Im+c1.Im*c2.Re/(sqr(c2.Re)-sqr(c2.Im));

end;

Также была создана процедура вычисления эквивалентного сопротивления двух параллельных ветвей:

Procedure Par(c1,c2: Complex; var C: Complex);

var m,a: Complex;

begin

AddC(c1,c2,a);

MulC(c1,c2,m);

DivC(m,a,C);

end;

Дата добавления: 2015-10-21