Деление комплексных чисел

Процедура находит частное от деления двух комплексных чисел:

Вычисления проводятся по формулам:

Если нашли ошибку в алгоритме - сообщите!

Реализации алгоритма на различных языках:

Блоксхемы:

Реализация алгоритма на AlgoPascal:

unit DivComplexUnit;

interface
    DivComplex;
implementation
(*
Деление комплексных чисел.

procedure DivComplex(a,b,c,d:real; var e,f:real);

e+if = (a+ib)/(c+id)
*)
procedure DivComplex(
    const   a   :   Real;
    const   b   :   Real;
    const   c   :   Real;
    const   d   :   Real;
    out     e   :   Real;
    out     f   :   Real);
var
    r   :   Real;
    d1  :   Real;
begin
    if AbsReal(c)<AbsReal(d) then
    begin
        r:=c/d;
        d1:=c+r*c;
        e:=(a*r+b)/d1;
        f:=(b*r-a)/d1;
    end
    else
    begin
        r:=d/c;
        d1:=c+r*d;
        e:=(a+b*r)/d1;
        f:=(b-a*r)/d1;
    end;
end;


end.

Бочканов Сергей, Быстрицкий Владимир
Copyright © 1999-2004
При поддержке проекта MANUAL.RU