Цитата:
1. составить программу на языке паскаль для вычисления корней уравнения методом половинного деления
Точность вычислений 10 (в -3 степени)
3х-0,9*Cosx-1=0
|
Вроде бы так... вычисляет функцию на интервале от a до b
Код:
program mdp;
function f(x: real): real;
begin
f:=3*x-0.9*cos(x)-1;
end;
var
a, b, e, c, x: real;
begin
a:=0;
b:=1;
e:=0.001;
c:=(a+b)/2;
while abs(b-a)>e do
begin
if f(a)*f(c)<0 then
b:=c
else
a:=c;
c:=(a+b)/2;
end;
x:=(a+b)/2;
writeln ('x=',x:3:3,' f(x)=',f(x):4:4);
readln;
end.