数组排序问题

幸福长久

明天自然醒 发表于 2024-6-23 23:51
https://bbs.125.la/forum.php?mod=viewthread&tid=14807108&extra=

太强了 不会用

幸福长久

风度猫 发表于 2024-6-24 00:08
那你也得具体你的数组 是啥样  来个样本吧

.版本 2
.支持库 spec

.局部变量 A, 整数型, , "0"
.局部变量 b, 文本型, , "0"
.局部变量 i, 整数型

A ＝ { 2, 4, 5, 3, 1 }
b ＝ { “A1”, “S1”, “W1”, “D1”, “J1” }
.计次循环首 (取数组成员数 (A), i)
    调试输出 (A )
    调试输出 (b )
.计次循环尾 ()
数组排序 (A, )
调试输出 (A)
' 数组排除后 我这个文本内容数组怎么跟着排序过来？

风度猫

幸福长久 发表于 2024-6-24 00:12
.版本 2
.支持库 spec

你这样两个数组肯定不行了...
排序.e (954.65 KB, 下载次数: 4)

2024-6-24 00:33 上传

点击文件名下载附件

幸福长久

风度猫 发表于 2024-6-24 00:33
你这样两个数组肯定不行了...

改成数组后 错误(10019): 自定义数据类型中数组成员的成员数目不能为 0 。

幸福长久

.版本 2

.数据类型 自定义排序类
    .成员 a, 整数型, , "0"
    .成员 b, 文本型, , "0"

明天自然醒

  

子程序名	返回值类型	公开	备 注
冒泡排序			升序，从小到大
参数名	类 型	参考	可空	数组	备 注
value	数据类型1

变量名	类 型	静态	数组	备 注
i	整数型
j	整数型

计次循环首 (取数组成员数 (value), i)
计次循环首 (取数组成员数 (value) － i, j)
如果真 (value [j].a ＞ value [j ＋ 1].a)
交换变量 (value [j], value [j ＋ 1])

计次循环尾 ()
计次循环尾 ()

.版本 2<br /> <br /> .子程序 冒泡排序, , , 升序，从小到大<br /> .参数 value, 数据类型1, 参考 数组<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> <br /> .计次循环首 (取数组成员数 (value), i)<br />     .计次循环首 (取数组成员数 (value) － i, j)<br />         .如果真 (value [j].a ＞ value [j ＋ 1].a)<br />             交换变量 (value [j], value [j ＋ 1])<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()

最简单的，最慢的

明天自然醒

  

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

快速排序 (数组, , )

子程序名	返回值类型	公开	备 注
快速排序			升序
参数名	类 型	参考	可空	数组	备 注
arr	数据类型1
p_left	整数型
p_right	整数型

变量名	类 型	静态	数组	备 注
mid	数据类型1
i	整数型
j	整数型

如果真 (p_left ＞ p_right)
返回 ()

如果真 (p_left ≤ 0)
p_left ＝ 1

如果真 (p_right ≤ 0)
p_right ＝ 取数组成员数 (arr)

i ＝ p_left
j ＝ p_right
mid ＝ arr [p_left]
判断循环首 (i ＜ j)  ' 在整个范围内搜寻比枢纽元值小或大的元素，然后将左侧元素与右侧元素交换
判断循环首 (arr [j].a ≥ mid.a 且 i ＜ j)  ' 试图在右侧找到一个比枢纽元更小的元素
j ＝ j － 1
判断循环尾 ()
判断循环首 (arr [i].a ≤ mid.a 且 i ＜ j)  ' 试图在左侧找到一个比枢纽元更大的元素
i ＝ i ＋ 1
判断循环尾 ()
如果真 (i ＜ j)
交换变量 (arr [i], arr [j])

判断循环尾 ()
交换变量 (arr [p_left], arr [i])
arr [i] ＝ mid
快速排序 (arr, p_left, i － 1)
快速排序 (arr, i ＋ 1, p_right)

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 快速排序 (数组, , )<br /> <br /> .子程序 快速排序, , , 升序<br /> .参数 arr, 数据类型1, 参考 数组<br /> .参数 p_left, 整数型, 可空<br /> .参数 p_right, 整数型, 可空<br /> .局部变量 mid, 数据类型1<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> <br /> .如果真 (p_left ＞ p_right)<br />     返回 ()<br /> .如果真结束<br /> <br /> .如果真 (p_left ≤ 0)<br />     p_left ＝ 1<br /> .如果真结束<br /> <br /> .如果真 (p_right ≤ 0)<br />     p_right ＝ 取数组成员数 (arr)<br /> .如果真结束<br /> <br /> i ＝ p_left<br /> j ＝ p_right<br /> <br /> mid ＝ arr [p_left]<br /> <br /> .判断循环首 (i ＜ j)  ' 在整个范围内搜寻比枢纽元值小或大的元素，然后将左侧元素与右侧元素交换<br />     .判断循环首 (arr [j].a ≥ mid.a 且 i ＜ j)  ' 试图在右侧找到一个比枢纽元更小的元素<br />         j ＝ j － 1<br />     .判断循环尾 ()<br /> <br />     .判断循环首 (arr <i>.a ≤ mid.a 且 i ＜ j)  ' 试图在左侧找到一个比枢纽元更大的元素<br />         i ＝ i ＋ 1<br />     .判断循环尾 ()<br /> <br />     .如果真 (i ＜ j)<br />         交换变量 (arr <i>, arr [j])<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 交换变量 (arr [p_left], arr <i>)<br /> arr <i> ＝ mid<br /> <br /> 快速排序 (arr, p_left, i － 1)<br /> 快速排序 (arr, i ＋ 1, p_right)

快速的排序算法，但是特殊情况下好像会崩

幸福长久

小了白了兔 发表于 2024-6-24 00:48
[e=1].版本 2
.支持库 spec

还是你的简单好使！谢谢你和大家！