программа на иттарационные циклы

[figovproger]

Помогите доделать программку на иттарационные циклы.
Нужно на паскале,пробовал разными способами, программа ни чего не считает. Вот мой код:
var e,sum,x,k:real;i,n:integer;
begin
readln(e,x);
n:=1;
while k>e do
begin
for i:=1 to n do
k:=exp(n*ln(-1))*exp(2*n*ln(x))/(n-1)*(n-1);
sum:=sum+k;
n:=n+1;
end;
write(sum:2:2);
end.
Я думаю ошибка здесь "exp(n*ln(-1))". Нужно что нибудь придумать, мне кажется чётность, нечётность сделать, но как? Помогите
http://www.programmersforum.ru/attac...1&d=1196081863 -задача

[Stilet]

(n-1)*(n-1);

просто sqr(n);
И еще в начале "к" ничему не равно. Т.е. изначально оно у тебя =0, а е больше него, потому в цикл даже не входит

Только я чет не понял причем тут бесконечность...

[figovproger]

Только я чет не понял причем тут бесконечность...

цикл повторяется до бесконечности, то есть сначала n=1, потом 2, и до бесконечности...

просто sqr(n);

это понятно,не в том суть...

я пробовал разными способами, ошибка в моей формуле, незнаю как релизовать, Ln(-1) не может быть, нужно смотреть степень n чётная или нет, а вот как реализовать .......

[Stilet]

Тут наверное луче отдельной функой,
if n mod 2=0 then result:=exp(n*Ln(1)) else result:=-exp(n*Ln(1))
ну типа этого

[figovproger]

попробовал, выдаёт ошибку Division by zero,после ввода значений e и x, чё йет? вот код:
var e,sum,x,k,t:real;i,n:integer;
begin
readln(e,x);
n:=1;
if n mod 2=0 then t:=exp(n*ln(1)) else t:=-exp(n*ln(1));
k:=t*exp(2*n*ln(x))/(n-1)*(n-1);
while k>e do
begin
for i:=1 to n do
k:=-1*x*n*n/sqr(n+1);
sum:=sum+k;
n:=n+1;
end;
write(sum:2:2);
end.

[figovproger]

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

program test;
var e,sum,x,k,o,ost:real;n:longint;
begin
    readln(e,x);
    n:=1;
    sum:=0.0;
    o:=-1*x*x;
    ost:=1;
    {cycle begin}
    repeat
        ost:=ost*o;
        k:=ost/(n*n);
        sum:=sum+k;
        n:=n+1;
    until abs(k)<e;
    {cycle end}
    writeln(sum,' k=',k,' n=',n);
end.

[Patriot]

Помогите решить задачку:

Вычислить значение суммы с точностью до e :