Задание

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