主题：答对有分加！！！！
6yangweihua
[专家分：180] 发布于 2005-06-23 19:16:00
把正整数M分解成N个正整数之和（注意：！！！用递归，DG（X，Y，Z：INTEGER），Z表示个数，Y表示前一个数！！）
回复列表 （共5个回复）
沙发
cuzn1024 [专家分：4050] 发布于 2005-06-24 11:14:00
组合数学问题!
板凳
辣椒三号 [专家分：0] 发布于 2005-06-29 20:20:00
[em2][em2]加多少?[em12]
3 楼
QQ331373582 [专家分：1500] 发布于 2005-10-15 10:11:00
var n,t:integer;
procedure dg(z:integer;s:string);
var i:integer;
c:string;
begin
if x=n then begin
writeln(t:5,' ',n,'=',copy(s,l,length(s)-1));
end else begin
for i:=1 to n do begin
str(i,c);
dg(n-i,s+'c');
end;
begin
t:=0;
readln(n);
dg(n,'');
end.
4 楼
QQ331373582 [专家分：1500] 发布于 2005-10-15 10:11:00
+++++分
5 楼
wywy [专家分：340] 发布于 2005-10-17 13:30:00
第 3 楼
var n,t:integer;
procedure dg(z:integer;s:string);
var i:integer;
c:string;
begin
if x=n then begin
writeln(t:5,' ',n,'=',copy(s,l,length(s)-1));
end else begin
for i:=1 to n do begin
str(i,c);
dg(n-i,s+'c');
end;
begin
t:=0;
readln(n);
dg(n,'');
end.
好歹加个分吧！
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 答对有分加！！！！