取指定範圍內指定數值個數的隨機整數列

列明 · 发表于 2019-10-23 21:18:53

子程序名	返回值类型	公开	备注
取指定範圍內指定數值個數的隨機整數列	整数型
参数名	类型	参考	可空	数组	备注
隨機整數列	整数型
指定上限	整数型				默認為22
指定下限	整数型				默認為1
數值個數	整数型				默認為上限-下限+1
可否重複	逻辑型				默認為真=允許重複

变量名	类型	静态	数组	备注
臨時隨機整數	整数型
循环计次	整数型
不重複個數	整数型

清除数组 (隨機整數列)

如果真 (是否为空 (指定上限))

指定上限＝ 22

如果真 (是否为空 (指定下限))

指定下限＝ 1

如果真 (是否为空 (數值個數))

數值個數＝指定上限－指定下限＋ 1

如果真 (是否为空 (可否重複))

可否重複＝真

如果真 (數值個數＜ 1)

返回 (0)

判断 (數值個數 ≤ 指定上限－指定下限＋ 1)

' 節點.删除属性 ()

重定义数组 (隨機整數列, 假, 數值個數)

置随机数种子 ()

计次循环首 (數值個數, 循环计次)

' 臨時隨機整數＝取随机数 (指定下限, 指定上限)

隨機整數列 [循环计次] ＝取随机数 (指定下限, 指定上限) ' 臨時隨機整數

计次循环尾 ()

判断 (可否重複)

计次循环首 (數值個數, 循环计次)

判断循环首 (1 ＜取指定數列中指定數值個數 (隨機整數列, 隨機整數列 [循环计次]))

' 臨時隨機整數＝取随机数 (指定下限, 指定上限)

隨機整數列 [循环计次] ＝取随机数 (指定下限, 指定上限) ' 臨時隨機整數

判断循环尾 ()

计次循环尾 ()

返回 (取数组成员数 (隨機整數列))

返回 (0)

子程序名	返回值类型	公开	备注
取指定數列中指定數值個數	整数型
参数名	类型	参考	可空	数组	备注
指定數列	整数型
指定數值	整数型				默認為1

变量名	类型	静态	数组	备注
指定數列數值個數	整数型
循環計次	整数型
數值個數	整数型

指定數列數值個數＝取数组成员数 (指定數列)
數值個數＝ 0

判断 (指定數列數值個數＝ 0 或 0 ＜取数组下标 (指定數列, 2))

如果真 (是否为空 (指定數值))

指定數值＝ 1

计次循环首 (指定數列數值個數, 循環計次)

如果真 (指定數值＝指定數列 [循環計次])

數值個數＝數值個數＋ 1

计次循环尾 ()

返回 (數值個數)

.版本 2<br />
<br />
.子程序 取指定範圍內指定數值個數的隨機整數列, 整数型<br />
.参数 隨機整數列, 整数型, 数组<br />
.参数 指定上限, 整数型, 可空, 默認為22<br />
.参数 指定下限, 整数型, 可空, 默認為1<br />
.参数 數值個數, 整数型, 可空, 默認為上限-下限+1<br />
.参数 可否重複, 逻辑型, 可空, 默認為真=允許重複<br />
.局部变量 臨時隨機整數, 整数型<br />
.局部变量 循环计次, 整数型<br />
.局部变量 不重複個數, 整数型<br />
<br />
<br />
清除数组 (隨機整數列)<br />
.如果真 (是否为空 (指定上限))<br />
    指定上限 ＝ 22<br />
.如果真结束<br />
.如果真 (是否为空 (指定下限))<br />
    指定下限 ＝ 1<br />
.如果真结束<br />
.如果真 (是否为空 (數值個數))<br />
    數值個數 ＝ 指定上限 － 指定下限 ＋ 1<br />
.如果真结束<br />
.如果真 (是否为空 (可否重複))<br />
    可否重複 ＝ 真<br />
.如果真结束<br />
.如果真 (數值個數 ＜ 1)<br />
    返回 (0)<br />
.如果真结束<br />
.判断开始 (數值個數 ≤ 指定上限 － 指定下限 ＋ 1)<br />
    ' 節點.删除属性 ()<br />
    重定义数组 (隨機整數列, 假, 數值個數)<br />
    置随机数种子 ()<br />
    .计次循环首 (數值個數, 循环计次)<br />
        ' 臨時隨機整數 ＝ 取随机数 (指定下限, 指定上限)<br />
        隨機整數列 [循环计次] ＝ 取随机数 (指定下限, 指定上限)  ' 臨時隨機整數<br />
    .计次循环尾 ()<br />
    .判断开始 (可否重複)<br />
<br />
    .默认<br />
        .计次循环首 (數值個數, 循环计次)<br />
            .判断循环首 (1 ＜ 取指定數列中指定數值個數 (隨機整數列, 隨機整數列 [循环计次]))<br />
                ' 臨時隨機整數 ＝ 取随机数 (指定下限, 指定上限)<br />
                隨機整數列 [循环计次] ＝ 取随机数 (指定下限, 指定上限)  ' 臨時隨機整數<br />
            .判断循环尾 ()<br />
        .计次循环尾 ()<br />
    .判断结束<br />
    返回 (取数组成员数 (隨機整數列))<br />
.默认<br />
    返回 (0)<br />
.判断结束<br />
<br />
<br />
<br />
<br />
.子程序 取指定數列中指定數值個數, 整数型<br />
.参数 指定數列, 整数型, 数组<br />
.参数 指定數值, 整数型, 可空, 默認為1<br />
.局部变量 指定數列數值個數, 整数型<br />
.局部变量 循環計次, 整数型<br />
.局部变量 數值個數, 整数型<br />
<br />
<br />
指定數列數值個數 ＝ 取数组成员数 (指定數列)<br />
數值個數 ＝ 0<br />
.判断开始 (指定數列數值個數 ＝ 0 或 0 ＜ 取数组下标 (指定數列, 2))<br />
    .如果真 (是否为空 (指定數值))<br />
        指定數值 ＝ 1<br />
    .如果真结束<br />
    .计次循环首 (指定數列數值個數, 循環計次)<br />
        .如果真 (指定數值 ＝ 指定數列 [循環計次])<br />
            數值個數 ＝ 數值個數 ＋ 1<br />
        .如果真结束<br />
<br />
    .计次循环尾 ()<br />
.默认<br />
<br />
.判断结束<br />
返回 (數值個數)

未經測試，因為https://bbs.125.la/thread-14485297-1-1.html的附件所引用的支持庫我並沒有，所以無法編譯運行調試。
也懶得再特意去調教了。準備提交的時候帖子又封了。要不是為了榮譽值，早就去別的地方玩水了。
不過思路絶對沒問題，這麽個方法絶對行得通。
僅供參考。
直接附易指令序列，懶得截圖，懶得上傳易文件，懶得寫帖子了。