Предмет: Информатика,
автор: Stan8
РЕШЕНИЕ НЕЛИНЕЙНЫХ УРАВНЕНИЙ в программе паскаль
x^3+3x+1=0
[-1;0]
точность е=0,01
Ответы
Автор ответа:
0
var m, n, k:real;
function f(x:real):real;begin f := x * x * x + 3 * x + 1;end;begin m := -1; n := 0; while n - m > 0.0000001 do begin k := (m + n) / 2; if f(k) > 0 then n := k else m := k; end; writeln((m + n) / 2)end.
function f(x:real):real;begin f := x * x * x + 3 * x + 1;end;begin m := -1; n := 0; while n - m > 0.0000001 do begin k := (m + n) / 2; if f(k) > 0 then n := k else m := k; end; writeln((m + n) / 2)end.
Похожие вопросы