Задание 10-11 информатика 5+3 б Дана последовательность чисел Стирлинга. Числа Стирлинга S(n,k) определены для 0≤k≤n и удовлетворяют следующим соотношениям: S(0,0)=1, S(n,0)=0 для n больше 0, S(n,n)=1 для n больше 0, Иначе S...
Задание
10-11 информатика 5+3 б
Дана
последовательность чисел Стирлинга. Числа Стирлинга S(n,k) определены для 0≤k≤n и удовлетворяют следующим
соотношениям:
S(0,0)=1,
S(n,0)=0 для n>0,
S(n,n)=1 для n>0,
Иначе S(n,k)=k*S(n-1,k)+S(n-1,k-1).
Для
n=15,
k=13
найти и вывести число Стирлинга S(n,k).
Гость
Ответ(ы) на вопрос:
ГостьА вот для этого и существуют рекурсивные функции!
function Stirling(n, k: longint): longint;
begin
if k = 0 then
if n = 0 then Stirling := 1 else Stirling := 0
else
if k = n then Stirling := 1
else Stirling := k * Stirling(n - 1, k) + Stirling(n - 1, k - 1)
end;
begin
Writeln(Stirling(15, 13))
end.
Результат выполнения программы:
4550
Не нашли ответ?
Похожие вопросы