Метод деления отрезка пополам
Задание 2
Попытайтесь улучшить программу для метода деления отрезка пополам ,используя одно из значений функций,вычисленных на предыдущем шаге цикла.

const eps = 0.001;
var х,а,Ь,с, delta: real;
function f(x: real):real;
begin
f:= х - cos(x)
end;
begin
а:=-5;
Ь:=-а;
delta:= 2*eps;
while Ь - а > delta do begin
с:= (а+ Ь) / 2;
lf f(a)*f(c) <= О then
Ь:= с
else а:= с;
end;
writeln('x = ',(а+Ь)/2:6:З);
end.

Третье задание приложено

Котеика1космос    2   01.05.2020 00:38    2