自己需要用顺手写了个抽奖

654799976

刚好自己需要，参考下别人的写了个抽奖，大神勿喷！

LWB666

  

子程序名	返回值类型	公开	备 注
算法_概率抽奖	奖品		概率总合不能超过32767
参数名	类 型	参考	可空	数组	备 注
奖品	奖品

变量名	类 型	静态	数组	备 注
总概率	整数型
i	整数型
区域	整数型
随机数	长整数型
返回奖品	奖品

置随机数种子 ()
计次循环首 (取数组成员数 (奖品), i)
总概率 ＝ 总概率 ＋ 奖品 [i].概率
计次循环尾 ()
区域 ＝ 0
随机数 ＝ 算法_取随机数_asmEx (1, 总概率)
计次循环首 (取数组成员数 (奖品), i)
奖品 [i].中奖区域 ＝ 区域
区域 ＝ 区域 ＋ 奖品 [i].概率
如果真 (随机数 ≥ 奖品 [i].中奖区域 ＋ 1 且 随机数 ≤ 奖品 [i].中奖区域 ＋ 奖品 [i].概率)
返回奖品 ＝ 奖品 [i]

计次循环尾 ()
返回 (返回奖品)

子程序名	返回值类型	公开	备 注
算法_取随机数_asmEx	整数型
参数名	类 型	参考	可空	数组	备 注
最小值	整数型
最大值	整数型

如果真 (最大值 ＜ 最小值)
返回 (最大值)
置入代码 ({ 81, 82, 15, 49, 185, 23, 0, 0, 0, 247, 225, 131, 192, 7, 139, 77, 12, 43, 77, 8, 65, 51, 210, 247, 241, 3, 85, 8, 139, 194, 90, 89, 201, 194, 8, 0 })
返回 (0)

.版本 2<br /> <br /> .子程序 算法_概率抽奖, 奖品, , 概率总合不能超过32767<br /> .参数 奖品, 奖品, 数组<br /> .局部变量 总概率, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 区域, 整数型<br /> .局部变量 随机数, 长整数型<br /> .局部变量 返回奖品, 奖品<br /> <br /> 置随机数种子 ()<br /> .计次循环首 (取数组成员数 (奖品), i)<br />     总概率 ＝ 总概率 ＋ 奖品 <i>.概率<br /> .计次循环尾 ()<br /> 区域 ＝ 0<br /> 随机数 ＝ 算法_取随机数_asmEx (1, 总概率)<br /> .计次循环首 (取数组成员数 (奖品), i)<br />     奖品 <i>.中奖区域 ＝ 区域<br />     区域 ＝ 区域 ＋ 奖品 <i>.概率<br />     .如果真 (随机数 ≥ 奖品 <i>.中奖区域 ＋ 1 且 随机数 ≤ 奖品 <i>.中奖区域 ＋ 奖品 <i>.概率)<br />         返回奖品 ＝ 奖品 <i><br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (返回奖品)<br /> <br /> .子程序 算法_取随机数_asmEx, 整数型, 公开<br /> .参数 最小值, 整数型<br /> .参数 最大值, 整数型<br /> <br /> .如果真 (最大值 ＜ 最小值)<br />     返回 (最大值)<br /> .如果真结束<br /> 置入代码 ({ 81, 82, 15, 49, 185, 23, 0, 0, 0, 247, 225, 131, 192, 7, 139, 77, 12, 43, 77, 8, 65, 51, 210, 247, 241, 3, 85, 8, 139, 194, 90, 89, 201, 194, 8, 0 })<br /> 返回 (0)

看看我的

qqmqqg

66666666666666

ttggnn

感谢分享

一指温柔

感谢楼主分享！

查过

全都是大佬~

豆豆灰常开心

感谢发布原创作品，精易因你更精彩！6666666666666

大胜科技

6666666666666

suming99

666666666666666666666

happyweeks365

66666666666666666