Версия для печати темы

Автор: rusan 20.05.2007 17:05

Найти все корни уравнения cos x = x с заданной точностью.


Всем заранее спаисибо.

Автор: klem4 20.05.2007 17:30

Ты ничего не перепутал ? По моему у такого уравнения корней нет ...

Добавлено через 18 мин.
Хотя если если с погрешностью, то наверное так:

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.