Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабораторные работы по численным методам / 4 / Метод половинного деления
.pas uses crt;
const eps=0.000001;
function f(x:real):real;
begin
f:=0.1+0.01*x-sin(x);
end;
var a,b,x,c:real;
begin
a:=0;
b:=1;
while abs(a-b)>eps do
begin
c:=(a+b)/2;
if f(a)*f(c)<=0 then b:=c
else a:=c;
x:=(a+b)/2;
end;
writeln('x=',x,' f(x)=',f(x));
end.
const eps=0.000001;
function f(x:real):real;
begin
f:=0.1+0.01*x-sin(x);
end;
var a,b,x,c:real;
begin
a:=0;
b:=1;
while abs(a-b)>eps do
begin
c:=(a+b)/2;
if f(a)*f(c)<=0 then b:=c
else a:=c;
x:=(a+b)/2;
end;
writeln('x=',x,' f(x)=',f(x));
end.
Соседние файлы в папке 4