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

[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]

Смотри, вот что тут происходит. К примеру, вызываем pow(2, 5).

1. 5 > 0 ==> pow = 2 * pow(2, 4)
	2. 4 > 0 ==> pow = 2 * pow(2, 3)
		3. 3 > 0 ==> pow = 2 * pow(2, 2)
			4. 2 > 0 ==> pow = 2 * pow(2, 1)
				5. 1 > 0 ==> pow = 2 * pow(2, 0)
					6. 0 = 0 ==> pow = (1)
					Теперь раскручиваем все назад: то, что было вычислено на N-ом уровне,
					возвращаем на (N-1)-ый (в скобках - результат выполнения, и ниже -
					этот же результат используется в вычислении на предыдущем уровне)
				pow = 2 * 1 = (2)
			pow = 2 * (2) = (4)
		pow = 2 * (4) = (8)
	pow = 2 * (8) = (16)
pow = 2 * (16) = (32)

Вот тебе и ответ: pow(2, 5) = 32

То же самое делается и при передаче отрицательного числа вторым параметром, только добавляется еще один уровень рекурсии... Попробуй нарисовать такое же дерево для pow(2, -3) самостоятельно...