门头沟 王平镇 地图:能给我个排列组合的程序吗(PASCAL语言)

来源：百度文库 编辑：高考问答 时间：2024/05/14 05:58:13

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.

等两天给你。

能给我个排列组合的程序吗(PASCAL语言) 谁能给我个下载pascal 的地址，然后告诉我怎么安装? 我的PASCAL的程序问题 那位朋友给我列出1-9个数字的排列组合 谁用pascal帮我写个简单的程序，急啊！！ 寻找1个能显示排列组合结果的软件 我正研究PHP上传程序,谁能给个完整的程序我 谁能给我NOI2005第一题（维护数列）的源程序[pascal的]，谢谢 [PASCAL]谁能给我详细地讲一讲“聪明的打字员”（NOI2001）? 排列组合程序