Сколькими способами можно составить три пары из 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