Решение нелинейных уравнений методом половинного деления - 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

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

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