Помогите найти ошибку в программе на языке Pascal

[ALFIR]

Вот текст программы, где ошибка??. Помогите пожалуйста, заранее спасибо!)

Program PR;
uses crt;
var i,n,k:integer;
eps,x_0,x_1,a,lim:real;
function step(x,k:integer):longint;
begin
if k=0 then step:=1;
if k>=0 then step:=step(x,k-1)*x;
end;
function XN(k:integer):real;
begin
xn:=k/step(2,k);
end;
begin
clrscr;
eps:=0.1;
n:=0;
x_0:=1;
x_1:=2;
while abs(x_0-x_1)>eps do
begin
x_0:=XN(n);
x_1:=XN(n+1);
n:=n+1;
lim:=x_0+x_1;
writeln(n,'	',x_0:6:2,'	',x_1:6:2,'  ',lim:9:6);
end;
writeln('Kol-vo vishislenii e=0.1--->',n,' lim= ',lim:9:9);
eps:=0.001;
n:=0;
x_0:=1;
x_1:=2;
while abs(x_0-x_1)>eps do
begin
x_0:=XN(n);
x_1:=XN(n+1);
n:=n+1;
lim:=x_0+x_1;
end;
writeln('Kol-vo vishislenii e=0.001--->',n,' lim= ',lim:9:9);
eps:=0.0001;
n:=0;
x_0:=1;
x_1:=2;
while abs(x_0-x_1)>eps do
begin
x_0:=XN(n);
x_1:=XN(n+1);
n:=n+1;
lim:=x_0+x_1;
end;
writeln('Kol-vo vishislenii e=0.0001--->',n,' lim= ',lim:9:9);
readkey;
end.

 

[nayke]

А зачем функция step? может я быстро посмотрев не понял но помоему это x[sup]k[/sup]. И опишите подробнее задачу в чем ошибка.. какие условия..

 

[BashOrgRu]

Замени if k>=0 then step:=step(x,k-1)*x; на
if k>0 then step:=step(x,k-1)*x;

 

[ALFIR]

Замени if k>=0 then step:=step(x,k-1)*x; на
if k>0 then step:=step(x,k-1)*x;

спасибо большое!) вроде работает=)

Добавлено: nayke

А зачем функция step? может я быстро посмотрев не понял но помоему это xk. И опишите подробнее задачу в чем ошибка.. какие условия..

да, это x в степени к

 

[nayke]

да, это x в степени к

возведение числа в степень - взятие экспоненты от логарифма Exp(X*Ln(Y)), где X - степень числа, Y - основание.

 

[vital]

Exp(X*Ln(Y)),

Ох как не любят преподы эту формулу..=) Не зная ее студенты такие классные алгоритмы пишут=)