Нужно написать модуль, содержащий подпрограмму нахождения корня уравнения f(x)=0 на заданном отрезке [a, b] методом половинного деления, который заключается в следующем. Отрезок [a, b] делится пополам x=(a+b)/2, и определяется значение функции f(x) на концах отрезков [x, b] и [a, x]. Корень находится в той половине [a, b], на концах которой f(x) имеет разные знаки. Если f(a) и f(x) имеют разные знаки, то далее в качестве отрезка, содержащего корень, рассматриваем [a, x], иначе [x, b]. Новый отрезок делится пополам, и такой процесс продолжается до тех пор, пока отрезок не станет меньше заданной погрешности Эпсилон.

Использовать модуль для решения уравнения 5x-8Ln(x)=8 на интервале [4.1, 4.8] с точностью Эпсилон=10^-6

Const e=1E-6;
Var a,b,x:Real;
Begin
     a:=4.1;
     b:=4.8;
     Repeat
           x:=(a+b)/2;
           If ((a>0) AND (x<0)) Or ((a<0) AND (x>0)) Then b:=x Else a:=x;
     Until ABS(Abs(a)-Abs(b))<e;
     Writeln(x);
     Readln
End.

x:=(a+b)/2;

x:=(f(a)+f(b))/2;

{аналогично и с IF'ом}
If ((f(a)>0) AND (x<0)) Or ((f(a)<0) AND (x>0))

{f(a)- эт уравнение функции}

ошибка в этой строчке

Цитата
x:=(a+b)/2;

а нужно

Цитата
x:=(f(a)+f(b))/2;

If ((f(a)>0) AND (f(x)<0)) Or ((f(a)<0) AND (f(x)>0))