Правильно ли написан код?

Question

[uliana00]

Задание: вычислите значение корня n-ой степени (y=корень из х n-ой степени) с точностью EPS с использованием итерационной формулы Ньютона.Вычисления производить пока |Yi – Yi-1| не станет меньше EPS. Определите количество итераций, за которое достигается эта точность.
Сам код рабочий,не могу понять следующее: почему в ответе,независимо от введенных чисел, выдает 1.
Помогите разобраться,пожалуйста.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var y, yInDegree, EPS, diff, x, yMinus1 : Real;
    i, n : Cardinal;

   begin
   write('x=');
   readln(x);
   write('y=');
   readln(y);
   write('EPS=');
   readln(EPS);
  i := 0;
  y := 1.0;
  yInDegree := 1.0;
  while (Abs(diff) > EPS) do
    begin
     inc(i);
    yMinus1 := y;
    y := ((1/n) * ((n-1) * y + (x/yInDegree)));//Сама формула
    yInDegree := exp(n*ln(y));
      diff := y - yMinus1;
    inc(i);
    end;
 write('y=',y:8:4);
 readln;


end.

Comments

[Rsa97]

Чему равняется diff в первом вхождении в while?

[uliana00]

Что бы я ему не присваивала,все равно в ответе 1

[Rsa97]

uliana00, А чему равна степень корня n?

[uliana00]

Rsa97, в задании никак это не указано,просто n

[Rsa97]

uliana00, А какой тогда корень вы вычисляете? И чему равняется в первом вхождении в "саму формулу" значение yInDegree? И что за переменная i, зачем в цикле дважды делается её инкремент, если значение нигде не используется?

[uliana00]

Rsa97,
Переменная i используется в формуле,а дважды inc(i) это опечатка.

[Rsa97]

uliana00, Но n у вас не определена, как вы её используете в вычислениях?

[Rsa97]

begin
  write('x=');
  readln(x);
  write('n=');
  readln(n);
  write('EPS=');
  readln(EPS);
  i := 0;
  y := 1.0;
  repeat
    inc(i);
    yMinus1 := y;
    y := ((n - 1) * yMinus1 + (x / power(yMinus1, n - 1))) / n;
  until (Abs(y - yMinus1) < EPS) do
  write('y=',y:8:4);
  readln;
end.

[uliana00]

Rsa97, ну вот еще вариант,правда не уверена в его правильности
begin
write('x=');
readln(x);
write('n=');
readln(n);
write('EPS=');
readln(EPS);
i := 0;
y := 1.0;
yInDegree := 1.0;
repeat
inc(i);
yMinus1 := y;
y := ((1/n) * ((n-1) * y + (x/yInDegree)));
yInDegree := exp(n*ln(y));
diff := y - yMinus1;
until (Abs(diff) <= EPS);
write('y=',y:8:4);
readln;
end.

[Rsa97]

uliana00, Код неверный, неправильно вычисляется yInDegree.