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

Узнай цену своей работы

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

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

Решение задачи: «Решение нелинейных уравнений методом Ньютона»

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.

Объяснение кода листинга программы

  1. Объявляется переменная x типа real и переменная xn типа real.
  2. Присваивается значение 1 переменной x.
  3. Начинается цикл repeat - until.
  4. Значение переменной xn равно значению переменной x.
  5. Значение переменной x пересчитывается по формуле метода Ньютона для решения уравнения: x := xn - (0.1 * sin(x) + x * x - 1) / (0.1 * cos(x) + 2 * x).
  6. Цикл выполняется до тех пор, пока разница между x и xn не станет меньше 1е-4.
  7. Выводится значение переменной x с точностью до 4 знаков после запятой.
  8. Ожидается ввод с клавиатуры перед завершением программы. Предполагаемый язык программирования - Pascal.

Оцени полезность:

14   голосов , оценка 4.214 из 5
Похожие ответы