Текст подпрограммы и версий pa02r_p.zip pa02e_p.zip |
Тексты тестовых примеров tpa02r_p.zip tpa02e_p.zip |
Вычисление модуля комплексного числа.
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