主题：凑数
abdyxfjlty
[专家分：0] 发布于 2011-02-14 21:42:00
有一组数值型数据，1-10共十个数字，我想编一个程序，凑出来的数字是15,限1到10内每个数字只能加一次，有哪位高手能帮忙一下吗
回复列表 （共2个回复）
沙发
文文1999 [专家分：0] 发布于 2011-02-17 19:45:00
楼主，我有点没看明白，你的加法中有几个加数的限制吗？是想把所有的可能都找到吗？
板凳
hlsjzjh [专家分：0] 发布于 2011-04-24 19:37:00
clea
for i1=1 to 10
for i2=i1+1 to 10
if i1+i2=15
?str(i1,2)+'+'+str(i2,2)+'=15'
endi
for i3=i2+1 to 10
if i1+i2+i3=15
?str(i1,2)+'+'+str(i2,2)+'+'+str(i3,2)+'=15'
endi
for i4=i3+1 to 10
if i1+i2+i3+i4=15
?str(i1,2)+'+'+str(i2,2)+'+'+str(i3,2)+'+'+str(i4,2)+'=15'
endi
for i5=i4+1 to 10
if i1+i2+i3+i4+i5=15
?str(i1,2)+'+'+str(i2,2)+'+'+str(i3,2)+'+'+str(i4,2)+'+'+str(i5,2)+'=15'
endi
endf
endf
endf
endf
endf
retu
我来回复
您所在位置：社区首页 — Visual Foxpro讨论区 — 凑数