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

program lab5_2;
uses crt;
var x0,x1,a,b,e:real;
iteraz:integer;
function fun(x:real):real;
begin
fun:=0.1+0.01*x-sin(x);
end;
begin
clrscr; (
writeln('Решение уравнения методом итераций ');
writeln('-------------------------------------------');
writeln;
write('Введите приближённое(1) значение X=');
readln(x1);
write('Введите точность(0.0001) e=');
readln(e);
iteraz:=0;
repeat
iteraz:=iteraz+1;
x0:=x1; write(x1:7:4);
x1:=fun(x0); write(x1:7:4); writeln;
until (abs(x1-x0)<=e);
writeln('Решение уравнения 0.1+0.01*x-sin(x):');
writeln('Точное значение корня....……1.1646');
writeln('Вычисленное значение корня…',x1:6:5);
writeln('Число итераций..…………....',iteraz);
writeln('Программа закончена, нажмите Enter.');
readln;
end.