Вычислить значение выражения S, включающего 20 членов - VB

Узнай цену своей работы

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

Вычислить значение выражения S, включающего 20 членов. S=(2*5)/(3*6)+(3*6)/(4*7)+(4*7)/(5*8)+(5*8)/(6*9)... Ответ:S=16.49596

Решение задачи: «Вычислить значение выражения S, включающего 20 членов»

textual
Листинг программы 
Private Sub Command1_Click()
Dim s!, i%
s = 0
For i = 1 To 20
s = s + (i + 1) * (i + 4) / (i + 2) / (i + 5)
Next i
MsgBox s
End Sub

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

11   голосов , оценка 3.909 из 5