红包分配算法 拼手气

sijk

之前需要这个子程序，但是没有在论坛找到，CSDN里面有python的代码，但是我也看不懂，不过稍微理解了一下还是看懂了，分享一下吧就~

  

子程序名	返回值类型	公开	备 注
子程序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 /> 调试输出 (随机数数组, 抢到总金额)

sijk

用到了精易模块

447485268

支持开源~！感谢分享

奕本正经

乱码了好兄弟

ljx111

感谢分享~~~~~~~

xmtian

感谢分享。

亿万

感谢分享，很给力！~

ZJ3120

感谢分享，很给力！~

sijk

我狠慌i 发表于 2024-4-7 14:24
乱码了好兄弟

乱码俺也不知道，好像是乘号乱码，复制应该就可以

bianyuan456

已经顶贴，感谢您对论坛的支持！