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

uses crt;
const eps=0.000001;

function fx(x:real):real;
begin
fx:=sqrt(abs(x))-sin(x)-1;
end;

var a,b,c,x:real;
f:text;
begin
var start:=System.DateTime.Now;
assign(f,'Погрешность.txt');
rewrite(f);
a:=2;
b:=3;
while abs(a-b)>eps do
begin
c:=(a+b)/2;
if fx(a)*fx(c)<=0 then b:=c
else a:=c;
x:=(a+b)/2;
writeln(f,abs(a-b));
end;
close(f);
writeln('x=',x:0:9,' f(x)=',fx(x):0:9);
var finish:=System.DateTime.Now;
writeln('Время выполнения = ',(finish - start).TotalSeconds,' секунд');
end.