Задание

Скопируйте программу в среду программирования, модифицируйте таким образом, чтобы она находила значение √3. В ответ запишите значение, которое выдает программа с точностью до трех знаков, если eps = 0.01

var

delta, eps, b, a, c, x:real;

function f(x:real):real;

begin

f := x*x-2;

end;

Begin

a:=1;

b:=2;

eps:=0.01;

delta:=2*eps;

while b-a>delta do begin

c:=(a+b)/2;

if f(a)*f(c)<=0 then

b:=c

else a:=c;

end;

writeln('x = ', (a+b)/2:6:3);

End.