Question

100高分求一组合函数或算法,最好是DELPHI的

输入参数:全部是个位数 一串数字或数组(含义,需要组合的数字,比如 1,2,3,4,5,6,7 ) 一个数字(含义:组合数字的个数,比如 2)

需要显示 (结果分行不分行也可,)
1,1|1,2|1,3|1,4|1,5|1,6|1,7|
2,2|2,3|2,4|2,5|2,6|2,7|
3,3|3,4|3,5|3,6|3,7|
4,4|4,5|4,6|4,7|
5,5|5,6|5,7|
6,6|6,7|
7,7|

又比如, 数字或数组是 1,2,3,4,5 组合数字的个数是 3
那么显示
1,1,1|1,1,2|1,1,3|1,1,4|1,1,5|1,2,2|1,2,3|1,2,4|1,2,5|1,3,3|1,3,4|1,3,5|1,4,4|1,4,5|1,5,5|
2,2,2|2,2,3|2,2,4|2,2,5|2,3,3|2,3,4|2,3,5|2,4,4|2,4,5|2,5,5|
3,3,3|3,3,4|3,3,5|3,4,4|3,4,5|3,5,5|
4,4,4|4,4,5|4,5,5|
5,5,5|
(结果全包括就好。)

Answer 1

这没有什么难的，用for循环完全可以搞定，如果你是只是输出，而不读取的话。如果要读取则需要把分隔符更换一下，不用|。

追问

如果我选择10个数组合岂不是要用10次循环，如果是50呢，岂不是50次循环，不可取。

追答

能用循环解决的问题为什么不用呢？就是循环一万次又怎么用呢？非要写长段代码吗？

追问

能不能写个通用的函数给我？

追答

容易的很嘛，不过也躺在床上很想了一会。
调试要点：
在界面上放一个标签组件label1,一个edit组件，一个memo组件，一个按钮。
edit组件用于输入最大值，比如你的第一个例子的最大值是7，第二个例子的最大值是5；
然后在按钮单击事件中写如下代码：
procedure TForm1.Button1Click(Sender: TObject);
var
zdz:integer;
i,j,n,k,m:integer;
s:string;
begin
zdz:=strToint(edit1.Text);//确保编辑框中是数字，必要是作是否数字检测

memo1.Clear;
for i:=1 to zdz do//你的数组不是三个元素吗，i是第一个元素
begin
n:=i;//第二个元素的起点值
s:='';
for j:=n to zdz do//j是第二个元素
begin
m:=j;//第三个元素的起点值
for k:=m to zdz do//第三个元素，如果你有四个元素呢，再套一个for循环，五个，再套一个，还要增加i,j,k,n,m这样的变量哦。
begin//一个元素一个元素的处理之后，再就是输出了
S:=S+intTostr(i)+','+intTostr(j)+','+intTostr(k)+'|';//请注意这里的写法，还要注意在最后一层循环时里咯
end;
end;
memo1.Lines.Add(s);//将组合结果输出到memo1
end;
end;
这有多少条语句，为什么不用循环，不用循环是答不了你这个题的,年纪轻轻的,办事不要有偏见,这样不好。
满意吧，结题给分吧

追问

我的意思是能不能用递归或其他办法实现。现在我自己实现了。

Answer 2

唉，智商不行啊。
用DELPHI写了半天，上面的实现了，下面要3位的甚至更多位的搞不定了。
等高手看看。

Answer 3

C/C++行不行？行得话我回答

追问

只要符合要求，是一个函数组合个数k是函数参数就可（k=6,7....等等）

Answer 4

可以用二进制的方式来暴力枚举.
思路如下:
1, 先把数组中的数据去重,
2, 每个去重的数扩充三个, 比如1,2,3 扩充为1,1,1,2,2,2,3,3,3
3, 用同样长度的二进制 000000000 一个一个地累加到 111111111
4, 每次计算, 把这个长度为二进制的转换成字符串,再转换成9个数字,相加,
5, 当4中的求和=3时, 即为目标值.
效率未知