//3.32
function f (x:real) : real;
begin
f := sqrt(18 + x) + sqrt(16 - x);
end;
const
max = 6;
min = 8;
eps = 2e-5;
var
x0, x1: real;
iter: integer;
Begin
iter := 0;
x1 := (min + max)/2.0;
repeat
writeln(iter, '. x = ', x1:8:5);
x0 := x1;
x1 := f(x0);
iter := iter + 1;
until abs(x0 - x1) < eps;
writeln('---------------');
writeln('Otvet: ', x1);
writeln('Iteracij: ', iter);
End.
Comments
0 B
|👍
/👎
0 B
|👍
/👎