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

[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)?
и я правильно написал функцию?

[maksimla]

ой, я значит неправильно формулу понял и написал
вот как понял pow(2, -3)

1. -3 < 0 ==> pow := 1 / pow(2, 3)
	 2. 3> 0 ==> pow = 2 * pow(2, 2)
	   3. 2> 0 ==> pow = 2 * pow(2, 1)
		 4. 1> 0 ==> pow = 2 * pow(2, 0)
			5. 0 = 0 ==> pow = (1)
			  pow = 2 * 1 = (2)
	   pow = 2 * (2) = (4)
 pow = 2 * (4) = (8)

Сообщение отредактировано: maksimla - 29.01.2009 21:54