Текст подпрограммы и версий
pa04r_p.zip  pa04e_p.zip  		Тексты тестовых примеров
tpa04r_p.zip  tpa04e_p.zip 

Подпрограмма:  PA04R (модуль PA04R_p)

Назначение

Вычисление показательной функции от комплексного аргумента.

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

PA04R вычисляет значение функции  ez, где  z = XR + XI i  - заданное комплексное число.

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

procedure PA04R(XR :Real; XI :Real; var YR :Real; var YI :Real); 

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

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

Unit TPA04R_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, PA04R_p;

function TPA04R: String;

implementation

function TPA04R: String;
var
XR,XI,YR,YI :Real;
R :Complex;
BЕGin
Result := '';  { результат функции }
XR := 1.0;
XI := -1.0;
PA04R(XR,XI,YR,YI);
Result := Result + Format(' %20.16f %20.16f ',[YR,YI]) + #$0D#$0A;
R := Cexp(Cmplx(1.0,-1.0));
Result := Result + Format('%20.16f %20.16f ',[R.re,R.im]) + #$0D#$0A;
UtRes('TPA04R',Result);  { вывод результатов в файл TPA04R.res }
exit;
end;

end.

Результаты:    YR  =  1.468694 ,       YI  =  - 2.287355