刚看到一个分享的红包算法,我也来分享一份

尛龍科技 · 发表于 2024-8-2 17:32:02

完全不调用模块,然后写了套算法
需要的自己回复查看即可

窗口程序集名	保留	保留	备注
程序集1

子程序名	返回值类型	公开	备注
_启动子程序	整数型		本子程序在程序启动后最先执行

测试红包 ()
返回 (0) ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备注
分配红包	文本型		总金额, 红包数量
参数名	类型	参考	可空	数组	备注
总金额	双精度小数型
红包数量	整数型

变量名	类型	静态	数组	备注
红包列表	文本型
剩余金额	双精度小数型
当前金额	双精度小数型
最大金额	双精度小数型
i	整数型
时间种子	整数型

置随机数种子 ()
剩余金额＝总金额
红包列表＝ “”

如果 (红包数量＝ 1)

调试输出 (“只有一个红包”)

红包列表＝格式化文本 (“%.2f”, 剩余金额)

返回 (红包列表)

调试输出 (“开始分配多个红包”)

计次循环首 (红包数量－ 1, i)

最大金额＝剩余金额 × 2 ÷ (红包数量－ i)

当前金额＝取随机数 (1, 最大金额 × 100) ÷ 100 ' 生成随机金额并保留两位小数

如果 (当前金额＜ 0.01 或当前金额＞剩余金额 �� (红包数量－ i － 1) × 0.01)

当前金额＝取随机数 (1, 剩余金额 × 100 ÷ (红包数量－ i)) ÷ 100

剩余金额＝剩余金额－当前金额

红包列表＝红包列表＋格式化文本 (“%.2f”, 当前金额) ＋ “,” ' 保留两位小数

调试输出 (“我是第” ＋到文本 (i) ＋ “个红包,当前金额：” ＋格式化文本 (“%.2f”, 当前金额))

计次循环尾 ()

红包列表＝红包列表＋格式化文本 (“%.2f”, 剩余金额)

调试输出 (“我是第” ＋到文本 (红包数量) ＋ “个红包,当前金额：” ＋格式化文本 (“%.2f”, 剩余金额))

返回 (红包列表)

子程序名	返回值类型	公开	备注
测试红包

变量名	类型	静态	数组	备注
红包总金额	双精度小数型
红包数量	整数型
红包结果	文本型

红包总金额＝ 100
红包数量＝ 10
红包结果＝分配红包 (红包总金额, 红包数量)
调试输出 (红包结果)

i支持库列表	支持库注释
spec	特殊功能支持库
eAPI	应用接口支持库

.版本 2<br />
.支持库 spec<br />
.支持库 eAPI<br />
<br />
.程序集 程序集1<br />
<br />
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br />
<br />
测试红包 ()<br />
返回 (0)  ' 可以根据您的需要返回任意数值<br />
<br />
<br />
.子程序 分配红包, 文本型, 公开, 总金额, 红包数量<br />
.参数 总金额, 双精度小数型<br />
.参数 红包数量, 整数型<br />
.局部变量 红包列表, 文本型<br />
.局部变量 剩余金额, 双精度小数型<br />
.局部变量 当前金额, 双精度小数型<br />
.局部变量 最大金额, 双精度小数型<br />
.局部变量 i, 整数型<br />
.局部变量 时间种子, 整数型<br />
<br />
置随机数种子 ()<br />
剩余金额 ＝ 总金额<br />
红包列表 ＝ “”<br />
.如果 (红包数量 ＝ 1)<br />
    调试输出 (“只有一个红包”)<br />
    红包列表 ＝ 格式化文本 (“%.2f”, 剩余金额)<br />
    返回 (红包列表)<br />
.否则<br />
    调试输出 (“开始分配多个红包”)<br />
    .计次循环首 (红包数量 － 1, i)<br />
        最大金额 ＝ 剩余金额 × 2 ÷ (红包数量 － i)<br />
        当前金额 ＝ 取随机数 (1, 最大金额 × 100) ÷ 100  ' 生成随机金额并保留两位小数<br />
        .如果 (当前金额 ＜ 0.01 或 当前金额 ＞ 剩余金额 － (红包数量 － i － 1) × 0.01)<br />
            当前金额 ＝ 取随机数 (1, 剩余金额 × 100 ÷ (红包数量 － i)) ÷ 100<br />
        .否则<br />
<br />
        .如果结束<br />
        剩余金额 ＝ 剩余金额 － 当前金额<br />
        红包列表 ＝ 红包列表 ＋ 格式化文本 (“%.2f”, 当前金额) ＋ “,”  ' 保留两位小数<br />
        调试输出 (“我是第” ＋ 到文本 (i) ＋ “个红包,当前金额：” ＋ 格式化文本 (“%.2f”, 当前金额))<br />
<br />
    .计次循环尾 ()<br />
    红包列表 ＝ 红包列表 ＋ 格式化文本 (“%.2f”, 剩余金额)<br />
    调试输出 (“我是第” ＋ 到文本 (红包数量) ＋ “个红包,当前金额：” ＋ 格式化文本 (“%.2f”, 剩余金额))<br />
    返回 (红包列表)<br />
.如果结束<br />
<br />
<br />
.子程序 测试红包<br />
.局部变量 红包总金额, 双精度小数型<br />
.局部变量 红包数量, 整数型<br />
.局部变量 红包结果, 文本型<br />
<br />
红包总金额 ＝ 100<br />
红包数量 ＝ 10<br />
红包结果 ＝ 分配红包 (红包总金额, 红包数量)<br />
调试输出 (红包结果)