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

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

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


textual

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

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.

Блок-схема:

Блок-схема к задаче: Решение нелинейных уравнений методом Ньютона - Pascal (80138)
Эта работа вам не подошла?

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


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

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

Источник