рекурсионная функцию формулы х Опции

[maksimla]

надо написать рекурсионную функцию pow(x, n), находящюю х в n степени по формуле


здесь х реальное число а n натуральное число

вот написал чтото

function pow (x,n:real):real;
var m:real; i,p:integer;
begin
p:=abs(trunc(n));
if x=0 then pow(1,p);
if x<0 then
begin
m:=x;
 for i:= 1 to p-1 do
x:=x*m;
pow(1/x,p)
end;
if x>0 then
 begin
m:=x;
 for i:= 1 to p-2 do
x:=x*m;
pow(x*x,p)
end;
end;

а может есть чтобы цыкл неписать какбы написать sqr(x)?
и я правильно написал функцию?

[volvo]

А тебе здесь по определению цикл не надо делать, иначе какая ж это рекурсия? Вот так попробуй:

function pow(x: real; n: integer): real;
begin
  if n = 0 then pow := 1
  else
    if n < 0 then pow := 1 / pow(x, abs(n))
    else pow := x * pow(x, n - 1);
end;

, по-моему, должно быть правильно...