Возвести отрицательное число в дробную степень

[Serge_Bliznykov]

в том и дело что в данном случаи подобрать не получается

программу на вашем планшете писали идиоты, не знающие математики.
но, если Вам нужно получать такие же бессмысленные ответы, то это просто

берите модуль числа (функция ABS()) вычисляйте через Power степень и присваивайте результату знак исходного числа:

if x<0 
  then Result := -1.0 * Power(abs(x), y)  
  else Result := Power(abs(x), y);

например:

function BadPower(x,y:Extended) : extended;
begin
  if x<0
    then Result := -1.0 * Power(abs(x), y)
    else Result := Power(abs(x), y);
end;

var
  x,y:Extended;
begin
  x := -0.3;
  y := 0.5;
  WriteLn(' power = ', BadPower(x,y):1:8);
  Readln
end.

[Вовкин]

На сколько я понял:
1. Проблему можно решить только с помощью комплексных чисел.
2. Готового решения или алгоритма нет.
3. Мой калькулятор считает скорее всего модуль числа и затем ставит знак основания.
что вроде
procedure TForm1.Button2Click(Sender: TObject);
var R,X,n:Double;
A:ShortInt;
begin
X:=-0.3;
n:=-0.5;
if X<0 then
begin
A:=-1;
X:=Abs(X);
end
else
A:=1;
R:=A*Power(X,n);
ShowMessage(FormatFloat('0.00000',R ));
end;

или этого
function BadPower(x,y:Extended) : extended;
begin
if x<0
then Result := -1.0 * Power(abs(x), y)
else Result := Power(abs(x), y);
end;

var
x,y:Extended;
begin
x := -0.3;
y := 0.5;
WriteLn(' power = ', BadPower(x,y):1:8);
Readln
end.

Но с точки зрения математики это не правильно.
Как то так! Всем спасибо за помощь. Почитаю про комплексные числа. Если кто надет готовое решение напишете!

[Аватар]

Вот тот юнит VarCmplx, который упоминался выше и поможет сделать готовое решение в комплексных числах