Сколькими способами можно составить три пары из n шахматистов - VBA

Узнай цену своей работы

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

1. В правление избрано m человек. Из них надо выбрать председателя, секретаря и казначея. Сколькими способами это можно сделать? 2. Сколькими способами можно составить три пары из n шахматистов??? 3. Сколькими способами можно выбрать 5 номеров из 36??? Решение задачи в виде пользовательской функции Microsoft Excel на языке VBA, в которой а качестве аргументов передаются исходные данные. Функция возвращает единственное значение - решение задачи.

Решение задачи: «Сколькими способами можно составить три пары из n шахматистов»

textual
Листинг программы
Sub combine()
Const m = 4  'число членов правления
Const n = 6  'число шахматистов
Dim d As Variant
 
    d = (m - 2) * (m - 1) * m / (1 * 2 * 3)
MsgBox "3 человека из " & m & ". Количество способов выбора: " & d
 
    d = 0.25 * (n - 4) * (n - 3) * (n - 5) * (n - 4)
MsgBox "3 пары шахматистов из их общего числа " & n & ". Количество вариантов: " & d
 
    d = 36 / (1 * 2 * 3 * 4 * 5) * 32 * 33 * 34 * 35
MsgBox "5 номеров из 36. Количество вариантов: " & d
End Sub

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

12   голосов , оценка 4.5 из 5
Похожие ответы