Возведение числа в степень

[Roberto]

Нужно возвести отрицательное число в определенную степень(3, 4, 5,....), как это сделать, подскажите пожалуйста кто знает, очень надо, может какая нибудь встроенная функция есть.. Я толко знаю такую формулу exp(x*ln(n)), но она как вы знаете может работать только с положительными числами(n>0).

[_Dmitry]

Ну, так и возводите положительное число, если степень нечетная добавляйте минус.

[Hollander]

function sqrS(a: integer; stepen: integer) : integer;
var i: integer;
begin
for I:=2 to stepen do
a:=a*a;
sqrS := a;
end;

[maLoy*508]

Можно было бы хоть язык указать....
в си есть функция pow(i,n) получим i в степени n

[Hollander]

По моему exp(x*ln(n)) - синтаксис паса

[puporev]

Function Pow(A,B:Real):Real;
{ Функция возведения в степень (A^B) }
Var T:Real;
Begin
T := Abs(A);
If A < 0 Then Pow := (-1)*Exp(B*Ln(T))
Else Pow := Exp(B*Ln(T));
End;

[Xardas]

Сообщение от puporev

Function Pow(A,B:Real):Real;
{ Функция возведения в степень (A^B) }
Var T:Real;
Begin
T := Abs(A);
If A < 0 Then Pow := (-1)*Exp(B*Ln(T))
Else Pow := Exp(B*Ln(T));
End;

А если степень четная... Тогда надо добавить условие проверки четности (или нечетности) степени после проверки на отрицательность.

[pu4koff]

в делфях есть функция power. ну если нужно на паскакале, то оттуда скомуниздить можно

[type_Oleg]

Hollander, a:=a*a в цикле будет возвращать 2-, 4-, 8- , 16 -ю степень, а не 2-, 3-, 4-, 5- ю соответственно.

[puporev]

Нужно возвести отрицательное число в определенную степень(3, 4, 5,....),

Если степень натуральное число, как приведено в примере
то так:

var a,b:real;n,i:integer;
b:=1;
for i:=1 to n do
b:=b*a;

Получаем b= а в степени n.