Вычислить и вывести таблицу значений с=n!/k!(N-k)! - VB

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

Вычислить и вывести таблицу значений с=n!/k!(N-k)! для n=2...8 b k=1...(n-1). Для расчета факториала применить подпрограмму....как ее делать вообще не знаю преподователь даже лекцию не читал по этой теме

Решение задачи: «Вычислить и вывести таблицу значений с=n!/k!(N-k)!»

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

                            Private Sub Command1_Click()
Dim n As Integer, k As Integer
Dim c As Single, answer
answer = ""
For n = 2 To 8
For k = 1 To n - 1
c = Factorial(n) / (Factorial(k) * Factorial(n - k))
answer = answer & "n=" & n & Space(5) & "k = " & k & Space(5) & "c= " & c & Chr(13)
Next k
Next n
MsgBox answer
End Sub
Function Factorial(x)
Factorial = 1
For i = 2 To x
Factorial = Factorial * i
Next i
End Function
                        

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

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

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