Program Lab5_1; uses crt;

const eps=1.0E-3; {Точность 0,001}

var x1,x0:real;
    count:integer;

Function F(x:real):real;
Begin
F:=X-(Sqr(X)*Cos(2*X)+1); {Функция}
end;

Begin clrscr;
Write(' Введите приближённое значение X: '); Readln(X1);
Count:=0; {Начальное значение кол-ва итераций}

Repeat
Inc(Count);
X0:=X1;
X1:=F(X0);
Writeln(' X0= ',X0:8:5,'  X1= ',X1:8:5);
Until (Abs(X1-X0) <= Eps);

Writeln(' Решение уравнения X^2*Cos(2X)+1=0');
Writeln(' На отрезке: [0; Pi/2]');
Writeln(' Точность: ', Eps:6:5);
Writeln(' Точное значение корня: 1.18321');
Writeln(' Вычисленное значение корня:', X1:8:5);
Writeln(' Число итераций: ', Count);
Readln;
end.