表1

a    23
b    5
c    17
d    12
e    4
f    21
g    10

将上述7个数字分组求和，每组数字个数不限，和小于或等于30

谢谢

[此贴子已经被作者于2017-6-28 20:19编辑过]

这是老师布置作业来了。

求高手指教

1、这种组合不止一种，要看是只想要其中一种，还是其中几种，还是所有的都要。

2、每组数字个数不限，也就是单个数字独立成组也可以的，是不是？还是必须至少每组2个数字？这些都是题目中没交代清楚的地方。

清楚的表达是获取理解的前提

从n个数中取出m个数的和等于k的组合
好象以前有贴，找找。

他这个很多
1、C(2,7)=(7*6)/(2*1)
2、C(3,7)=(7*6*5)/(3*2*1)
3、C(4,7)=(7*6*5*4)/(4*3*2*1)
估计到4个就超了，然后再判断和

**
** 从m个数中取出n个数的和等于k的组合
**
CLEAR
CREATE CURSOR dd (cc C(254))
m = 7
k = 30
DIMENSION aa[m]
aa[1] = 23
aa[2] = 5
aa[3] = 17
aa[4] = 12
aa[5] = 4
aa[6] = 21
aa[7] = 10
ASORT(aa)
_f(@aa, k)
GO TOP
BROWSE
RETURN

FUNCTION _f(aa, k)
    LOCAL i
    FOR i = 1 TO ALEN(aa)
        IF aa[i] > k
            EXIT
        ENDIF
    ENDFOR
    DIMENSION aa[i-1]
    FOR i = 1 TO ALEN(aa)
        LOCAL bb[i]
        _ff(@aa, @bb, i, 1, 1, k)
    ENDFOR
ENDFUNC

FUNCTION _ff(aa, bb, n, ai, bi, k)
    LOCAL i, dd
    IF (n == 0)
        dd = bb[1]
        ss = TRANSFORM(bb[1])
        FOR i = 2 TO bi-1
            dd = dd + bb[i]
            ss = ss + "," + TRANSFORM(bb[i])
        ENDFOR
        IF dd == k
            INSERT INTO dd VALUES (ss)
        ENDIF
        RETURN
    ENDIF
    FOR i = ai TO ALEN(aa) - (n-1)
        bb[bi] = aa[i]
        _ff(@aa, @bb, n-1, i+1, bi+1, k)
    ENDFOR
ENDFUNC

[此贴子已经被作者于2017-6-30 20:36编辑过]

回贴留着学习

吹版，如果把这几个数字按最相近的和进行组合，有办法吗？对应现实问题是尾数考场的最佳混合问题。假设楼主所列数字为尾数考场的数字，那么混合考场的搭配为4个混合考场，人数分别是23,22(17+5),22(12+10),21。