|
发表于 2014-1-1 21:35:44
|
显示全部楼层
广东省湛江市
[e]
.版本 2
.子程序 取不重复随机数, 整数型, 公开, 对比方式实现
.参数 欲取最小值, 整数型
.参数 欲取最大值, 整数型
.局部变量 随机数, 整数型
.局部变量 i, 整数型
置随机数种子 ()
.判断循环首 (随机数 = 0)
随机数 = 取随机数 (欲取最小值, 欲取最大值)
.计次循环首 (取数组成员数 (记录数组), i)
.如果真 (记录数组 = 随机数)
随机数 = 0
跳出循环 ()
.如果真结束
.计次循环尾 ()
.判断循环尾 ()
加入成员 (记录数组, 随机数)
返回 (随机数)
.子程序 取不重复随机数2, 整数型, 公开, 抽取方式实现
.参数 最小值, 整数型
.参数 最大值, 整数型
.局部变量 随机数, 整数型
.局部变量 i, 整数型
.局部变量 执行子程序, 整数型
置随机数种子 ()
.如果真 (取数组成员数 (抽取数组) = 0)
.计次循环首 (最大值 - 最小值, i)
加入成员 (抽取数组, 最小值 + i)
.计次循环尾 ()
.如果真结束
i = 取随机数 (1, 取数组成员数 (抽取数组))
随机数 = 抽取数组
删除成员 (抽取数组, i, 1)
返回 (随机数)
[/e]
最佳吧!
补充内容 (2014-1-1 21:37):
哇擦,我又发错了。 |
|