Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.students.chemport.ru/materials/pascal/p7.pas Дата изменения: Thu Jan 15 18:04:43 2009 Дата индексирования: Mon Oct 1 21:06:26 2012 Кодировка: Windows-1251

uses wincrt;
var
a,b,c,eps:real;
function
f(x:real):real;
begin
f:=exp(-x)-x;
end;
begin
writeln(' Задайте границы отрезка и точность вычислений');
write( ' ');
readln(a,b,eps);
c:=(a+b)/2;
repeat
if f(a)*f(c)>0 then a:=c else b:=c;
c:=(a+b)/2;
until abs(a-b) writeln(' Корень уравнения exp(-x)=x на отрезке [0,1]');
writeln(' равен',b:10:7,' (с точностью',eps:8,')');
end.