Вычислить примерное значение бесконечной суммы - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
