Вычислить примерное значение бесконечной суммы - 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

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

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

6   голосов , оценка 3.333 из 5
Похожие ответы