Задание
Скопируйте программу в среду программирования, модифицируйте таким образом, чтобы она при каждой итерации выводила промежуточный ответ и заполните таблицу. Ответы вводите с точностью до трех знаков после запятой.
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 |