Лабораторные работы по численным методам / 4 / Метод простых итераций

Uses CRT;

Function F(x:real):real;
begin
F:=0.1+0.01*x-sin(x)
end;

const Eps=0.0000001;
Var fl,f2,x,xl,x2,A,B:Real;
N,i:Integer;
Begin
ClrScr;
A:=0; B:=1;
WriteLn ( 'Метод простых интераций: ' ) ;
N:=Round((B-A)/eps+0.5); xl:=A; fl:=F(xl);
for i:=1 to N do begin
x2:=xl+(B-A)/N;
f2:=F(x2);
if fl*f2<=0 then WriteLn('Нуль функции на x= ',(x2+xl)/2 );
xl:=x2; fl:=f2 ;
end;
WriteLn ('Выполнено ' ,N,' шагов.'); WriteLn;
writeln('f(x)=',0.1+0.01*(x2+xl)-sin((x2+xl)));
writeln('f(x)=',f(x2+xl));
ReadLn;
End.