数值平均分组

junjack

数值平均分组

苗哥

难题不详细，例子都没有，怎么给你方法

茶白

  

子程序名	返回值类型	公开	备 注
数值平均分组	整数型		将数值平均分成若干组，返回一个整数数组
参数名	类 型	参考	可空	数组	备 注
总数值	整数型				需要分组的总数值
分组数	整数型				需要分成的组数
结果数组	整数型				用于接收分组结果的数组

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

' 检查参数有效性
如果真 (分组数 ≤ 0)
返回 (0)  ' 分组数必须大于0

' 计算每组基础值和余数
每组基数 ＝ 总数值 ÷ 分组数
余数 ＝ 总数值 % 分组数
' 重定义结果数组大小
重定义数组 (结果数组, 假, 分组数)
' 分配数值
计次循环首 (分组数, i)
如果 (i ≤ 余数)
结果数组 [i] ＝ 每组基数 ＋ 1  ' 前余数组多分配1
结果数组 [i] ＝ 每组基数     ' 其余组分配基数

计次循环尾 ()
返回 (分组数)  ' 返回实际分组数

.版本 2<br /> <br /> .子程序 数值平均分组, 整数型, 公开, 将数值平均分成若干组，返回一个整数数组<br /> .参数 总数值, 整数型, , 需要分组的总数值<br /> .参数 分组数, 整数型, , 需要分成的组数<br /> .参数 结果数组, 整数型, 参考 数组, 用于接收分组结果的数组<br /> .局部变量 每组基数, 整数型<br /> .局部变量 余数, 整数型<br /> .局部变量 i, 整数型<br /> <br /> ' 检查参数有效性<br /> .如果真 (分组数 ≤ 0)<br />     返回 (0)  ' 分组数必须大于0<br /> .如果真结束<br /> <br /> ' 计算每组基础值和余数<br /> 每组基数 ＝ 总数值 ÷ 分组数<br /> 余数 ＝ 总数值 % 分组数<br /> <br /> ' 重定义结果数组大小<br /> 重定义数组 (结果数组, 假, 分组数)<br /> <br /> ' 分配数值<br /> .计次循环首 (分组数, i)<br />     .如果 (i ≤ 余数)<br />         结果数组 <i> ＝ 每组基数 ＋ 1  ' 前余数组多分配1<br />     .否则<br />         结果数组 <i> ＝ 每组基数     ' 其余组分配基数<br />     .如果结束<br /> .计次循环尾 ()<br /> <br /> 返回 (分组数)  ' 返回实际分组数