数组成员平均分配问题

帝梦o执天之行

例子：一个文本数组，里面成员有100个，现在想要把100个成员平均分配到3个记事本，多出来的成员把它放到第一个记事本里。要怎么实现这样的效果？？？

帅气与大侠

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
n	整数型
文本数组	文本型		0
平均份数	整数型
i	整数型
总数	整数型
平均数	整数型
剩余数	整数型
临时文本	文本型
j	整数型
计次	整数型
起始数	整数型

' 模拟生成100个文本数组
计次循环首 (100, n)
加入成员 (文本数组, 到文本 (n))
计次循环尾 ()
' 进行平均分割
平均份数 ＝ 3
总数 ＝ 取数组成员数 (文本数组)
平均数 ＝ 总数 ÷ 平均份数
剩余数 ＝ 总数 － 平均数 × 平均份数
计次循环首 (总数, n)
计次 ＝ 计次 ＋ 1
临时文本 ＝ 临时文本 ＋ 文本数组 [n] ＋ #换行符
如果真 (计次 ＝ 平均数)
调试输出 (临时文本)  ' 这里的条数输出实际你修改为写到文件即可
临时文本 ＝ “”
计次 ＝ 0

计次循环尾 ()
' 将剩余的数组再取出来，至于要怎么处理看你自己
临时文本 ＝ “”
起始数 ＝ 总数 － 剩余数
计次循环首 (剩余数, n)
临时文本 ＝ 临时文本 ＋ 文本数组 [起始数 ＋ n]
计次循环尾 ()
调试输出 (临时文本)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 n, 整数型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 平均份数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 总数, 整数型<br /> .局部变量 平均数, 整数型<br /> .局部变量 剩余数, 整数型<br /> .局部变量 临时文本, 文本型<br /> .局部变量 j, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 起始数, 整数型<br /> <br /> ' 模拟生成100个文本数组<br /> .计次循环首 (100, n)<br />     加入成员 (文本数组, 到文本 (n))<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> ' 进行平均分割<br /> 平均份数 ＝ 3<br /> 总数 ＝ 取数组成员数 (文本数组)<br /> <br /> 平均数 ＝ 总数 ÷ 平均份数<br /> <br /> 剩余数 ＝ 总数 － 平均数 × 平均份数<br /> <br /> .计次循环首 (总数, n)<br />     计次 ＝ 计次 ＋ 1<br /> <br />     临时文本 ＝ 临时文本 ＋ 文本数组 [n] ＋ #换行符<br />     .如果真 (计次 ＝ 平均数)<br />         调试输出 (临时文本)  ' 这里的条数输出实际你修改为写到文件即可<br />         临时文本 ＝ “”<br />         计次 ＝ 0<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> ' 将剩余的数组再取出来，至于要怎么处理看你自己<br /> 临时文本 ＝ “”<br /> 起始数 ＝ 总数 － 剩余数<br /> .计次循环首 (剩余数, n)<br />     临时文本 ＝ 临时文本 ＋ 文本数组 [起始数 ＋ n]<br /> .计次循环尾 ()<br /> 调试输出 (临时文本)

smxmcylw

这个和分页的列子相同，你自己搜索一下。。。  

smxmcylw

https://bbs.125.la/forum.php?mod=viewthread&tid=14115356

zl2017

.版本 2

.子程序 __启动窗口_创建完毕
.局部变量 文本数组, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 临时文本1, 文本型
.局部变量 临时文本2, 文本型
.局部变量 临时文本3, 文本型
.局部变量 a, 整数型

.计次循环首 (100, i)
    加入成员 (文本数组, 到文本 (i))
.计次循环尾 ()

.' 计次循环首 (100, i)
    .' 如果真 (i ％ 3 ＝ 1)
        ' 临时文本1 ＝ 临时文本1 ＋ 文本数组 [i] ＋ #换行符
        ' 到循环尾 ()
    .如果真结束
    .' 如果真 (i ％ 3 ＝ 2)
        ' 临时文本2 ＝ 临时文本2 ＋ 文本数组 [i] ＋ #换行符
        ' 到循环尾 ()
    .如果真结束
    .' 如果真 (i ％ 3 ＝ 0)
        ' 临时文本3 ＝ 临时文本3 ＋ 文本数组 [i] ＋ #换行符
        ' 到循环尾 ()
    .如果真结束

.' 计次循环尾 ()

.计次循环首 (100, i)
    置随机数种子 ()
    a ＝ 取随机数 (1, 取数组成员数 (文本数组))
    .如果真 (i ％ 3 ＝ 1)
        临时文本1 ＝ 临时文本1 ＋ 文本数组 [a] ＋ #换行符
    .如果真结束
    .如果真 (i ％ 3 ＝ 2)
        临时文本2 ＝ 临时文本2 ＋ 文本数组 [a] ＋ #换行符
    .如果真结束
    .如果真 (i ％ 3 ＝ 0)
        临时文本3 ＝ 临时文本3 ＋ 文本数组 [a] ＋ #换行符
    .如果真结束
    删除成员 (文本数组, a, 1)
.计次循环尾 ()
编辑框1.内容 ＝ 临时文本1
编辑框2.内容 ＝ 临时文本2
编辑框3.内容 ＝ 临时文本3