Как вычислить (n!)/ (k!*(n-k)!) с использованием отдельных функций - VB

Формулировка задачи:

Здравствуйте. не могли бы вы мне помочь с написанием программы для вот этого (n!)/ (k!*(n-k)!) с использованием отдельных функций спасибо

Решение задачи: «Как вычислить (n!)/ (k!*(n-k)!) с использованием отдельных функций»

textual
                            Листинг программы 
                        

                            Function BinCoeff(n As Integer, k As Integer) As Long
    If k > n Then
       BinCoeff = 0
    ElseIf (k = n) Or (n <= 1) Or (k = 0) Then
       BinCoeff = 1
    Else
       BinCoeff = BinCoeff(n - 1, k - 1) + BinCoeff(n - 1, k)
    End If
End Function
 
Sub Test()
    For i% = 0 To 20
        Debug.Print BinCoeff(20, i%)
    Next i%
End Sub
                        

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

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

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