Программа вычисления суммы первых n членов последовательности - VB

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

сумма от 3 до n выражение (k^3)/(k!)http://informatic.ugatu.ac.ru/lib/VB...s/image006.gif Что я проглядел?

Private Sub Command1_Click()
summa = 0
y = 0
fact = 1
n = Val(Text1)
For i = 3 To n
fact = fact * i * 2
y = (i ^ 3) / fact
summa = summa + y
i = i + 1
Next i
Picture1.Print n
Picture1.Print summa
End Sub

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

textual
                            Листинг программы 
                        
                            Debug.Print i, fact, Y, summa
Next i

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

13 голосов , оценка 4.077 из 5

Похожие ответы