Рассмотрим вариант решения задания из учебника Босова, Босова 11 класс, Бином: 12. Напишите программу вычисления. Используйте подпрограмму. Число сочетаний без повторений из n по k – это число способов, сколькими можно из различных n элементов выбрать k штук без учета порядка. Подпрограмму-функцию можно сделать для вычисления факториала. Ее можно сделать двумя способами: с использованием рекурсии и без рекурсии. С рекурсией function F(m: integer): integer; begin if m = 0 then F := 1 else F := F(m - 1) * m; end; var n, k: integer; C:real; begin writeln('Введите n и k через пробел, n > k '); readln(n, k); C := F(n) / (F(n - k) * F(k)); writeln('C=', C) end. Программа: Z_9_12_R.pas (ссылка ниже) Без рекурсии function F(m: integer): integer; var i,fa: integer; begin fa:=1; for i := 1 to m do fa := fa * i; F:=fa end; var n, k: integer; C: real; begin writeln('Введите n и k через пробел, n > k '); readln(n, k); C := F(n) / (F(n - k) * F(k)); writeln('C=', C) end. Программа: Z_9_12.pas (ссылка ниже)
