Вычислить примерное значение бесконечной суммы - VB

Формулировка задачи:

вычислить примерное значение бесконечной суммы 1/1*2+1/2*3+1/3*4+...

Решение задачи: «Вычислить примерное значение бесконечной суммы»

textual
                            Листинг программы 
                        

                            Sub aaa()
Dim S As Double, I As Double
I = 1
Do While S < (S + 1 / I / (I + 1))
  S = S + 1# / I / (I + 1)
  I = I + 1
Loop
MsgBox S
End Sub
                        

Оцени полезность:

6 голосов , оценка 3.333 из 5

Похожие ответы