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