Решите уравнение sin(x) = 1/x на отрезке [2; 3] с точностью 0,01.

Решите уравнение sin(x) = 1/x на отрезке [2; 3] с точностью 0,01.
Гость
Ответ(ы) на вопрос:
Гость
Вот, например программа поиска корня уравнения методом ДИХОТОМИИ: program dichotom;  uses Crt;  var a, b, eps, xn, y, psy: real;      n: integer; function f(x:real):real;  begin    f:=sin(x)-1/x;   end; begin  ClrScr;  a:=2;  b:=3;  eps:=0.01;  n:=0;  y:=f(a);  while y>=eps do  begin   n:=n+1;   xn:=(a+b)/2;   y:=f(xn);   if y>=eps then     if f(a)*y<0 then b:=xn else a:=xn;  end;  psy:=xn;  WriteLn(' X = ',psy:5:2);  ReadLn; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы