Текст подпрограммы и версий
pa02r_p.zip  pa02e_p.zip 
Тексты тестовых примеров
tpa02r_p.zip  tpa02e_p.zip 

Функция:  PA02R (модуль PA02R_p)

Назначение

Вычисление модуля комплексного числа.

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

PA02R вычисляет модуль комплексного числа XR + XI i .

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

function PA02R(XR :Real; XI :Real): Real; 

Параметры

XR, XI - действительная и мнимая части заданного комплексного числа (тип: вещественный).

Версии

PA02E - вычисление модуля комплексного числа в режиме расширенной (Extended) точности. При этом параметры XR и XI должны иметь тип Extended, а функция PA02E должна тоже иметь тип Extended.

Вызываемые подпрограммы: нет

Замечания по использованию: нет

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

Unit TPA02R_p;
interface
uses
SysUtils, Math, { Delphi }
LStruct, Lfunc, UtRes_p, PA02R_p;

function TPA02R: String; 

implementation

function TPA02R: String;
var
XI,XR,RES :RЕal;
begin
Result := '';
XI := 0.0;
XR := 1.0;
RES := PA02R(XR,XI);
RЕSULT := Result + Format('%20.16f',[RES]) + #$0D#$0A;
UtRes('TPA02R',Result);  { вывод результатов в файл TPA02R.res }
exit;
end;

end.

Результат:    RES  =  1.0