Расчитывание суммы бесконечного ряда до определённого значения

[SLec]

Доброго времени суток. Надеюсь на вашу помощь.

Задание:
Составить программу и рассчитать сумму бесконечного ряда. Расчёт выполнить для значения E=1.4142. Сумирование прекратить когда очередной член ряда по модулю станет < E.

вот собственно сам пример:
1+ 1/2-1/(2*4)+3/(2*4*6)-(3*5)/(2*4*6*8)+(3*5*7)/(2*4*6*8*10)-…

програмирование на Microsoft Visual Studio 2005.

основная проблема состоит в том, чтобы представить пример в коде.

заранее спасибо.

[evg_m]

это не код а только алгоритм

sum:=0; fn:=1;
(j:=1; j:=j+2) sum:=sum+fn; fn:=fn*j/(j+1);

и не забыть про точность вычислений

[SLec]

да, точно, алгоритм. Спасибо.

Не поможите составить программу полностью? Я пытался, но моя программа не работает. Надо чтобы значения сумм появлялись в DataGridView при нажатии на кнопку.


Вот мой вариант:


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim eps, sum, fn As Double
Dim j As Integer
Me.DataGridView1.Rows.Clear()
eps = 1.4142
sum = 0
j = 1
fn = 1
Do While fn > eps
sum = sum + fn
fn = fn * j / (j + 1)
j = j + 2
Me.DataGridView1.Rows.Add()
Me.DataGridView1.Item(0, j - 2).Value = i
Me.DataGridView1.Item(1, j - 2).Value = CStr(sum)


Loop
End Sub
End Class

[SLec]

UP^^^^^^^^^^^^^^^^