TC官方合作论坛

标题: 功能 取不重复随机数(Min, Max, Num) [打印本页]
作者: cjxdn    时间: 2015-10-29 05:30
标题: 功能 取不重复随机数(Min, Max, Num)

  1. 功能 取不重复随机数(Min, Max, Num)
  2.     变量 结果 = 数组()
  3.     如果(Max > Min && Num <= (Max - Min))
  4.         变量 标识 = 数组()
  5.         遍历(变量 i = 0; i < Num; i++)
  6.             循环(真)
  7.                 变量 n = 随机数(Min, Max)
  8.                 如果(标识[n] != 1)
  9.                     结果[i] = n
  10.                     标识[n] = 1
  11.                     跳出
  12.                 结束
  13.             结束
  14.         结束
  15.         返回 结果
  16.     否则
  17.         返回 -1
  18.     结束
  19. 结束
复制代码


请问这源码怎么改取不重复随机数演示的效果,个人小白理解不了,调试没反应
作者: qwe1063422121    时间: 2015-10-29 08:29
有源码...好像是言术大哥分享过!!
作者: liuhaiyan008    时间: 2015-10-29 08:52
这样试下看就明白了吧
  1. 功能 按钮0_点击()
  2.     变量 最大 = 15//------待取随机数最大值
  3.     变量 最小 = 3//-------待取随机数最小值
  4.     变量 个数 = 9//-------待取随机数个数
  5.     变量 数据 = 取不重复随机数(最小,最大,个数)
  6.     如果(数据==-1)
  7.         消息框("最大数与最小数设置不当,或所取个数超出范围")
  8.     否则
  9.         变量 数字串 = 数据[0]
  10.         遍历(变量 i = 1; i < 个数; i++)
  11.             数字串 = 数字串&","&数据[i]
  12.         结束
  13.         消息框("结果:"&数字串)
  14.     结束
  15. 结束

  17. 功能 取不重复随机数(Min, Max, Num)
  18.     变量 结果 = 数组()
  19.     如果(Max > Min && Num <= (Max - Min))
  20.         变量 标识 = 数组()
  21.         遍历(变量 i = 0; i < Num; i++)
  22.             循环(真)
  23.                 变量 n = 随机数(Min, Max)
  24.                 如果(标识[n] != 1)
  25.                     结果[i] = n
  26.                     标识[n] = 1
  27.                     跳出
  28.                 结束
  29.             结束
  30.         结束
  31.         返回 结果
  32.     否则
  33.         返回 -1
  34.     结束
  35. 结束
复制代码
作者: 言术    时间: 2015-10-29 09:10
这个是 忆辰辅助 共享的
原帖：
http://bbs.tyuyan.net/forum.php? ... F%E6%9C%BA%E6%95%B0

  1. 功能 取不重复随机数(最小值, 最大值, 生成个数)
  2.     变量 结果 = 数组()
  3.     如果(最大值 > 最小值 && 生成个数 <= (最大值 - 最小值))
  4.         变量 标识 = 数组()
  5.         遍历(变量 i = 0; i < 生成个数; i++)
  6.             循环(真)
  7.                 变量 n = 随机数(最小值, 最大值)
  8.                 如果(标识[n] != 1) //最后n生成还是6的话,标识[6]已经为1了,跳过,重新生成
  9.                     结果[i] = n  //先看这里,假如n是6
  10.                     标识[n] = 1  //然后把另一个数组 标识[6] 赋值为1
  11.                     跳出
  12.                 结束
  13.             结束
  14.         结束
  15.         返回 结果
  16.     否则
  17.         返回 -1
  18.     结束
  19. 结束

  21. 功能 测试()
  22.     变量 返回数组=取不重复随机数(0,9,5)
  23.     遍历(变量 i = 0; i < 5; i++)
  24.         调试输出(返回数组[i])
  25.     结束
  26. 结束
复制代码
作者: cjxdn    时间: 2015-10-29 09:27
感谢各位大神指教, 指教的人多, 只能采纳先回复的了, 抱歉.



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1