Лабораторные работы по численным методам / Численные методы / Численные методы / лабораторка 3 / Program1

Program pol;
var y,r,x,a,x1,x2:real;
// x,a,y,r: integer;

function f(var x: real):real;
begin
f:=Exp(0.1*x)*Sin(x)-1;
end;

begin
x:=0.8;
x1:= 1.4;
repeat
begin
x2:=(x1+x)/2;
if f(x)*f(x2)>0 then x:=x2
else x1:=x2;
r:=abs(x1-x);
writeln(r)
end;
until r<0.000001;
writeln ((x+x1)/2);
end.