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