Текст подпрограммы и версий
pa03r_p.zip  pa03e_p.zip  		Тексты тестовых примеров
tpa03r_p.zip  tpa03e_p.zip 

Подпрограмма:  PA03R (модуль PA03R_p)

Назначение

Вычисление квадратного корня из комплексного числа.

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

PA03R вычисляет квадратный корень из комплексного числа  y = XR + XI i .

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

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

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

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

Unit TPA03R_p;
interface
uses
SysUtils, Math, { Delphi }
Lstruct, Lfunc, UtRes_p, PA03R_p;

function TPA03R: String;

implementation

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

end.

Результаты:    YR  =  4.0 ,     YI  =  0.0