Тема-подпрограммы, паскаль

[Ria]

1) Программа. Напечатать в обратном порядке заданный во входном
файле текст(за текстом следует точка).


2) Описать рекурсивную функцию root(f,a,b,eps),которая методом де-
ления отрезка пополам находит с точностью eps корень уравнения
f(x)=0 на отрезке [a,b]. (Считать, что eps>0, a<b, f(a))*f(b)<0, f(x)-непрерывная и монотонная функция на отрезке [a,b].)


кто знает, помогите))

[Mad_Cat]

2)

function root(a,b,e:real):real;
var x,y,z:real;
begin
 if abs(a-b)<e then root:=(a+b)/2
   else begin
   x:=f(a);
   y:=f((a+b)/2);
   z:=f(b);
   if x*y<0 then root:=root(a,(a+b)/2,e)
            else root:=root((a+b)/2,b,e)
   end
end;