Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабораторные работы по численным методам / 4 / лаба№4 / Program1
.pas 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.
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.
Соседние файлы в папке лаба№4