@嘉瑞 数组随机排序

Suky

数组随机排序
https://bbs.125.la/forum.php?mod=viewthread&tid=14788786
(出处: 精易论坛)


原数组：1,2,3,4,5,6,7,8,9,10   随机排序变成  3,4,5,6,7,8,9,10,1,2  或者8,9,10,1,2,3,4,5,6,7  


@嘉瑞

  

变量名	类 型	静态	数组	备 注
原数组	整数型		0
结果数组	整数型		0
k	整数型
n	整数型

置随机数种子 ()
原数组 ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 }
k ＝ 取随机数 (2, 取数组成员数 (原数组) － 1)  ' 减去的数值多少自定，用于确定最少错开几个数
变量循环首 (k ＋ 1, 取数组成员数 (原数组), 1, n)
加入成员 (结果数组, 原数组 [n])
变量循环尾 ()
计次循环首 (k, n)
加入成员 (结果数组, 原数组 [n])
计次循环尾 ()
调试输出 (结果数组)

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 原数组, 整数型, , "0"<br /> .局部变量 结果数组, 整数型, , "0"<br /> .局部变量 k, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 置随机数种子 ()<br /> 原数组 ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 }<br /> k ＝ 取随机数 (2, 取数组成员数 (原数组) － 1)  ' 减去的数值多少自定，用于确定最少错开几个数<br /> .变量循环首 (k ＋ 1, 取数组成员数 (原数组), 1, n)<br />     加入成员 (结果数组, 原数组 [n])<br /> .变量循环尾 ()<br /> .计次循环首 (k, n)<br />     加入成员 (结果数组, 原数组 [n])<br /> .计次循环尾 ()<br /> 调试输出 (结果数组)

如你们所见，我的确是在合理水帖


来自群组: 热心网友

诚悦科技

你这代码不够乱 试试我写的这段代码

  

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

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

变量名	类 型	静态	数组	备 注
原数组	整数型		0
结果数组	整数型		0
结果数组2	整数型		0
k	整数型
n	整数型
i	整数型

置随机数种子 ()
原数组 ＝ { 1, 2, 3, 4, 5, 6, 7, 8 }
k ＝ 取随机数 (2, 取数组成员数 (原数组) － 2)  ' 减去的数值多少自定，用于确定最少错开几个数
变量循环首 (k ＋ 1, 取数组成员数 (原数组), 1, n)
加入成员 (结果数组, 原数组 [n])
变量循环尾 ()
计次循环首 (k, n)
加入成员 (结果数组, 原数组 [n])
计次循环尾 ()
调试输出 (结果数组)
' 我写的代码
判断循环首 (取数组成员数 (原数组) ＞ 0)
i ＝ 取随机数 (1, 取数组成员数 (原数组))
加入成员 (结果数组2, 原数组 [i])
删除成员 (原数组, i, )
判断循环尾 ()
调试输出 (结果数组2)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 原数组, 整数型, , "0"<br /> .局部变量 结果数组, 整数型, , "0"<br /> .局部变量 结果数组2, 整数型, , "0"<br /> .局部变量 k, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 置随机数种子 ()<br /> 原数组 ＝ { 1, 2, 3, 4, 5, 6, 7, 8 }<br /> k ＝ 取随机数 (2, 取数组成员数 (原数组) － 2)  ' 减去的数值多少自定，用于确定最少错开几个数<br /> .变量循环首 (k ＋ 1, 取数组成员数 (原数组), 1, n)<br />     加入成员 (结果数组, 原数组 [n])<br /> .变量循环尾 ()<br /> .计次循环首 (k, n)<br />     加入成员 (结果数组, 原数组 [n])<br /> .计次循环尾 ()<br /> 调试输出 (结果数组)<br /> ' 我写的代码<br /> .判断循环首 (取数组成员数 (原数组) ＞ 0)<br />     i ＝ 取随机数 (1, 取数组成员数 (原数组))<br />     加入成员 (结果数组2, 原数组 <i>)<br />     删除成员 (原数组, i, )<br /> .判断循环尾 ()<br /> 调试输出 (结果数组2)

Suky

诚悦科技 发表于 2023-7-10 22:45
你这代码不够乱 试试我写的这段代码
[e=0].版本 2
.支持库 spec

你是没看原帖啊    没审题啊
人家要的是随机一个位置   把数组切块    然后把前面的调到后面去   
切开的两块里面   成员顺序还是按原数组里的顺序排

Suky

诚悦科技 发表于 2023-7-10 22:45
你这代码不够乱 试试我写的这段代码
[e=0].版本 2
.支持库 spec

单纯的数组乱序的话   你可以看看这里

数组随机排序、数组乱序
https://bbs.125.la/forum.php?mod=viewthread&tid=14712180
(出处: 精易论坛)

数组成员调序、数组乱序等
https://bbs.125.la/forum.php?mod=viewthread&tid=14748834
(出处: 精易论坛)

小了白了兔

笨来无一悟

  

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

变量名	类 型	静态	数组	备 注
原数组	整数型		0
k	整数型
n	整数型

置随机数种子 ()
原数组 ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 }
k ＝ 取随机数 (2, 取数组成员数 (原数组) － 1)  ' 减去的数值多少自定，用于确定最少错开几个数
计次循环首 (k, n)
加入成员 (原数组, 原数组 [n])
计次循环尾 ()
删除成员 (原数组, 1, k)
调试输出 (原数组)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 原数组, 整数型, , "0"<br /> .局部变量 k, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 置随机数种子 ()<br /> 原数组 ＝ { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 }<br /> k ＝ 取随机数 (2, 取数组成员数 (原数组) － 1)  ' 减去的数值多少自定，用于确定最少错开几个数<br /> .计次循环首 (k, n)<br />     加入成员 (原数组, 原数组 [n])<br /> .计次循环尾 ()<br /> 删除成员 (原数组, 1, k)<br /> 调试输出 (原数组)

Suky

笨来无一悟 发表于 2023-8-1 02:24
[e=4].版本 2
.支持库 spec