Ошибка в программе на рекурсию

[vitekbest]

Здравствуйте, господа, программеры, прошу помочь с задачей. Она на рекурсию, я её написал, она работает, но есть проблема: в ней я задаю три условия, по которым она высчитывает значение х, но когда я её запускаю и подставляю значения, то она учитывает только первое условие, а оставшиеся два не учитывает. Вот код программы:

 program NUMBER51;
 var
    x:real;
    i,n:integer;
    rezultat:real;
 function pow(x:real; n:integer):real;
    begin
    if n=0 then pow:=1;
    if n<0 then pow:=1/(x*exp(abs(n*ln(x))));
    if n>0 then pow:=x*(x*exp(n-1));
   end;
   begin
 writeln('Vvedite');
 readln(x);
 readln(n);
 writeln('Znachenie funkcii=',pow(x,n));
 readln;
end.

Заранее Вам благодарен!

From Stilet: И мы тебе будем благодарны коли будеш свои посты оформлять найчитабельнейшим образом. Код в специальный тег заключай.

[[Smarik]]

if n=0 then pow:=1 else
if n<0 then pow:=1/(x*exp(abs(n*ln(x)))) else
if n>0 then pow:=x*(x*exp(n-1));

так попробуй.

[Stilet]

когда я её запускаю и подставляю значения, то она учитывает только первое условие

А какие ты значения подставляешь что она неверно считает? Я проверил- вроде все верно.

[vitekbest]

Ну элементарно пишу 2 во второй она выдаёт 1.087...+01, пишу 2 в -2
она выдаёт 1.25..-01. А она не должна минус учитывать, так как там по модулю. И вообще неправильные значения выдаёт

[[Smarik]]

почему там не должен минус учитывать? при вводе 2-ки идет 3-е условие, абсолютные числа я вижу только во 2-м условии....наверное я что то не так понимаю.

[vitekbest]

Там условие: х в степени n равен:
при n=0 x=1;
при n<0 х=1/x в степени модуль n (т. к. модуль, то он не должен учитывать минус);
при n>0 x=x*x в степени n-1.

[Stilet]

vitekbest

Ты можеш написать формулы которые хочеш вычислять, здается мне ты в формулах ошибся...

[vitekbest]

Я их написал уже

[still_alive]

if n<0 then pow:=exp(-abs(n)*ln(x));

при n>0 x=x*x в степени n-1.

В смысле (х*х)^(n-1)? Тогда это просто х^(2n-2).

Кстати, задача на рекурсию, а рекурсии тут я и не вижу %)

[vitekbest]

Я знаю, что её здесь нет, эт препод так дала! спасибо, щас попробую