Перестановки, Олимпиадная задача Опции

[roma]

Расмотрим строфу стихотоворного текста, состоящую из N строчек.
Любая строка рифмуется хотя бы с одной другой.
Нужна зная число n вывести все возможные схемы рифмовки.

Пример: n=4 - 4 схемы. Это схемы AABB, ABAB, ABBA и AAAA.

Может кто-нибудь подкинет идею.

P. S. ДОЖ и Altair , К своему стыду не могу сформулировать кратко идею данной задачи

[Дож]

Function stih(n:integer):integer;
Var i,r:integer;
i:=n; r:=0;
While i>2 do begin
r:=r+Choose(n-1,i-1)*stih(n-i);
end;
stih:=r
end;

(Где Choose(n,k)- кол-во способов выбрать k из n, как такую функцию написать см. FAQ)
_____________________________________________________________________
Ой, в проге ошибка!

После строки r:=r+Choose(n-1,i-1)*stih(n-i); нужно поставить dec(i);

Сообщение отредактировано: Дож - 5.12.2005 20:16