метод половинного деления

[Poli-007]

Определить метод половинного деления. корень уравнения f(x), где F(x)=x^2-10*x+8 с точностью E=0.2 принадлеж. отрезку [6,10]

[Mad_Cat]

program mdp;
function f(x: real): real;
begin
f:=x*x-10*x+8;
end;
var
a, b, e, c, x: real; 
begin
a:=6;
b:=10;
e=0.2;
c:=(a+b)/2;
while abs(b-a)>e do
begin
if f(a)*f(c)<0 then
b:=c
else
a:=c;
c:=(a+b)/2; 
end;
x:=(a+b)/2;
writeln ('x=',x:3:3,' f(x)=',f(x)4:4);
end.