Решение нелинейных уравнений методом половинного деления - Pascal (3782)
Формулировка задачи:
Методом Ньютона уравнение решил.
Не работает метод половинного деления.
uses crt; var a,b,c,x,n: real; function F(x: real): real; begin F := x * x * x + (4 * Ln(x)) - 5 end; const e = 0.0000001;{точность} begin a := 2;{левая граница} b := 4;{правая граница} n := 0; if F(a) * F(b) > 0 then begin repeat n:=n+1; c := (a + b) / 2; if F(a) * F(c) <= 0 then b := c else a := c until b - a < e; x := (a + b) / 2; writeln('x = ', x:0:9); writeln('n iteracii= ', n:0:1) end else writeln('На данном интервале корней нет, либо взят большой интервал.'); readln end.
Решение задачи: «Решение нелинейных уравнений методом половинного деления»
textual
Листинг программы
if F(a) * F(b) < 0