Циклы с неявным числом повторений. Найти корень уравнения.

[Prien]

Запоролся на легкой задачке

Методом деления отрезка пополам найти корень уравнения arctg x + 1/3x^2 = 0 на отрезке [-pi/4; pi/4]

из наработок:

program lab5_1;
uses crt;

var
x,y,xL,xR,yA,y0,yB:real;

begin
clrscr;

xL:=-pi/4;
xR:=pi/4;

   repeat
   x:=(xL+xR)/2;

   yA:=arctan(xL)+1/3*sqr(xL);
   y0:=arctan(x)+1/3*sqr(x);
   yB:=arctan(xR)+1/3*sqr(xR);

   read;

   if yA*yB<0 then
   xL:=x
   else
   xR:=x;
   until yA*yB<0;
   writeln ('x=',x:8:4);
   
readln;
end.

чего-то не хватает.

прошу вашей помощи.

[Sweta]

Есть ли у Вас точность, с которой необходимо определить корень?

[Sweta]

program lab5_1;
uses crt;

var
x,y,xL,xR,yA,y0,yB:real;

begin
clrscr;

xL:=-pi/4;
xR:=pi/4;

   repeat
   x:=(xL+xR)/2;

   yA:=arctan(xL)+1/3*sqr(xL);
   yB:=arctan(x)+1/3*sqr(x);
  
   read;

   if yA*yB<0 then
   xR:=x
   else
   xL:=x;
   until здесь должна быть точность < заданной;
   writeln ('x=',x:8:4);
   
readln;
end.