数值平均分组

你咋不上天

数组下的30个成员数值分成两组和三组平均分，然后重新写进新的数组变量里。想了想不知道怎么实现，求教具体就是两个功能：30个数字平均分成两组，两组平均值接近，然后写进数组1_1，和数组1_2两个变量数组里
                             30个数字平均分成三组，三组平均值接近，然后写进数组2_1，和数组2_2，数组2_3，三个变量数组里。
两个功能单独区分开




7031|用户1
8572|用户2
8327|用户3
8160|用户4
8054|用户5
7940|用户6
7858|用户7
7887|用户8
7893|用户9
7882|用户10
7871|用户11
7758|用户12
7711|用户13
7618|用户14
7653|用户15
7260|用户16
7455|用户17
7248|用户18
7424|用户19
7260|用户20
7118|用户21
7076|用户22
7096|用户23
6495|用户24
6953|用户25
6869|用户26
6854|用户27
6840|用户28
6766|用户29
6449|用户30

zainex

偷懒用 文心 写的, 自己简单修正了些错误:

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
数据数组	整数型	30
数组1_1	整数型	0
数组1_2	整数型	0
数组2_1	整数型	0
数组2_2	整数型	0
数组2_3	整数型	0

子程序名	返回值类型	公开	备 注
分组为两组

变量名	类 型	静态	数组	备 注
排序数组	整数型		0
i	整数型
sum1	整数型
sum2	整数型

' 复制并排序数组
排序数组 ＝ 数据数组
数组排序 (排序数组, 假)  ' 降序排序
sum1 ＝ 0
sum2 ＝ 0
计次循环首 (取数组成员数 (排序数组), i)
如果 (sum1 ≤ sum2)
加入成员 (数组1_1, 排序数组 [i])
sum1 ＝ sum1 ＋ 排序数组 [i]
加入成员 (数组1_2, 排序数组 [i])
sum2 ＝ sum2 ＋ 排序数组 [i]

计次循环尾 ()

子程序名	返回值类型	公开	备 注
分组为三组

变量名	类 型	静态	数组	备 注
排序数组	整数型		0
i	整数型
sum1	整数型
sum2	整数型
sum3	整数型

' 复制并排序数组
排序数组 ＝ 数据数组
数组排序 (排序数组, 假)  ' 降序排序
sum1 ＝ 0
sum2 ＝ 0
sum3 ＝ 0
计次循环首 (取数组成员数 (排序数组), i)
如果 (sum1 ≤ sum2 且 sum1 ≤ sum3)
加入成员 (数组2_1, 排序数组 [i])
sum1 ＝ sum1 ＋ 排序数组 [i]
如果 (sum2 ≤ sum3)
加入成员 (数组2_2, 排序数组 [i])
sum2 ＝ sum2 ＋ 排序数组 [i]
加入成员 (数组2_3, 排序数组 [i])
sum3 ＝ sum3 ＋ 排序数组 [i]


计次循环尾 ()

子程序名	返回值类型	公开	备 注
数组求和	整数型
参数名	类 型	参考	可空	数组	备 注
数组	整数型

变量名	类 型	静态	数组	备 注
sum	整数型
i	整数型

sum ＝ 0
计次循环首 (取数组成员数 (数组), i)
sum ＝ sum ＋ 数组 [i]
计次循环尾 ()
返回 (sum)

子程序名	返回值类型	公开	备 注
数组到文本	文本型
参数名	类 型	参考	可空	数组	备 注
数组	整数型

变量名	类 型	静态	数组	备 注
结果	文本型
i	整数型

结果 ＝ “[”
计次循环首 (取数组成员数 (数组), i)
如果 (i ＞ 1)
结果 ＝ 结果 ＋ “,”


结果 ＝ 结果 ＋ 到文本 (数组 [i])
计次循环尾 ()
结果 ＝ 结果 ＋ “]”
返回 (结果)

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

变量名	类 型	静态	数组	备 注
i	整数型

' 初始化数据
数据数组 ＝ { 7031, 8572, 8327, 8160, 8054, 7940, 7858, 7887, 7893, 7882, 7871, 7758, 7711, 7618, 7653, 7260, 7455, 7248, 7424, 7260, 7118, 7076, 7096, 6495, 6953, 6869, 6854, 6840, 6766, 6449 }
' 调用分组函数
分组为两组 ()
分组为三组 ()
' 输出结果
输出调试文本 (“==== 分成两组 ====”)
输出调试文本 (“数组1_1：” ＋ 数组到文本 (数组1_1) ＋ “ 和：” ＋ 到文本 (数组求和 (数组1_1)))
输出调试文本 (“数组1_2：” ＋ 数组到文本 (数组1_2) ＋ “ 和：” ＋ 到文本 (数组求和 (数组1_2)))
输出调试文本 (“==== 分成三组 ====”)
输出调试文本 (“数组2_1：” ＋ 数组到文本 (数组2_1) ＋ “ 和：” ＋ 到文本 (数组求和 (数组2_1)))
输出调试文本 (“数组2_2：” ＋ 数组到文本 (数组2_2) ＋ “ 和：” ＋ 到文本 (数组求和 (数组2_2)))
输出调试文本 (“数组2_3：” ＋ 数组到文本 (数组2_3) ＋ “ 和：” ＋ 到文本 (数组求和 (数组2_3)))

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 数据数组, 整数型, , "30"<br /> .程序集变量 数组1_1, 整数型, , "0"<br /> .程序集变量 数组1_2, 整数型, , "0"<br /> .程序集变量 数组2_1, 整数型, , "0"<br /> .程序集变量 数组2_2, 整数型, , "0"<br /> .程序集变量 数组2_3, 整数型, , "0"<br /> <br /> .子程序 分组为两组<br /> .局部变量 排序数组, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 sum1, 整数型<br /> .局部变量 sum2, 整数型<br /> <br /> ' 复制并排序数组<br /> 排序数组 ＝ 数据数组<br /> 数组排序 (排序数组, 假)  ' 降序排序<br /> sum1 ＝ 0<br /> sum2 ＝ 0<br /> .计次循环首 (取数组成员数 (排序数组), i)<br />     .如果 (sum1 ≤ sum2)<br />         加入成员 (数组1_1, 排序数组 <i>)<br />         sum1 ＝ sum1 ＋ 排序数组 <i><br />     .否则<br />         加入成员 (数组1_2, 排序数组 <i>)<br />         sum2 ＝ sum2 ＋ 排序数组 <i><br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 分组为三组<br /> .局部变量 排序数组, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 sum1, 整数型<br /> .局部变量 sum2, 整数型<br /> .局部变量 sum3, 整数型<br /> <br /> ' 复制并排序数组<br /> 排序数组 ＝ 数据数组<br /> 数组排序 (排序数组, 假)  ' 降序排序<br /> sum1 ＝ 0<br /> sum2 ＝ 0<br /> sum3 ＝ 0<br /> .计次循环首 (取数组成员数 (排序数组), i)<br />     .如果 (sum1 ≤ sum2 且 sum1 ≤ sum3)<br />         加入成员 (数组2_1, 排序数组 <i>)<br />         sum1 ＝ sum1 ＋ 排序数组 <i><br />     .否则<br />         .如果 (sum2 ≤ sum3)<br />             加入成员 (数组2_2, 排序数组 <i>)<br />             sum2 ＝ sum2 ＋ 排序数组 <i><br />         .否则<br />             加入成员 (数组2_3, 排序数组 <i>)<br />             sum3 ＝ sum3 ＋ 排序数组 <i><br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 数组求和, 整数型<br /> .参数 数组, 整数型, 数组<br /> .局部变量 sum, 整数型<br /> .局部变量 i, 整数型<br /> <br /> sum ＝ 0<br /> .计次循环首 (取数组成员数 (数组), i)<br />     sum ＝ sum ＋ 数组 <i><br /> .计次循环尾 ()<br /> 返回 (sum)<br /> <br /> .子程序 数组到文本, 文本型<br /> .参数 数组, 整数型, 数组<br /> .局部变量 结果, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 结果 ＝ “[”<br /> .计次循环首 (取数组成员数 (数组), i)<br />     .如果 (i ＞ 1)<br />         结果 ＝ 结果 ＋ “,”<br />     .否则<br /> <br />     .如果结束<br />     结果 ＝ 结果 ＋ 到文本 (数组 <i>)<br /> .计次循环尾 ()<br /> 结果 ＝ 结果 ＋ “]”<br /> 返回 (结果)<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> <br /> ' 初始化数据<br /> 数据数组 ＝ { 7031, 8572, 8327, 8160, 8054, 7940, 7858, 7887, 7893, 7882, 7871, 7758, 7711, 7618, 7653, 7260, 7455, 7248, 7424, 7260, 7118, 7076, 7096, 6495, 6953, 6869, 6854, 6840, 6766, 6449 }<br /> <br /> ' 调用分组函数<br /> 分组为两组 ()<br /> 分组为三组 ()<br /> ' 输出结果<br /> 输出调试文本 (“==== 分成两组 ====”)<br /> 输出调试文本 (“数组1_1：” ＋ 数组到文本 (数组1_1) ＋ “ 和：” ＋ 到文本 (数组求和 (数组1_1)))<br /> <br /> 输出调试文本 (“数组1_2：” ＋ 数组到文本 (数组1_2) ＋ “ 和：” ＋ 到文本 (数组求和 (数组1_2)))<br /> <br /> 输出调试文本 (“==== 分成三组 ====”)<br /> 输出调试文本 (“数组2_1：” ＋ 数组到文本 (数组2_1) ＋ “ 和：” ＋ 到文本 (数组求和 (数组2_1)))<br /> 输出调试文本 (“数组2_2：” ＋ 数组到文本 (数组2_2) ＋ “ 和：” ＋ 到文本 (数组求和 (数组2_2)))<br /> 输出调试文本 (“数组2_3：” ＋ 数组到文本 (数组2_3) ＋ “ 和：” ＋ 到文本 (数组求和 (数组2_3)))

结果如下:

开始运行被调试程序
* ==== 分成两组 ====
* 数组1_1：[8572,8054,7893,7882,7858,7711,7618,7455,7260,7118,7096,7031,6869,6766,6495] 和：111678
* 数组1_2：[8327,8160,7940,7887,7871,7758,7653,7424,7260,7248,7076,6953,6854,6840,6449] 和：111700
* ==== 分成三组 ====
* 数组2_1：[8572,7893,7871,7711,7455,7424,7096,7031,6840,6449] 和：74342
* 数组2_2：[8327,7940,7882,7758,7653,7260,7248,6953,6869,6495] 和：74385
* 数组2_3：[8160,8054,7887,7858,7618,7260,7118,7076,6854,6766] 和：74651
被调试易程序运行完毕