Решение нелинейных алгебраических уравнений методом простой итерации

[MurkyMargosha]

ScreenShot4.png
Для нахождения корня используем бесконечный цикл с послеусловием и выходом из цикла с поиощью процедуры “break”.

Попробовала составить, получилось

 Program lab_5;
  uses crt;
   var x0, x1, x2, x3, x4, eps: real;
   it: longint;
  Procedure Proc (eps, x0: real);
     var i: longint; var x2: real;
     Var x1: real;
     function f1(x: real): real;
     begin
     f1:=ln(4.28/x)
     end;
     begin
     x1:=x0; i:=1;
     repeat
        x2:=f1(x1);
        if abs(x1-x2) < eps then break
           else begin
               inc(i); x1:=x2
           end
     until false
  end;
  function f2(x: real): real;
     begin
     f2:=x*exp(x)
  end;
  begin clrscr;
  write ('Введите точность eps -> ');
  readln (eps);
  write ('Введите начальное приближение -> ');
  readln (x0);
  proc (eps, x0, it, x3);
  x4:=f2(x3);
  writeln ('Результаты : ');
  writeln ('Корень = ', x3:12:6);
  writeln ('Кол-во итераций = ', it:10);
  writeln ('Результат проверки = ', x4:9:6);
 readkey
end.

Выдает: Error 89 - объясните в чем ошибка глупой девушке))

[ViktorR]

repeat
        x2:=f1(x1);
        if abs(x1-x2) < eps then break
           else begin
               inc(i); x1:=x2
           end
     until false

...

...
 readkey
end.

Конечно же надо ценить свой труд и не ставить лишние точки с запятой, или скобки, но ...
Так думаю, что лишними они не бывают ...
Я предпочитаю ставить.

А вот тут:

 proc(eps, x0, it, x3);

больше параметров, чем положено.
В Вашей: Procedure Proc (eps, x0: real); - только два.
После исправления компиляция прошла, но далее не проверял.

Как-то так, ...