红包分配算法拼手气 - 精易论坛

子程序名	返回值类型	公开	备注
子程序2
参数名	类型	参考	可空	数组	备注
总金额	整数型				如果是1元，参数请传入100
包数	整数型
随机数数组	文本型

变量名	类型	静态	数组	备注
剩余金额	整数型
剩余包数	整数型
i	整数型
x_down	整数型
x_up	整数型
抢到金额	整数型
抢到总金额	整数型

清除数组 (随机数数组)
剩余金额＝总金额
剩余包数＝包数
' 置随机数种子 ()

计次循环首 (包数, i)

判断 (剩余金额 ≤ 总金额 �� (剩余包数－ 1) ＋ 1)

x_down ＝ 1

x_down ＝剩余金额－总金额 �� (剩余包数－ 1)

判断 (剩余金额 ≥ 总金额＋剩余包数－ 1)

x_up ＝总金额

x_up ＝剩余金额 �� (剩余包数－ 1)

如果真 (x_up ＞剩余金额 ÷ 剩余包数 × 2)

x_up ＝剩余金额 ÷ 剩余包数 × 2

抢到金额＝到整数 (文本_取随机范围数字 (x_down, x_up, ))

调试输出 (x_up, x_down, 抢到金额)

如果真 (x_up ％抢到金额＜ x_down)

抢到金额＝ x_down

剩余金额＝剩余金额－抢到金额

剩余包数＝剩余包数－ 1

加入成员 (随机数数组, 数值到格式文本 (抢到金额 ÷ 100, 2, 假))

抢到总金额＝抢到金额＋抢到总金额

计次循环尾 ()
调试输出 (随机数数组, 抢到总金额)

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

.版本 2<br />
.支持库 spec<br />
<br />
.子程序 子程序2<br />
.参数 总金额, 整数型, , 如果是1元，参数请传入100<br />
.参数 包数, 整数型<br />
.参数 随机数数组, 文本型, 可空 数组<br />
.局部变量 剩余金额, 整数型<br />
.局部变量 剩余包数, 整数型<br />
.局部变量 i, 整数型<br />
.局部变量 x_down, 整数型<br />
.局部变量 x_up, 整数型<br />
.局部变量 抢到金额, 整数型<br />
.局部变量 抢到总金额, 整数型<br />
<br />
清除数组 (随机数数组)<br />
剩余金额 ＝ 总金额<br />
剩余包数 ＝ 包数<br />
' 置随机数种子 ()<br />
<br />
.计次循环首 (包数, i)<br />
    .判断开始 (剩余金额 ≤ 总金额 × (剩余包数 － 1) ＋ 1)<br />
        x_down ＝ 1<br />
    .默认<br />
        x_down ＝ 剩余金额 － 总金额 × (剩余包数 － 1)<br />
    .判断结束<br />
<br />
    .判断开始 (剩余金额 ≥ 总金额 ＋ 剩余包数 － 1)<br />
        x_up ＝ 总金额<br />
    .默认<br />
        x_up ＝ 剩余金额 － (剩余包数 － 1)<br />
    .判断结束<br />
<br />
<br />
    .如果真 (x_up ＞ 剩余金额 ÷ 剩余包数 × 2)<br />
        x_up ＝ 剩余金额 ÷ 剩余包数 × 2<br />
    .如果真结束<br />
<br />
<br />
    抢到金额 ＝ 到整数 (文本_取随机范围数字 (x_down, x_up, ))<br />
    调试输出 (x_up, x_down, 抢到金额)<br />
    .如果真 (x_up ％ 抢到金额 ＜ x_down)<br />
        抢到金额 ＝ x_down<br />
    .如果真结束<br />
<br />
<br />
<br />
    剩余金额 ＝ 剩余金额 － 抢到金额<br />
    剩余包数 ＝ 剩余包数 － 1<br />
    加入成员 (随机数数组, 数值到格式文本 (抢到金额 ÷ 100, 2, 假))<br />
<br />
    抢到总金额 ＝ 抢到金额 ＋ 抢到总金额<br />
.计次循环尾 ()<br />
调试输出 (随机数数组, 抢到总金额)