杭州交通信息网工商银行开基本户费用:能给我个排列组合的程序吗(PASCAL语言)
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/12 19:41:30
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.
等两天给你。