Найти все корни уравнения cos x = x с заданной точностью.
Всем заранее спаисибо.
uses crt;
var
x, eps: Single;
begin
clrscr;
eps := 0.0001;
x := 0;
while (x <= 360) do begin
if abs(cos(x * pi / 180) - x) < eps then begin
writeln('alpha = ', x:7:4, ' cos(', x:0:4,') = ', cos(x * pi / 180):7:5, ' eps = ', eps:7:4);
readkey;
end;
x := x + eps;
end;
writeln('done');
end.