итерации для метода половинного деления Опции

[jojoli]

день добрый. есть уравнение e^(-x)-sqr(x-1). я его решил методом половинного деления, получил корень и правильный ответ. преподаватель сказал, что в моей программе не хватает проверки на количество итераций для вычисления корня. не очень понимаю, как правильно ее сделать в методе половинного деления. спасибо.

Код

function f(x: real): real;
begin
f:=exp(-x)-sqr(x-1);
end;
var
a, b, e, c, x: real;
begin
a:=1;
b:=2;
write ('e=');
read(e);
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)
end;

с уважением, Иван