取随机数 1-32 ， 不重复

決不放棄

这是我写的代码，但是往下不知怎么写了...

  

判断循环首 (取数组成员数 (随机顺序) ＞ 33)
临时 ＝ 取随机数 (1, 32)
如果真 (取数组成员数 (随机顺序) ＝ 0)
加入成员 (随机顺序, 临时)
到循环尾 ()
计次循环首 (取数组成员数 (随机顺序), i)
计次循环尾 ()
判断循环尾 ()

.版本 2<br /> <br /> .判断循环首 (取数组成员数 (随机顺序) ＞ 33)<br />     临时 ＝ 取随机数 (1, 32)<br />     .如果真 (取数组成员数 (随机顺序) ＝ 0)<br />         加入成员 (随机顺序, 临时)<br />         到循环尾 ()<br />     .如果真结束<br />     .计次循环首 (取数组成员数 (随机顺序), i)<br />     .计次循环尾 ()<br /> <br /> .判断循环尾 ()

随机顺序 是数组

目的就是  取1-32的随机数  如果和 随机顺序数组里所有成员都不重复  那就加入程序   ，  只要有重复 就重新取  直到不重复。
期望结果： 随机顺序有32个成员  里面是打乱顺序的数字1-32


补充内容 (2017-5-6 21:51):
晕  判断循环首 (取数组成员数 (随机顺序) ＞ 33)  >应该是<  .. 失误失误

难寻。

.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 随机顺序, 文本型, , "0"
.局部变量 临时, 文本型

置随机数种子 ()
.判断循环首 (取数组成员数 (随机顺序) ＜ 33)

    临时 ＝ 到文本 (取随机数 (1, 32))
    .判断开始 (数组_取次数 (随机顺序, 临时) ＝ 0)
        加入成员 (随机顺序, 临时)
        调试输出 (随机顺序)
    .默认

    .判断结束


.判断循环尾 ()


精益模块
数组:32{“20”,“30”,“21”,“29”,“8”,“19”,“2”,“16”,“11”,“23”,“26”,“3”,“28”,“5”,“24”,“31”,“17”,“6”,“22”,“10”,“25”,“13”,“14”,“9”,“1”,“7”,“12”,“32”,“15”,“18”,“27”,“4”}
数组:32{“31”,“8”,“21”,“5”,“2”,“15”,“7”,“28”,“24”,“32”,“18”,“9”,“12”,“1”,“26”,“22”,“27”,“17”,“4”,“13”,“10”,“20”,“23”,“19”,“6”,“25”,“14”,“29”,“11”,“30”,“16”,“3”}

11053

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
随机顺序	整数型		0
date	整数型		32
i	整数型
x	整数型

计次循环首 (32, i)
date [i] ＝ i
计次循环尾 ()
置随机数种子 ()
变量循环首 (32, 1, -1, i)
x ＝ 取随机数 (1, i)
加入成员 (随机顺序, date [x])
删除成员 (date, x, 1)
变量循环尾 ()
调试输出 (随机顺序)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 随机顺序, 整数型, , "0"<br /> .局部变量 date, 整数型, , "32"<br /> .局部变量 i, 整数型<br /> .局部变量 x, 整数型<br /> <br /> <br /> .计次循环首 (32, i)<br />     date <i> ＝ i<br /> .计次循环尾 ()<br /> 置随机数种子 ()<br /> .变量循环首 (32, 1, -1, i)<br />     x ＝ 取随机数 (1, i)<br />     加入成员 (随机顺序, date [x])<br />     删除成员 (date, x, 1)<br /> .变量循环尾 ()<br /> 调试输出 (随机顺序)

Bye

取随机数不重复.e (2.68 KB, 下载次数: 22)

2017-5-6 21:43 上传

点击文件名下载附件

你看看

汉族

http://bbs.125.la/forum.php?mod= ... 13963749&extra=

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕			汉族

变量名	类 型	静态	数组	备 注
数组	整数型		10
新	整数型		10
计次	整数型
总	整数型
s	整数型
记录	文本型

置随机数种子 ()
数组 ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 }
总 ＝ 取数组成员数 (数组)
计次循环首 (总, 计次)
循环判断首 ()  ' 重复 过滤
s ＝ 取随机数 (1, 总)  ' 这里重新来取，这种 方式比较绕  还有一种 简单的方式就像  树型框 那种排序 就好
循环判断尾 (寻找文本 (记录, 到文本 (s), , 假) ≠ -1)  ' 表示不存在了  没有重复了
记录 ＝ 记录 ＋ 到文本 (s) ＋ “ - ”  ' 这里 过滤重复
新 [计次] ＝ s
计次循环尾 ()
调试输出 (新)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕, , , 汉族<br /> .局部变量 数组, 整数型, , "10"<br /> .局部变量 新, 整数型, , "10"<br /> .局部变量 计次, 整数型<br /> .局部变量 总, 整数型<br /> .局部变量 s, 整数型<br /> .局部变量 记录, 文本型<br /> <br /> 置随机数种子 ()<br /> 数组 ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 }<br /> 总 ＝ 取数组成员数 (数组)<br /> .计次循环首 (总, 计次)<br />     .循环判断首 ()  ' 重复 过滤<br />         s ＝ 取随机数 (1, 总)  ' 这里重新来取，这种 方式比较绕  还有一种 简单的方式就像  树型框 那种排序 就好<br />     .循环判断尾 (寻找文本 (记录, 到文本 (s), , 假) ≠ -1)  ' 表示不存在了  没有重复了<br />     记录 ＝ 记录 ＋ 到文本 (s) ＋ “ - ”  ' 这里 过滤重复<br />     新 [计次] ＝ s<br /> .计次循环尾 ()<br /> 调试输出 (新)

难寻。

.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 文本数组, 文本型, , "0"
.局部变量 数字数组, 整数型, , "0"
.局部变量 临时, 文本型

置随机数种子 ()
.判断循环首 (取数组成员数 (文本数组) ＜ 33)

    临时 ＝ 到文本 (取随机数 (1, 32))
    .判断开始 (数组_取次数 (文本数组, 临时) ＝ 0)
        加入成员 (文本数组, 临时)
        加入成员 (数字数组, 到整数 (临时))
        调试输出 (文本数组, 数字数组)
    .默认

    .判断结束

.判断循环尾 ()

文本随机数组和整数随机数组都出来了。

1070708268

支持开源~！感谢分享