Составьте программу вычисления числа сочетаний - 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

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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