Задача в pascal?! помогите пожалуйста решить задачу.

[Absent]

Условие: Составить программу для решения уравнения f(x)=0 на отрезке [A,B] с точностью Е методом деления отрезка пополам и с помощью рекурсии.Код абсолютно правильный просто я не могу написать его с рекурсией. Заранее спасибо большое!!!

program ex;
var e:array [1..5] of real;
a,b,x:real;
i,n:integer;
function F (x:real):real;
begin
F:=(exp(ln(x)*(1/7))+ln(x+0.3))/(sqrt(x+1)-x);
end;
procedure V (a,b,e:real;var x:real; var n:integer);
var
at,bt,fat,fxs,xs:real;
begin
at:=a;
bt:=b;
n:=0;
repeat
xs:=(at+bt)/2;
n:=n+1;
fat:=F(at);
fxs:=F(xs);
if fat*fxs>=0 then
at:=xs
else
bt:=xs;
until abs(at-bt)<=e;
x:=xs;
end;
begin
writeln ('vvedite a,b');
readln (a,b);
writeln ('vvedite e');
for i:=1 to 5 do
read (e[i]);
for i:=1 to 5 do
begin
V(a,b,e[i],x,n);
writeln ('x=',x:5:4,' n=',n);
end;
readln;
readln;
end.

[puporev]

Приложил маленький файлик по рекурсии, прочитай и поймешь, что твоя программа вполне рекурсивная, т.к. procedure V вызывает внутри себя описанную выше function F. Это называется линейная косвенная рекурсия, в отличие скажем от общеизвестного факториала, где используется прямая циклическая рекурсия.

[МаксимNEWProgramm]

Чувак это у ткбя и есть Рекурсия!!!

[puporev]

Нет, это не у меня, это в умных книжках пишут. А обращаться к незнакомым людям учитесь сейчас, а то по жизни можете много неприятностей нажить.

[Absent]

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

[alexBlack]

Уже не помню метода (деление пополам), но если код рабочий, то вот его рекурсивная запись:

procedure V (a,b,e:real;var x:real; var n:integer);
var fat,fxs:real;
begin
   if abs(a-b)<=e then exit;
   x:=(a+b)/2;
   n:=n+1;
   fat:=F(a);
   fxs:=F(x);
   if fat*fxs >= 0
   then V(x, b, e, x, n)
   else V(a, x, e, x, n);
end;

{ Обязательно: установка начальных значений до вызова функций }
n := 0;
V(a,b,e,x,n);

[Absent]

спасибо больщое!!! ОЧЕНЬ БЛАГОДАРЕН!!