Лабораторные работы по численным методам / 4 / лаб4 числ методы / Program2

uses crt;
const eps=0.000001;
function f(x:real):real;
begin
f:=x+exp(0.1*x)*sin(x)-1;
end;
var a,b,x,c:real;
begin
a:=0;{интервал корня на графике}
b:=1.5;
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.