составить в VBA, используя подпрограмму:
Составить программу вычисления суммы: 1! + 2!+3! + ... +n!
Аноним:
Странно, в профиле язык русский, 18 лет, а выражаетесь не по-русски... Как можно что-то "составить через"?
"Через" можно перешагнуть, через можно что-то пропустить (например, через фильтр).
Извиняюсь, заработался
Милое дело! Сейчас напишу)
Огромное вам спасибо)
пожалуйста)
Ответы
Ответ дал:
1
Function fact(n As Integer) As Long
Dim i As Integer, p As Long
p = 1
For i = 2 To n
p = p * i
Next i
fact = p
End Function
Sub Test()
Dim n As Integer, s As Long, i As Integer
s = 0
n = CInt(InputBox("Введите число n"))
For i = 1 To n
s = s + fact(i)
Next i
MsgBox s
End Sub
Dim i As Integer, p As Long
p = 1
For i = 2 To n
p = p * i
Next i
fact = p
End Function
Sub Test()
Dim n As Integer, s As Long, i As Integer
s = 0
n = CInt(InputBox("Введите число n"))
For i = 1 To n
s = s + fact(i)
Next i
MsgBox s
End Sub
я думаю вы поторопились с ответом) там у вас считает просто факториал, а нужно суммировать факториалы
Да....точно, сейчас сделаем!
Похожие вопросы
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад