Вычислить сумму 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