精易论坛

标题: 世恒教程的作业：生成1-100内30个不重复的随机数 [打印本页]

作者: 六翼天使 时间: 2012-10-4 23:07
标题: 世恒教程的作业：生成1-100内30个不重复的随机数
本帖最后由六翼天使于 2012-10-4 23:08 编辑

学的时间不长写这个看的简单可写起来对我这种低手来说走啦好几次弯路。代码很简单，值适合给低低手看！！

世恒的教程虽然很全面但个人感觉没有世宝讲的通俗易懂 XX的教程对没有一点基础的能把人讲蒙，世宝的注重劳逸结合齐头并进，世恒的很注重灌输。也可能是我脑子转速太慢把

生成不重复的随机数.rar

1.41 KB, 下载次数: 129, 下载积分: 精币 -2 枚

作者: 茗门小杜 时间: 2012-10-4 23:11
好好学习天天向上！

作者: 宇智波·尛焱 时间: 2012-10-4 23:13
我要了~~！~~！

作者: kylaipp 时间: 2012-10-5 10:39

下载点,我来啦

作者: 宇智波·佐助 时间: 2012-10-8 14:04
作业？

作者: 371933024 时间: 2013-1-12 21:55
```下来看看吧``

作者: 371933024 时间: 2013-1-12 21:57
这个东西`

作者: zyyxl 时间: 2013-6-1 15:07
为什么每次下载都下到个PHP文件回来,第二次下载,又要扣费

作者: bd3030123 时间: 2013-6-1 20:01
谢谢你的分享，很不错。

作者: 245138514 时间: 2013-8-23 17:26
学习学下！

作者: 姒战圵战 时间: 2014-7-24 07:15
看看也不错

作者: hmilyvivi 时间: 2015-8-5 15:05
弄了好长时间也没弄好。下载看看吧。

作者: 3DMC 时间: 2016-9-2 23:00
年代好久远。。太难不会！！

作者: zyrwind 时间: 2016-9-17 10:36
感学分享，学习了

作者: wzoozw 时间: 2017-6-9 13:02
感学分享，学习了

作者: wzoozw 时间: 2017-6-9 13:55
哥们，你那个思路不对呀，靠运气的，可以更简单
.版本 2

.程序集窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量局部_数组, 整数型, , "0"
.局部变量局部_计次, 整数型

.判断循环首 (取数组成员数 (局部_数组) ≠ 30)
加入成员 (局部_数组, 取随机数 (1, 99))
数组排序 (局部_数组, 真)
.计次循环首 (取数组成员数 (局部_数组) － 1, 局部_计次)
      .如果真 (局部_数组 [局部_计次] ＝局部_数组 [局部_计次＋ 1])
         删除成员 (局部_数组, 局部_计次＋ 1, 1)
         跳出循环 ()
      .如果真结束

.计次循环尾 ()
.判断循环尾 ()
.计次循环首 (30, 局部_计次)
编辑框1.加入文本 (到文本 (局部_数组 [局部_计次]) ＋ #换行符)
.计次循环尾 ()

作者: lizhiq11 时间: 2017-8-13 18:08
.版本 2

.程序集窗口程序集_启动窗口
.程序集变量数组, 整数型, , "0"

.子程序 _按钮1_被单击
.局部变量计次, 整数型
.局部变量 i, 整数型
.局部变量 b, 整数型
.局部变量 c, 整数型

置随机数种子 ()
.计次循环首 (50, 计次)
加入成员 (数组, 取随机数 (1, 100))
.计次循环尾 ()
.计次循环首 (30, i)
.变量循环首 (i, 30, 1, b)
      .如果真 (数组 [i] ＝数组 [b ＋ 1])
         删除成员 (数组, b ＋ 1, 1)
      .如果真结束

.变量循环尾 ()
.计次循环尾 ()
.计次循环首 (30, c)
编辑框1.加入文本 (到文本 (数组 [c]) ＋ #换行符)
.计次循环尾 ()

最简单是这样，想了一个多小时

作者: lizhiq11 时间: 2017-8-13 18:12
.版本 2

.程序集窗口程序集_启动窗口
.程序集变量数组, 整数型, , "0"

.子程序 _按钮1_被单击
.局部变量计次, 整数型
.局部变量 i, 整数型
.局部变量 b, 整数型
.局部变量 c, 整数型

置随机数种子 ()
.计次循环首 (50, 计次)
加入成员 (数组, 取随机数 (1, 100))
.计次循环尾 ()
.计次循环首 (30, i)
.变量循环首 (i, 30, 1, b)
      .如果真 (数组 [i] ＝数组 [b ＋ 1])
         删除成员 (数组, b ＋ 1, 1)
      .如果真结束

.变量循环尾 ()
.计次循环尾 ()
.计次循环首 (30, c)
编辑框1.加入文本 (到文本 (数组 [c]) ＋ #换行符)
.计次循环尾 ()

最简单是这样，想了一个多小时

欢迎光临精易论坛 (https://125.confly.eu.org/)