谁能帮忙写出这个算法。(100分)

Z

zhuangjunx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-30

• #1

从1到自然数y,求从1-y中选择m个数字,这m个数字的和等于S的组合,并输出结果到文本文件.其中每一个组合中数字不重复.其中,Y,M,S 由用户输入.
比如
y=10 m=3 s=15
1-10的数字
结果是
2+5+8
3+4+8
6+7+2
4+5+6
这样，每个组合中数字不能重复。

 

J

jxgxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-30

• #2

你是要c#的代码还是delphi的?

 

Z

zhuangjunx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-30

• #3

Ｃ＃的吧。
如果不麻烦，两个都帮我写一下。谢谢。

 

H

hunter103

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-12-01

• #4

procedure printer(var a:array of integer);
var
str:string;
i:integer;
begin
for i:=1 to a[0]do
str:=str+inttostr(a)+' ';
form1.ListBox1.Items.Add(str);
//打印出数据
end;
function GetArrayVal(var a:array of integer):integer;
var
i:integer;
begin
result:=0;
for i:=1 to A[0]do
result:=Result+A;
end;

procedure GetNubArray(y,M,S:integer);
var
Narray:array [0..1024] of integer;
i,j,k:integer;
pos:integer;
Stemp:integer;
begin
i:=1;
Narray[0]:=1;
Narray[1]:=1;
for j:=2 to Mdo
Narray[j]:=0;
while(true)do
begin
if Narray[1]>y-m then
break;
pos:=Narray[0];
Stemp:=GetArrayVal(Narray);
if (Stemp>=S) then
begin
if (M=pos) and (Stemp=S) then
Printer(Narray);
Narray[0]:=pos-1;
Narray[pos-1]:=Narray[pos-1]+1;
continue;
end;
if Stemp<s then
begin
/////////////////
if pos<M then
begin
if Narray[pos]<y then
begin
Narray[0]:=pos+1;
Narray[pos+1]:=Narray[pos]+1;
end
else
begin
Narray[0]:=pos-1;
Narray[pos-1]:=Narray[pos-1]+1;
end;
end;
////////////
/////////////////
if pos=M then
begin
if Narray[pos]<y then
begin
Narray[pos]:=Narray[pos]+1;
end
else
begin
Narray[0]:=pos-1;
Narray[pos-1]:=Narray[pos-1]+1;
end;
end;
////////////
end;
end;
end;

 

H

hunter103

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-12-01

• #5

调用方法
GetNubArray(15,3,25);

 

Z

zhuangjunx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-12-01

• #6

多人接受答案了。