Помогите найти сумму бесконечного ряда(паскаль)

[Galaxy2]

Не могу найти сумму бесконечного ряда.
http://i.imgur.com/FuJ9HuI.png
Вот задание
Я примерно написал, но не работает
Значения суммы ряда и функции для проверки не сходятся
Уже не знаю, что делать
Помогите

[type_Oleg]

Сообщение от Galaxy2

Я примерно написал

А что именно?
Кстати, уже 100500 раз здесь делали подобное.
Все сходится, я проверил в Ecxel, потребовалось 3 минуты.

[Galaxy2]

Сообщение от type_Oleg

А что именно?
Кстати, уже 100500 раз здесь делали подобное.
Все сходится, я проверил в Ecxel, потребовалось 3 минуты.

http://i.imgur.com/7wZq2fp.png
http://i.imgur.com/jIKuSqd.png

[ViktorR]

А что написано?
Посмотри вложение Work.rar тут:
http://www.programmersforum.ru/showthread.php?t=300599

PS: Обрати внимание на то, что ряд знакопеременный!

Как-то так, ...

[type_Oleg]

Измените вот так, и будет щастье:

while  Abs(r)>e do          // иначе зачем вам константа e
  begin
   Inc(i);
   r:=-r*x*x/(2*(i-1)*(2*i-1));  // минус впереди

PS. И зачем так мудрено с типами ?
Это не ошибка, просто странно..