Составьте программу вычисления числа сочетаний - VB
Формулировка задачи:
Составьте программу вычисления числа сочетаний из N По M. (С(N))^M=N!/(M!(N-M)!) ,где N- кол-во элементов перебора. Используйте подпрограмму вычисления факториала K! умоляю вас,кто сделает закину деньги на телефон,сделать надо сегодня-завтра.
Решение задачи: «Составьте программу вычисления числа сочетаний»
textual
Листинг программы
Private Sub Command1_Click()
Dim n As Integer, m As Integer
n = Val(InputBox("n=?", , 10))
m = Val(InputBox("m=?", , 4))
If n * m = 0 Or _
n <= m Then
MsgBox "!!!"
Exit Sub
End If
Cnm = faktorial(n) / (faktorial(m) * faktorial(n - m))
Label1 = Cnm
End Sub
Function faktorial(n As Integer) As Long
If n = 0 Then
faktorial = 1
Else
faktorial = n * faktorial(n - 1)
End If
End Function