Текст подпрограммы и версий
pa01r_p.zip  pa01e_p.zip  		Тексты тестовых примеров
tpa01r_p.zip  tpa01e_p.zip 

Подпрограмма:  PA01R (модуль PA01R_p)

Назначение

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

Математическое описание

PA01R делит комплексное число X = XR + XI i  на комплексное число Y = YR + YI i .

Использование 

procedure PA01R(XR :Real; XI :Real; YR :Real; YI :Real; var ZR :Real;
                var ZI :Real);


   Параметры
XR, XI - действительная и мнимая часть делимого  X (тип: вещественный);
YR, YI - действительная и мнимая части делителя  Y (тип: вещественный);
ZR, ZI - вещественные переменные, значения которых полагаются равными действительной и мнимой части результата. 
   Версии
PA01E - деление комплексных чисел в режиме расширенной (Extended) точности. При этом параметры XR, XI, YR, YI, ZR и ZI должны иметь тип Extended. 
   Вызываемые подпрограммы:  нет 
   Замечания по использованию:  нет

Пример использования 

Unit TPA01R_p;
interface
uses
SysUtils, Math, { Delphi }
LStruct, Lfunc, UtRes_p, PA01R_p;

function TPA01R: String;

implementation

function TPA01R: String;
var
XR,XI,YR,YI,ZR,ZI :Real;
begin
RЕSult := '';
XR := 1.0;
XI := 2.0;
YR := 3.0;
YI := 4.0;
PA01R(XR,XI,YR,YI,ZR,ZI);
Result := Result +
Format('%20.16f  %20.16f  %20.16f  %20.16f  %20.16f  %20.16f ',
[XR,XI,YR,YI,ZR,ZI]) + #$0D#$0A;
UtRes('TPA01R',Result);  { вывод результатов в файл TPA01R.res }
exit;
end;

end.

Результаты:    ZR  =  0.44 ,      ZI  =  0.08