Программа по дискретной математике на Delphi или pascal

[Bender333]

Здравствуйте, очень требуется помощь в решении задачи на Delphi или Pascal, просто очень очень я от нее завишу )

Дано: n и k n<k

|{a,b,c,d}|=n

Найти:
1)
а) Кол-во перестановок Pn=n!
б) Варианты перестановок abcd abdc a....

2)
a) Кол-во сочетаний (Сn)^k= n!/K!(n-k)!
б) Варианты

ab bc cd
dc bd
ad
3)
a) Кол-во размещений

An^k=n!/(n-k)!

в) Варианты

ab bc cd | ba cd dc
ac db | ca db
ad | da


Ps: ^-степень не нашел другого способа как обозначить

[Тупой]

вот функция, которая вычисляет число сочетаний из н по к (без всеми любимого факториала, который делает её неработоспособной)

function comb(n: integer;k: integer):integer;
i: integer;
t: integer;
begin
 t:=1;
 for i:=1 to k do
   t:=t*(n-i+1)/i;
result:=t;
end;

[Bender333]

Спасибо друг, а что насчет остального есть хоть какие нибудь мысли?

[Тупой]

у меня есть. А у тебя?

ПС: ща, погоди, а тебе не только ЧИСЛО сочетаний/размещений/перестановок, но и всякие ВАРИАНТЫ с ними нужно найти?


ну, короче, дам наводящую мысль:
Для того, чтобы найти ЧИСЛО размещений и перестановок, тебе осталось написать только факториал (через рекурсию, или нет, решай сам). Так ты найдешь число перестановок.
Число сочетаний у тебя есть.
Для того, чтобы найти число размещений, нужно число сочетаний, умножить на число перестановок (ну, я думаю, это очевидно).
Как умножить 2 числа, я думаю ты сообразишь.

А вот, как изобразить всевозможные варианты, то это нужно подумать мальца...

[Bender333]

Друг спасибо тебе огромное за подсказку, если вспомнишь "А вот, как изобразить всевозможные варианты, то это нужно подумать мальца..." то пожалуйста напиши =) спасибо!!!

[Тупой]

ктото на этом форуме уже выкладывал эту ссылку при решении похожей задачи:
глянь тут