Наташок

Если не сложно, то составьте пожалуста блок - схему к этой программе(можно даже в Paint)

Program z;
const e=0.0001;
var c,x,a,b:real;
function f(x:real):real;
begin
f:=exp(x)+sqrt(1+exp(2*x))-2;
end;
begin
writeln('введите а и b');
readln(a,b);
while abs(a-b)>=e do
begin
c:=(a+b)/2;
if f(a)*f(c)<0 then
b:=c
else
a:=c;
end;
writeln(c);
end.


решть уравнение exp(x)+sqrt(1+exp(2*x))-2=0 на отрезке [А,В] с точностью Е.
А=-7, В=7, Е=0,0001