Отделение корней уравнения

Программа позволяет отделить корни уравнения. Вам надо задать концы отрезка на котором рассматриваются корни. Можно поменять функцию на свою.

program otdelenie_korney_uravneniya;
 uses crt;
 const delta = 0.1;
 var
 a,b,x1,x2,d:real; n:byte;
 function f(x:real):real;
 begin
 f:=sin(ln(sqr(x)+5))-2*cos(x)+1
 end;
 function df(x:real):real;
 begin
 df:=(f(x+delta)-f(x))/delta
 end;

begin
 clrscr;
 writeln('Отделение корней, введите концы отрезка');
 write('a=');readln (a); write('b=');readln(b);
 writeln('Число промежутков:');
 write('n='); readln(n);
 d:=(b-a)/n; x1:=a;
 repeat
 x2:=x1+d;
 if (f(x1)*f(x2)<0) and (df(x1)*df(x2)>0) then
 writeln('Промежуток:[ ',x1:6:3,',', x2:6:3, ']');
 x1:=x2
 until x2>b;
 write('Конец просмотра');readln
end.