Текст подпрограммы и версий
pa14r_p.zip  pa14e_p.zip  		Тексты тестовых примеров
tpa14r_p.zip  tpa14e_p.zip 

Подпрограмма:  PA14R (модуль PA14R_p)

Назначение

Возведение комплексного числа в вещественную степень.

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

Подпрограмма PA14R вычисляет значение 

             a  +  b i   =   ( x  +  i y )p  ,

где  x + i y - заданное комплексное число, а  p - заданная вещественная степень.

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

procedure PA14R(X :Real; Y :Real; P :Real; var A :Real; var B :Real); 


   Параметры
     X, Y - вещественная и мнимая части заданного комплексного числа x + i y (тип: вещественный);
P - заданная степень, в которую необходимо возвести число x + i y (тип: вещественный);
     A, B - вещественные переменные, значения которых на выходе полагаются равными вещественной и мнимой частям числа (x + i y)p . 
   Версии
PA14E - возведение комплексного числа в вещественную степень в режиме расширенной (Extended) точности; при этом параметры X, Y, P, A и B должны иметь тип Extended. 
   Вызываемые подпрограммы
      PA02R -
      PA02E   		вычисление модуля комплексного числа в режимах одинарной и расширенной (Extended) точности; используются в подпрограммах PA14R и PA14E соответственно. 
   Замечания по использованию:  нет

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

Unit TPA14R_p;
interface
uses
SysUtils, Math, { Delphi }
LStruct, Lfunc, UtRes_p, PA14R_p;

function TPA14R: String; 

implementation

function TPA14R: String;
var
A,B :Real;
begin
RЕSult := '';
PA14R(4.0,3.0,3.0,A,B);
Result := Result + Format('%20.16f  %20.16f ',[A,B]) + #$0D#$0A;
UtRes('TPA14R',Result);  { вывод результатов в файл TPA14R.res }
exit;
end;

end.

Результаты:   A  =  - 44 ,  B  =  117