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