Последовательность с точностью е

[Николай_92]

Даны положительные числа Е и U, натуральное число n. Последовательность образована по закону
x1=(u+n-1)/2 ,
x(следущее'k')=(1/n)*(n-1)*x(предыдщее)+u/(x'предыдущее' в степени (n-1))
найти первый член xk для которого |x_k-x_k-1|<e
где е-точность вычисления. а также номер i для которого выполняется условие.
решение в паскале


Заранее спасибо...

[rubius2008]

используй цикл с предусловием

[Николай_92]

постоянно ошибка вещественное деление на ноль

program a1;
uses crt;
var x1, xk, e:real;
u,n , i:integer;
begin
write('e=');
readln(e);
write('u=');
readln(u);
write('n=', n);
readln(n);
x1:=(u+n-1)/2;
xk:=0;
      while abs(xk-x1)<e do
      begin
      xk:=(1/n)*((n-1)*i+u/((n-1)*ln(u)));
      i:=i+1;
      end;
writeln('xk=',xk);
writeln('i=',i);
readln;
end.

Оформляем код правильно!

ерунду написал какую то...сообразить не могу где там в цикле исправить...в ответе 0 выходит всегда

[rubius2008]

Сообщение от Николай_92

постоянно ошибка вещественное деление на ноль

Покажи хоть что написал

Сообщение от Николай_92

program a1;
uses crt;
var x1, xk, e:real;
u,n , i:integer;
begin
write('e=');
readln(e);
write('u=');
readln(u);
write('n=', n);
readln(n);
x1:=(u+n-1)/2;
xk:=0;
while abs(xk-x1)<e do
begin
xk:=(1/n)*((n-1)*i+u/((n-1)*ln(u)));
i:=i+1;
end;
writeln('xk=',xk);
writeln('i=',i);
readln;
end.



ерунду написал какую то...сообразить не могу где там в цикле исправить...в ответе 0 выходит всегда

1. до цикла

xk:=(u+n-1)/2; x1:=xk+2*e

2. цикл

     while abs(xk-x1)>=e do
      begin
        x1:=xk;
        xk:=(1/n)*(n-1)*x1+u/exp((n-1)*ln(x1));
      end;

[Николай_92]

огромное спасибо