Решение уравнения методом деления отрезка пополам. Методом секущей.

[Panda196]

Никак не получается составить программу((((Help

Составить программу для решения уравнения f(x)=0 на отрезке [A,B} с точностью Е методом деления отрезка пополам. Методом секущей. Каждое новое приближение X находится как середина текущего отрезка. Концы текущего отрезка выбираются из условия противоположности знака f(x) на его концах. Вычисление корня заканчивается, когда длина отрезка станет меньше Е.
Для проверки программы задать A= 0 B=2 E=10(в -4 степени)

F(x)= Ln(1+x)-0,95sinx + 6/7 - x

[alex_fcsm]

uses crt;
const eps=0.0001;
var a,b,temp:real;
    fun:real;

begin
clrscr;
a:=0;b:=2;
repeat
temp:=(b-a)/2+a;
Fun:=ln(1+temp)-0.95*sin(temp)+6/7 -temp;
if Fun>0 then a:=temp
 else if Fun<0 then b:=temp
       else a:=b;
until (b-a)<=eps;
writeln(temp);
end.

В общем случае надо бы проверять функцию на ее вид:возрастающая или убывающая

[Panda196]

Спасибо большущее))) А тут есть кнопка спасибо жать???

[alex_fcsm]

Можно оставлять отзывы на сообщения (средний значок из 3)