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

邓金梁 · 发表于 2022-9-19 00:42:06

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

Suky · 发表于 2022-9-19 00:42:07

子程序名	返回值类型	公开	备注
_按钮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, 下载次数: 15)

Suky · 发表于 2022-9-19 01:06:45

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

一线之隔 · 发表于 2022-9-19 08:46:45

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

一线之隔 · 发表于 2022-9-19 09:46:08

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

		自动登录	找回密码
密码			注册

[完成] 寻找数组内几个数相加等于一个值

最佳答案

评分