Решение нелинейных уравнений методом Ньютона - Pascal (80138)

Формулировка задачи:

Помогите решить 0,1sin(x)+x^2-1=0 С точностью Е=10^-4 Интервал изоляции [0,8;1,0] Зарание спасибо!

Код к задаче: «Решение нелинейных уравнений методом Ньютона - Pascal (80138)»

textual
var x, xn: real;
begin
  x := 1;
  repeat
    xn := x;
    x := xn - (0.1 * sin(x) + x * x - 1) / (0.1 * cos(x) + 2 * x)
  until abs(x - xn) < 1e-4;
  write('x = ', x:0:4);
  readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 4.214 из 5


СДЕЛАЙТЕ РЕПОСТ