Ошибка

[Romeshek]

Задание: (x^1)/1-(x^3)/3+...+(-1)^n*(x^2*n-1)/2*n-1=k
Сначала мы вводим k,затем все остальное. Оно будет считать до тех пор, пока сумма не будет > или = k.

Не могу понять, почему оно считает до бесконечности числа, а не заканчивается на k, которое я введу с клавиатуры. Либо у меня в самих вычислениях ошибка , либо еще в чем-то.

Что мне нужно исправить и где, чтобы все считало правильно?

Program Apple;
Var  
    k,z,x,power,i : integer;
    sum : real; 
Begin
         sum := 0;
         power := 1;
         z:= 1;
         Write ('Укажите К: ');
         Readln (k);
  writeln('Введите x');
  readln(x);
Repeat
         z:=z+1;
         writeln;
         Writeln ('Степень: ',power);
         Writeln ('Число Z: ',z);

 SUM := SUM + z*(-1) * (exp(power*ln(x)) / power);
         Writeln ('Результат: ',sum:2:1);
         power := power+2;                 
Until (sum>=k); 
End.

[Аватар]

А какие x и k? Не для любых x сумма сходится, а если и сходится, то совсем не обязательно к числу больше k

[Romeshek]

x и k мы берем произвольные

[Аватар]

Ну тогда почитай про суммы числовых рядов, их сходимость или не сходимость и пределы

[min@y™]

read me

[Romeshek]

Благодарю, пойду ознакомлюсь

[Romeshek]

Довольно интересная статья