高校问答儿童有声故事白雪公主:能给我个排列组合的程序吗(PASCAL语言)
来源：百度文库 编辑：高校问答 时间：2024/05/15 16:40:04
function fact(x:integer):longint;
var
i:integer;
r:longint;
begin
r:=1;
for i:=x downto 2 do
r:=r*i;
fact:=r;
end.
function P(x,y:integer):longint;
begin
P:=fact(x) div fact(x-y);
end.
function C(x,y:integer):longint;
begin
C:=fact(x) div fact(x-y) div fact(y);
end.
等两天给你。