【求助】5个数的和为30的组合

[manfredliu]

有5个数，每个数都是1-9之间，他们相加等于30
求：1、有多少种组合？2、具体是什么？

[gosyzj]

最笨的办法，5次FOR循环

[亮剑_]

范围不大，穷举法可行

[hjkto]

这种代码以前看过
忘记了 ，哪位有时间发一下代码学习一下？

[捧剑者]

背包问题。用递归。

[manfredliu]

这些我都了解哦，关键是代码

[liugaohui]

顶一下

[kaikai_kk]

最大数字9,数据不算大,5次循环就行:

var
k,k1,k2,k3,k4,k5:Integer;

ListBox1.Items.Clear;
ListBox1.Items.Add('1..9任取5个数之和等于30组合如下:');
For k1:= 1 To 9 do
For k2:= k1+1 To 9 do
For k3:= k2+1 To 9 do
For k4:= k3+1 To 9 do
For k5:= k4+1 To 9 do
If (k1 + k2 + k3 + k4 + k5) = 30 Then
begin
ListBox1.Items.Add(intTostr(k1) +' '+ intTostr(k2) +' '+ intTostr(k3) +' '+ intTostr(k4)+' '+ intTostr(k5));
inc(k);
end;
ListBox1.Items.Add('共 '+intTostr(k)+' 个组合');