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