Решение нелинейных уравнений в программе паскаль - вопрос №3310100013644187 от antonovakate2006 03.03.2023 23:55

Question

Информатика: Решение нелинейных уравнений в программе паскаль x^3+3x+1=0 [-1; 0] точность е=0,01

antonovakate2006 · Answer

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....