保密委员会组织机构图:能给我个排列组合的程序吗(PASCAL语言)
来源:百度文库 编辑:神马品牌网 时间:2024/05/04 07:54: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.
等两天给你。