метод итерации

Ответ от Георгий Зотиков[гуру]
примени эту программу себе
{x+lg(1+x)=1,5 }
program lab5_2;
uses crt;
var x0,x1,a,b,e:real;
iteraz:integer;
function fun(x:real):real;
begin
fun:=-ln(1+x)/ln(10)+1.5;
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('Решение уравнения x+ln(1+x)/ln(10)-1.5=0:');
writeln('Точное значение корня....……1.1646');
writeln('Вычисленное значение корня…',x1:6:5);
writeln('Число итераций..…………....',iteraz);
writeln('Программа закончена, нажмите Enter.');
readln;
end.