Рекурсивные функции в Делфи

[PaNDaPK]

Доброго времени суток! Помогите пожалуйста написать рекурсивную функцию в Делфи(Console Application).

[Stilet]

Вроде так:

program Project1;

function ln2(i:integer;x:double):double;
begin
 i:=i+2; Result:=0;
 if i>10 then exit;
 Result:=exp(ln(i)*(x-1))/(i*exp(ln(i)*(x+1)))
end;

begin
 write(ln2(1,1)); readln;
end.

только предел сам пропишешь.

[PaNDaPK]

Вот написал:

uses   SysUtils,
        Math,
         windows;

Procedure info;
begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
writeln('lol');
end;

function ln2(i:integer;x: double): double;
begin
 i:=i+2; Result:=0;
 if i>10 then exit;
 Result:=exp(ln(i)*(x-1))/(i*exp(ln(i)*(x+1)))
end;



Function Input(S:string;min,max:extended):extended;
var   A: double;
Begin
Write(S);
ReadLn(A);
if (A>max) or (A<min) THEN
begin
WriteLN(' zna4 ot ', min:1,' do ', max:100,'.');
A:=Input(S,min,max);
end;
Input:=A;
end;

Function RepProg:boolean;
Var   ans:char;
Begin   Write('prodovz? (Y/N)');
ReadLn(ans);
if (ans='Y') or (ans='y') or (ans='?') or (ans='?') then Repprog:=false
else Repprog:= true;
WriteLn(#13);
End;

Procedure Prog;
var  x, e: extended;
Begin
repeat
x:=Input('vvedi (x): ',1,100);
writeln;
e:=input('to4noctb (e): ',10e-16,1);
writeln;
writeln('lnx = ', ln2(1,100));
writeln;
until repprog
End;

begin
info;
Prog
end.

при любых значениях показывает одно и тоже

[Stilet]

при любых значениях показывает одно и тоже

Хе!: ln2(1,100)
Увидел?

[PaNDaPK]

вот тут я не много не понял

[Stilet]

Ну ниче себе. Написать самому такую програмулину и не догадаться что в функцию вместо констант, которые я поставил в примере передать переменные...
"Х" же в нее передавай а не сотню

[PaNDaPK]

то есть нужно написать ln2(1,x)?
P.S. прогу написать легко, тяжелее сделать что бы она правильно работала