Составить программу для решения уравнения f1(х) = 0 и f2(х) = 0 на отрезке [А,В] с точностью Еps методом деления отрезка пополам.

[6565]

Вот тут оригинал задания:20 вариант https://docviewer.yandex.ru/?url=ya-...c=5390b063be7e
type
Ms=array[1..5] of real;
func=function(x:real):real;
{$F+}

function F1(x:real):real;
begin
F1:=((ln(44.8)-sin(Sqrt(x)))/2)-x;
end;
function F2(x:real):real;
begin
F2:=1.5-x-(Sqrt(Abs(x))+Exp(ln(Abs(x))*(1/3)))/Exp(3/2);
end;

{$F-}

procedure EqRoot (const Aa, Bb: real; const E: real; var Idx: byte; var Root: real; F: func);
VAR
i: integer;
a, b, c: real;
Begin
Idx:=0;
a:=Aa;
b:=Bb;
while abs(b-a) > E do
Begin
c:= (a + b)/2;
if F (a) * F(c) > 0 then a:= c
else b:= c;
inc(Idx);
end;
c:= (a+b)/2;
Root:=c;
end;

Const
A=0.01;
B=1.9999;
Eps: Ms=(0.1,0.01,0.001, 0.0001, 0.00001);
var
Idx1,Idx2: array[1..5] of byte;
Root1,Root2: array[1..5] of real;
i: integer;
f3:real;
begin
F3:=F2(1.0454034);
writeln('+',F3);
Writeln('Reshenieя F1 -');
for i:=1 to 5 do
begin
EqRoot(A, B, Eps[i], Idx1[i], Root1[i], F1);
writeln(' Root - ',Root1[i]:2:i);
writeln(' Step - ',Idx1[i]);
end;
Writeln('Reshenieя F2 -');
for i:=1 to 5 do
begin
EqRoot(A, B, Eps[i], Idx2[i], Root2[i], F2);
writeln(' Root - ',Root2[i]:2:i);
writeln(' Step - ',Idx2[i]);
end;
readln;
end.