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