Найдите методом Ньютона корень уравнения f(X)=0, ГДЕ f(x)=sin(x)-cos(0,5*x)+2*X. Значения корня ищите в интервале (-1.2; 4.6). Точность вычисления корня -0,0002. Значения интервала и точность вычисления корня вводите с клавиатуры. Выходные данные: найденное значение корня; значение левой части решаемого уравнения при значениях x, равном корню; количество выполненных приближений (итераций) — Pascal(Паскаль)

{
  Вводимые данные:
  ________________________

  OT:		-1.2
  DO:		 4.6
  TOCNOSTI:	 0.0002
}

Program PascalGuru;

function f(x: real): real;
begin
  f := sin(x) - cos(0.5 * x) + (2 * x);
end;
{ ------------------------- }

var
  otk, dok, toc: real;
  i: real;

begin
  write('OT: ');
  readln(otk);
  write('DO: ');
  readln(dok);
  write('TOCNOSTI: ');
  readln(toc);

  repeat
    writeln(otk: 14: 4, ': ', f(otk): 0: 4);

    if (f(otk) > 0) and (f(otk) < toc) then
      break;

    otk := otk + toc;
  until otk >= dok;

  writeln;
  writeln('Otvet: x= ', otk:0:4);

  readln;

end.

Leave a Comment

4 + 1 =