Напишите рекурсивную функцию, которая находит корень уравнения вида f(x) = 0 методом деления отрезка пополам с заданной точностью E. - Pascal

Формулировка задачи:

Помогите решить: Напишите рекурсивную функцию, которая находит корень уравнения вида f(x) = 0 методом деления отрезка пополам с заданной точностью E.

Решение задачи: «Напишите рекурсивную функцию, которая находит корень уравнения вида f(x) = 0 методом деления отрезка пополам с заданной точностью E.»

Листинг программы

program rabot;
 
{$APPTYPE CONSOLE}
 
uses SysUtils;
 
Var a,b,e,x:real;
 
function Y(x:real): real;
begin
  y:= sin(x)+cos(x);
end;
 
procedure KOR (A,b,e : real);
begin
  if (a>b) or (y(a)*y(b)>0) then write ('HET KOPHEU')
  else
    begin
      while abs(a-b)>=E do
        begin
          x:=(a+b)/2;
          if y(a)*y(x)<0 then b:=x
                         else a:=x;
        end;
      writeln('x=', x);
    end;
end;
 
Begin
  write('a='); readln(a);
  write('b='); readln(b);
  write('E='); readln(E);
  KOR(A,b,e);
  readln;
end.

Объяснение кода листинга программы

В программе объявлены переменные a, b, e и x типа real.
Функция Y(x) вычисляет синус x и косинус x.
В процедуре KOR (A, b, e) проверяется условие: если a больше b или произведение y(a) * y(b) положительное, то выводится сообщение HET KOPHEU.
Если условие не выполняется, то начинается цикл, который продолжается до тех пор, пока abs(a-b) не станет больше или равно E.
Внутри цикла вычисляется среднее значение a и b, и если y(a) * y(b) меньше нуля, то значение b устанавливается равным среднему значению.
Если условие из пункта 5 не выполняется, то значение a устанавливается равным среднему значению.
После завершения цикла выводится сообщение с найденным значением x.
Программа завершается считыванием символа новой строки.