Вычислить сумму n элементов числового ряда - VB (60253)

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

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

Вычислить сумму n элементов числового ряда S=(45+22/40)+(46-23/41)+(47+24/42)+(48-25/43)+…

Решение задачи: «Вычислить сумму n элементов числового ряда»

textual
Листинг программы
Private Sub Command1_Click()
    Dim S As Single, n As Integer, i As Integer
       
    n = InputBox("n = ", , 10)
    
    For i = 0 To n - 1
          S = S + ((45 + i) + ((-1) ^ i) * ((22 + i) / (40 + i)))
    Next i
    
    MsgBox S
End Sub

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


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

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

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