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

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

function f(var x: real):real;
begin
f:=x-Exp(0.1*x)*Cos(x);
end;
begin
x:=0.4;
x1:= 1.6;
// max:=x-Exp(0.1*x1)*Cos(x1);
// min:=x-Exp(0.1*x)*Cos(x);
min:=Exp(0.1*x)*Cos(x);
max:= Exp(0.1*x1)*Sin(x1)+Exp(0.1*x1)*Cos(x1);
c:=(max/ min)*x-x1;
writeln (c);

// max:=Exp (0.1*x1)*Cos (x);
// writeln (max);
// writeln (min);
{ 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.