Informatika (2 семестр) / 1 аттестация / дихотомия

Program dihotomia;
var a,b,c,e,x : real;
function f(x:real):real;
begin
f:=(x*x)-9;
end;
begin
a:=0;b:=7;e:=0.5;
while abs(b-a)>e do
begin
c:=(a+b)/2;
if f(a)*f(c)<0 then
b:=c
else
a:=c;
end;
x:=(a+b)/2;
writeln(x);
end.