[littlePCgenius]

это что-то вроде этого?

Код:

function root(f,a,b,eps): real;
var fa,fb,fc,c: real;
begin
  fa:=f(a);
  fb:=f(b);
  c:=a/2+b/2;
  fc:=f(c);
  if abs(fc)<eps then root:=c else
  if fa<fb 
    then
      if fc>0 then root:=root(f,a,c,eps) else root:=root(f,c,b,eps)
    else
      if fc>0 then root:=root(f,c,b,eps) else root:=root(f,a,c,eps)

этот код на каком-то сайте нашла, но не совсем его поняла(( если можете, объясните пожалуйста