给出几个数，从中任取几个数让他们的和最接近某个数

yccshh

如题，折腾一晚上了实在想不出来，
一个这样的数组{“12.80”,“798.0”,“199.8”,“201.0”,“118.0”,“220.0”,“58.80”,“490.0”,“24.90”}
从中任选几个数，不可以重复，让他们的和最接近但是小于800
这个数组我也不会处理啊，大哥路过帮帮忙

Suky

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
A_参考数	小数型
A_和值	小数型
A_组合	小数型	0

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

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

文本数组 ＝ { “12.80”, “798.0”, “199.8”, “201.0”, “118.0”, “220.0”, “58.80”, “490.0”, “24.90” }
A_参考数 ＝ 800
计次循环首 (取数组成员数 (文本数组), n)
加入成员 (数组, 到小数 (文本数组 [n]))
计次循环尾 ()
子集生成 (数组)
调试输出 (A_和值, A_组合)

子程序名	返回值类型	公开	备 注
子集生成
参数名	类 型	参考	可空	数组	备 注
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]
计次循环尾 ()
' 调试输出 (和值, 数组)
如果真 (和值 ≥ A_参考数)
返回 ()

如果真 (和值 ＞ A_和值)
A_和值 ＝ 和值
A_组合 ＝ 数组
返回 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 A_参考数, 小数型<br /> .程序集变量 A_和值, 小数型<br /> .程序集变量 A_组合, 小数型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 数组, 小数型, , "0"<br /> .局部变量 n, 整数型<br /> <br /> 文本数组 ＝ { “12.80”, “798.0”, “199.8”, “201.0”, “118.0”, “220.0”, “58.80”, “490.0”, “24.90” }<br /> A_参考数 ＝ 800<br /> .计次循环首 (取数组成员数 (文本数组), n)<br />     加入成员 (数组, 到小数 (文本数组 [n]))<br /> .计次循环尾 ()<br /> 子集生成 (数组)<br /> 调试输出 (A_和值, A_组合)<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 /> .局部变量 n, 整数型<br /> <br /> .计次循环首 (取数组成员数 (数组), n)<br />     和值 ＝ 和值 ＋ 数组 [n]<br /> .计次循环尾 ()<br /> ' 调试输出 (和值, 数组)<br /> .如果真 (和值 ≥ A_参考数)<br />     返回 ()<br /> .如果真结束<br /> <br /> .如果真 (和值 ＞ A_和值)<br />     A_和值 ＝ 和值<br />     A_组合 ＝ 数组<br /> .如果真结束<br /> 返回 ()

补充内容 (2022-10-30 00:20):
不过这方案有个问题，就是只选取最先取到的一组组合
如果是想保留多组组合的，那就要用文本数组记录结果了

Suky

寻找数组内几个数相加等于一个值
https://bbs.125.la/forum.php?mod=viewthread&tid=14746778
(出处: 精易论坛)

很像  有没有

补充内容 (2022-10-30 00:00):
生成子集，计算符合小于800的值，取组合；取出所有组合后，取和值最小的那一组

小白弟弟

是固定2个数相加的和还是不固定的？

同学麻烦让让

从数组第一个成员开始循环，和其他成员相加，大于800直接跳过，小于800就记录在某个数组，最后再在这个数组找出最接近800的，思路很简单

yccshh

Chumeng2333 发表于 2022-10-29 23:58
是固定2个数相加的和还是不固定的？

是不固定的