Pascal ошибка при вычислении суммы ряда с заданной точностью

[RavenGuitarist]

Ну,вобщем я разобрался,но вот тут возник такой ступор.Пишет непонятную ошибку,и не пойму почему.Вроде ж должно работать.
Посмотрите кто шарит,плиз.
Задание и код программі вместе с ошибкой- в документе.
Ну и тут кину:

Program A4;
const eps=0.0001;
var a,S: real; n: longint;
begin
     S:=0; n:=1; a:=1;
     while abs(a)>=eps do
     begin
          if odd(n) then S:=S-a else S:=S+a;
          n:=n+1;
          a:=exp(ln(-1)*n)*(sqrt(n+1))/(sqrt((n*n*n)+1));
     end;
     writeln('Ñóìà=',S:6:10);
     writeln('ê³ëüê³ñòü ÷ëåí³â - ',n:3);
     writeln('a=',a:6:10);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

даже не заглядывая внутрь.

объясните, каким образом Вы собираетесь вычислить
ln(-1) ?!

[RavenGuitarist]

А как мне в таком случае записать степень,если не через ln?

[Serge_Bliznykov]

-1 в степени n ?
дык элементарно.

Вариант первый (плохой!!), "в лоб" n раз умножить -1
Вариант второй (хороший): заметить, что
(-1)^n = -1 (для всех нечётных n)
(-1)^n = 1 (для всех чётных n)

пойдёт?..

if odd(n) then S:=S-a else S:=S+a;

Это, так Вы уже это почти воплотили!...


ДОБАВЛЕНО

я бы такой вариант предложил:

program A4;
const eps = 0.0001;
var a, aprev, S: real; n: longint;
begin
  S := 0; n := 0;
  a := 0;
  repeat
    n := n + 1;
    aprev := a;
    a := sqrt(n + 1) / sqrt((n * n * n) + 1);
    if odd(n) then S := S - a else S := S + a;
    {    writeln('Отладка: n = ', n: 3, ' a= ', a); }
  until abs(a-aprev) < eps;
  writeln('Сумма=', S: 6: 10);
  writeln('Количество итераций n = ', n: 3);
  writeln('Последний вычисленный a = ', a: 6: 10);
  readln;
end.

[RavenGuitarist]

О!Так и правда лучше!Сказали что ваш вариант подходит!
Большое спасибо за помощь!Можно тему закрывать.