Забыл африфметическую операцию для возведения в N'ую степень

[pro100-delphi]

Я знаю мне должно быть стыдно, но я забыл африфметическую операцию для возведения в N'ую степень. Просто её непомню. Напомните, заранее спс.

P.S.
не надо говорить, что это можно сделать циклом. Мне нужна именно она.

[Stepler]

Function Pow(A,B:extended):extended;
Var T:extended;
Begin
     T := Abs(A);
     If A < 0 Then Pow := (-1)*Exp(B*Ln(T))
              Else Pow := Exp(B*Ln(T));
End;

[Mixasik]

В модуле math находится называется power(это в Delphi) в паскале такой функции нет, я всегда считал используя свойство натурального логарифма.

Pow := Exp(step*Ln(abs(chislo)));

exp() = значит экспонента в степени. Только необходимо доработать с учетом четности нечетности степени для отрицательных чисел.

Или вот нашел полный вариант на просторах интернета:

function power(Base, Exponent: Extended): Extended; 
var ex: extended; 
begin 
  power := 0; 
  if (exponent <> 0) 
    and (frac(trunc((1 / exponent) * 1000000) / 1000000) = 0) 
    and (base < 0) then 
    begin 
      if round(1 / exponent) mod 2 = 0 then exit; 
      ex := Exp(Exponent * Ln(-Base)); 
      power := -ex; 
    end 
  else 
    begin 
      if Exponent = 0.0 then 
        power := 1.0 
      else if (Base = 0.0) and (Exponent > 0.0) then 
        power := 0.0 
      else if (Frac(Exponent) = 0.0) and (Abs(Exponent) <= MaxInt) then 
        power := IntPower(Base, Integer(Trunc(Exponent))) 
      else 
        power := Exp(Exponent * Ln(Base)) 
    end; 
end;

[pro100-delphi]

Mixasik, Pow := Exp(step*Ln(abs(chislo))); - это то, что мне нужно. Спасибо. Просто учитель по информатике, когда то это давал, а я забыл))

[pro100-delphi]

спасибо всё помогли

[puporev]

Pow := Exp(step*Ln(abs(chislo)));

Вам написал Stepler правильно, Вы все равно по своему. Сколько будет по вашей формуле (-3)^3 ? Правильно 27. А на самом деле -27.