寻找数组内几个数相加等于一个值

邓金梁

任意给定一组数，例如{12,60,99,15,35,17,18},找出任意数相加之后的结果为我设置的数值(任意设定)的情况,允许小于我设置的数值百分之5内例如我设定35：12+8+15; 35; 17+18;15+17(取最少成员相加的，返回这几个相加成员对应数组的位置)

Suky

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文本组	文本型		0
数组	整数型		0
n	整数型

编辑框2.内容 ＝ “”
文本组 ＝ 分割文本 (编辑框1.内容, “,”, )
计次循环首 (取数组成员数 (文本组), n)
如果真 (文本组 [n] ≠ “”)
加入成员 (数组, 到整数 (文本组 [n]))

计次循环尾 ()
调试输出 (数组)
子集生成 (数组)

子程序名	返回值类型	公开	备 注
子集生成
参数名	类 型	参考	可空	数组	备 注
arr	整数型				限制最大长度31

变量名	类 型	静态	数组	备 注
len	整数型
i	整数型
n	整数型
结果数组	整数型		0
j	整数型

len ＝ 取数组成员数 (arr)
计次循环首 (len, i)
n ＝ 位或 (n, 左移 (1, i － 1))
计次循环尾 ()
变量循环首 (1, n, 1, i)  ' 起始值需要空集填0，不要空集填1
清除数组 (结果数组)
计次循环首 (len, j)
如果真 (位与 (i, 左移 (1, j － 1)) ≠ 0)
加入成员 (结果数组, arr [j])

计次循环尾 ()
调试输出 (结果数组)
判断处理 (结果数组)  ' 每个生成的子集判断是否符合条件
变量循环尾 ()
返回 ()

子程序名	返回值类型	公开	备 注
判断处理
参数名	类 型	参考	可空	数组	备 注
结果数组	整数型

变量名	类 型	静态	数组	备 注
参考数	整数型
差值	整数型
误差值	双精度小数型
和值	整数型
加入文本	文本型
n	整数型

计次循环首 (取数组成员数 (结果数组), n)
和值 ＝ 和值 ＋ 结果数组 [n]
计次循环尾 ()
参考数 ＝ 到整数 (编辑框3.内容)
如果真 (和值 ＞ 参考数)
返回 ()
差值 ＝ 参考数 － 和值
误差值 ＝ 到数值 (编辑框4.内容)
如果真 (差值 ÷ 参考数 ≤ 误差值)
加入文本 ＝ 到文本 (结果数组 [1])
计次循环首 (取数组成员数 (结果数组) － 1, n)
加入文本 ＝ 加入文本 ＋ “,” ＋ 到文本 (结果数组 [n ＋ 1])
计次循环尾 ()
编辑框2.加入文本 (加入文本 ＋ #换行符 )

返回 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本组, 文本型, , "0"<br /> .局部变量 数组, 整数型, , "0"<br /> .局部变量 n, 整数型<br /> <br /> 编辑框2.内容 ＝ “”<br /> 文本组 ＝ 分割文本 (编辑框1.内容, “,”, )<br /> .计次循环首 (取数组成员数 (文本组), n)<br />     .如果真 (文本组 [n] ≠ “”)<br />         加入成员 (数组, 到整数 (文本组 [n]))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (数组)<br /> 子集生成 (数组)<br /> <br /> .子程序 子集生成<br /> .参数 arr, 整数型, 数组, 限制最大长度31<br /> .局部变量 len, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 结果数组, 整数型, , "0"<br /> .局部变量 j, 整数型<br /> <br /> len ＝ 取数组成员数 (arr)<br /> .计次循环首 (len, i)<br />     n ＝ 位或 (n, 左移 (1, i － 1))<br /> .计次循环尾 ()<br /> .变量循环首 (1, n, 1, i)  ' 起始值需要空集填0，不要空集填1<br />     清除数组 (结果数组)<br />     .计次循环首 (len, j)<br />         .如果真 (位与 (i, 左移 (1, j － 1)) ≠ 0)<br />             加入成员 (结果数组, arr [j])<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     调试输出 (结果数组)<br />     判断处理 (结果数组)  ' 每个生成的子集判断是否符合条件<br /> .变量循环尾 ()<br /> 返回 ()<br /> <br /> .子程序 判断处理<br /> .参数 结果数组, 整数型, 数组<br /> .局部变量 参考数, 整数型<br /> .局部变量 差值, 整数型<br /> .局部变量 误差值, 双精度小数型<br /> .局部变量 和值, 整数型<br /> .局部变量 加入文本, 文本型<br /> .局部变量 n, 整数型<br /> <br /> .计次循环首 (取数组成员数 (结果数组), n)<br />     和值 ＝ 和值 ＋ 结果数组 [n]<br /> .计次循环尾 ()<br /> 参考数 ＝ 到整数 (编辑框3.内容)<br /> .如果真 (和值 ＞ 参考数)<br />     返回 ()<br /> .如果真结束<br /> 差值 ＝ 参考数 － 和值<br /> 误差值 ＝ 到数值 (编辑框4.内容)<br /> .如果真 (差值 ÷ 参考数 ≤ 误差值)<br />     加入文本 ＝ 到文本 (结果数组 [1])<br />     .计次循环首 (取数组成员数 (结果数组) － 1, n)<br />         加入文本 ＝ 加入文本 ＋ “,” ＋ 到文本 (结果数组 [n ＋ 1])<br />     .计次循环尾 ()<br />     编辑框2.加入文本 (加入文本 ＋ #换行符)<br /> .如果真结束<br /> <br /> 返回 ()

Suk_Demo.e (5.83 KB, 下载次数: 18)

2022-9-19 22:41 上传

点击文件名下载附件

拿去玩吧    用到了大佬@神女软件定制 的  子集生成源码
【分享源码】子集生成算法
https://bbs.125.la/forum.php?mod=viewthread&tid=14709737
(出处: 精易论坛)


补充内容 (2022-9-19 22:45):
懒得改他数组类型那些   ， 所以前后额外进行了数组元素的类型转换，改子集生成的类型的话，就可以少掉转换步骤提高效率

补充内容 (2022-9-19 23:13):
附件比贴出的源码只多出了组件：编辑框1、2、3、4和按钮1，可以不要下载，复制代码过去就行了

Suky

方案一：
①M选N不重复，N从1个到数组总数，取全部排列
②所有组合计算和，取结果符合条件的组合
方案二：
①源数组排序后，先

一线之隔

数组内的数据可能需要稍微处理一下，返回原数组下标，可以改改

一线之隔

M选n排列所有可能的组合，再依次计算，判断范围