Метод простой итерации

[Nikolai17]

Решение нелинейных и трансцендентных уравнений
Для заданного уравнения f(x)=0 вычислить интервал изоляции одного из корней.
Составить программу вычисления корня с погрешностью ε=0,0001 в соответствии с указанным методом.

функция 2ln(x)-1/x=0

Моя наработочка.......

program r;
uses crt;
var x,y,e,x0:real;
begin 
  e:=0.0001;
  writeln('Enter x ' );
  readln(x);
  repeat
  x0:=x;
  x:=1/(2*ln(x0));
  until abs(x0-x)<e;
  writeln(x);
  readkey;
 end.

Изменил поставил ввод x програ вылетает на 3 повторенийй


Прога вылетает с ошибкой

[Greblin]

Не инициализирована переменная x, соответственно в строке

x0:=x;

в x0 записывается неизвестно что, после чего Вы пытаетесь взять логарифм от этого неизвестно чего, вот и вылетает ошибка

[Orakul89]

var x,e,x0:real;
begin
  e:=0.0001;
  writeln('Enter x ' );
  readln(x);
  repeat
  x0:=x;
  x:=2*ln(x0)-1/x0+x0;
  until abs((x0-x)/x0)<e;
  writeln(x);
  readkey;
 end.

попробуй этот код...
Твой не работает потому, что: при переходе на 4 итерацию х отрицательный, потому и вылетает.

[Nikolai17]

Сообщение от Orakul89

var x,e,x0:real;
begin
  e:=0.0001;
  writeln('Enter x ' );
  readln(x);
  repeat
  x0:=x;
  x:=2*ln(x0)-1/x0+x0;
  until abs((x0-x)/x0)<e;
  writeln(x);
  readkey;
 end.

попробуй этот код...
Твой не работает потому, что: при переходе на 4 итерацию х отрицательный, потому и вылетает.

x:=2*ln(x0)-1/x0+x0; зачем тут x0 ? это ведь изменение формулы
until abs((x0-x)/x0)<e; а это как понять ? деление на x0?

[Orakul89]

x:=2*ln(x)-1/x+x - это твоя же формула 2*ln(x)-1/x=0, только и разницы, что добавлены х с левой и правой части уравнения.
abs((x-x0)/x0)<eps - это понимать как точность изменения x