Задание

Скопируйте программу в среду программирования, модифицируйте таким образом, чтобы она при каждой итерации выводила промежуточный ответ и заполните таблицу. Ответы вводите с точностью до трех знаков после запятой.

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.

Номер итерации Промежуточное значение

1

2

4

6