主题：【求助】编写一个程序（加30分）
风之落叶
[专家分：40] 发布于 2007-05-13 16:47:00
编写一个程序，从7个数选4个数，用递归子程序写！
谢谢啦！！！！！
只要回帖，都打30分！
帮帮了！
回复列表 （共4个回复）
沙发
风之落叶 [专家分：40] 发布于 2007-05-13 16:48:00
5月18日之前！
板凳
万里长城 [专家分：340] 发布于 2007-05-13 17:02:00
因该用过程编。
3 楼
bigchen [专家分：1940] 发布于 2007-05-14 12:42:00
递归程序用过程
地球人都知道!
4 楼
游侠UFO [专家分：1200] 发布于 2007-05-26 20:02:00
排列组合问题
下面是我写的一个函数,不过没使用递归.
procedure combination(n,m:integer);
var
a:array[0..maxint] of integer;
i,j:integer;
begin
a[0]:=1;
for i:=1 to m do a[i]:=i;
while a[0]=1 do
begin
for i:=1 to m do write(a[i],' ');
writeln;
j:=m;
while a[j]=n-m+j do j:=j-1;
a[j]:=a[j]+1;
for i:=(j+1) to n do a[i]:=a[i-1]+1;
end;
end;
关于这些基本算法的代码及算法描述,我的BLOG上还有很多,大家可以去看看
http://blog.sina.com.cn/ufownl
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 【求助】编写一个程序（加30分）