世恒教程的作业：生成1-100内30个不重复的随机数

六翼天使 · 发表于 2012-10-4 23:07:22

本帖最后由六翼天使于 2012-10-4 23:08 编辑

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

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

lizhiq11 · 发表于 2017-8-13 18:12:00

.版本 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:08:56

.版本 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]) ＋ #换行符)
.计次循环尾 ()

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

wzoozw · 发表于 2017-6-9 13:55:47

哥们，你那个思路不对呀，靠运气的，可以更简单
.版本 2

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

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

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

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

wzoozw · 发表于 2017-6-9 13:02:48

感学分享，学习了

zyrwind · 发表于 2016-9-17 10:36:29

感学分享，学习了

3DMC · 发表于 2016-9-2 23:00:23

年代好久远。。太难不会！！

hmilyvivi · 发表于 2015-8-5 15:05:09

弄了好长时间也没弄好。下载看看吧。

姒战圵战 · 发表于 2014-7-24 07:15:21

看看也不错

245138514 · 发表于 2013-8-23 17:26:09

学习学下！

bd3030123 · 发表于 2013-6-1 20:01:08

谢谢你的分享，很不错。

		自动登录	找回密码
密码			注册

[易语言纯源码] 世 恒 教程的作业：生成1-100内30个不重复的随机数

[易语言纯源码] 世恒教程的作业：生成1-100内30个不重复的随机数