快速排序、不用精币直接发源码！

莫小乐

直奔主题！

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
正序	逻辑型

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

子程序名	返回值类型	公开	备 注
快速排序			快速排序入口：按“是正序”变量控制方向
参数名	类 型	参考	可空	数组	备 注
数据数组	整数型				, 待排序的数组
索引数组	整数型				, 同步排序的索引数组（与数据一一对应）

如果真 (取数组成员数 (数据数组) ＝ 0)  ' 空数组直接返回
返回 ()
' 调用内部排序，数组下标从1开始（易语言默认）
快速排序_内部 (数据数组, 索引数组, 1, 取数组成员数 (数据数组))

子程序名	返回值类型	公开	备 注
快速排序_内部			递归实现快速排序
参数名	类 型	参考	可空	数组	备 注
数据	整数型
索引	整数型
左边界	整数型				排序起始下标（1-based）
右边界	整数型				排序结束下标（1-based）

变量名	类 型	静态	数组	备 注
基准位置	整数型

如果真 (左边界 ≥ 右边界)  ' 递归终止条件：子数组长度≤1
返回 ()

' 划分数组，返回基准值位置（左侧均符合条件，右侧相反）
基准位置 ＝ 划分数组 (数据, 索引, 左边界, 右边界)
' 递归排序基准值左侧子数组
快速排序_内部 (数据, 索引, 左边界, 基准位置 － 1)
' 递归排序基准值右侧子数组
快速排序_内部 (数据, 索引, 基准位置 ＋ 1, 右边界)

子程序名	返回值类型	公开	备 注
划分数组	整数型		将数组划分为两部分，返回基准值位置
参数名	类 型	参考	可空	数组	备 注
数据	整数型
索引	整数型
左	整数型
右	整数型

变量名	类 型	静态	数组	备 注
基准值	整数型
i	整数型
j	整数型
临时	整数型

基准值 ＝ 数据 [右]  ' 以最右侧元素为基准
i ＝ 左 － 1  ' 左区域初始为空（指针在左边界左侧）
' 遍历左到右-1的所有元素
计次循环首 (右 － 左, j)
j ＝ 左 ＋ j － 1  ' 计算实际遍历位置（左 → 右-1）
' 根据“是正序”判断是否放入左区域
判断 (正序 ＝ 真)  ' 升序：左区域放“≤基准值”的元素
如果 (数据 [j] ≤ 基准值)
i ＝ i ＋ 1  ' 左区域扩大
交换元素 (数据, 索引, i, j)  ' 当前元素放入左区域



如果 (数据 [j] ≥ 基准值)
i ＝ i ＋ 1  ' 左区域扩大
交换元素 (数据, 索引, i, j)  ' 当前元素放入左区域




计次循环尾 ()
' 将基准值放到最终位置（左区域末尾+1）
i ＝ i ＋ 1
交换元素 (数据, 索引, i, 右)
返回 (i)  ' 返回基准值位置

子程序名	返回值类型	公开	备 注
交换元素			交换两个位置的元素及对应索引
参数名	类 型	参考	可空	数组	备 注
数据	整数型
索引	整数型
位置A	整数型				第一个位置
位置B	整数型				第二个位置

变量名	类 型	静态	数组	备 注
临时	整数型

' 交换数据元素
临时 ＝ 数据 [位置A]
数据 [位置A] ＝ 数据 [位置B]
数据 [位置B] ＝ 临时
' 同步交换索引（保持关联关系）
临时 ＝ 索引 [位置A]
索引 [位置A] ＝ 索引 [位置B]
索引 [位置B] ＝ 临时

子程序名	返回值类型	公开	备 注
_按钮_升序_被单击			测试升序排序（从小到大）

变量名	类 型	静态	数组	备 注
测试数据	整数型		5
测试索引	整数型		5
k	整数型

' 初始化数据：{5,6,1,2,3}
测试数据 ＝ { 5, 6, 1, 2, 3 }
计次循环首 (5, k)
测试索引 [k] ＝ k  ' 索引初始为1-5（对应原数据位置）
计次循环尾 ()
正序 ＝ 真  ' 设为升序
快速排序 (测试数据, 测试索引)
调试输出 (“升序结果（从小到大）：”, 测试数据)  ' 预期：{1,2,3,5,6}
调试输出 (“升序同步索引：”, 测试索引)

子程序名	返回值类型	公开	备 注
_按钮_降序_被单击			测试降序排序（从大到小）

变量名	类 型	静态	数组	备 注
测试数据	整数型		5
测试索引	整数型		5
k	整数型

' 初始化数据：{5,6,1,2,3}
测试数据 ＝ { 5, 6, 1, 2, 3 }
计次循环首 (5, k)
测试索引 [k] ＝ k  ' 索引初始为1-5
计次循环尾 ()
正序 ＝ 假  ' 设为降序
快速排序 (测试数据, 测试索引)
调试输出 (“降序结果（从大到小）：”, 测试数据)  ' 预期：{6,5,3,2,1}
调试输出 (“降序同步索引：”, 测试索引)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 正序, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 快速排序, , , 快速排序入口：按“是正序”变量控制方向<br /> .参数 数据数组, 整数型, 数组, , 待排序的数组<br /> .参数 索引数组, 整数型, 数组, , 同步排序的索引数组（与数据一一对应）<br /> <br /> .如果真 (取数组成员数 (数据数组) ＝ 0)  ' 空数组直接返回<br />     返回 ()<br /> .如果真结束<br /> ' 调用内部排序，数组下标从1开始（易语言默认）<br /> 快速排序_内部 (数据数组, 索引数组, 1, 取数组成员数 (数据数组))<br /> <br /> .子程序 快速排序_内部, , , 递归实现快速排序<br /> .参数 数据, 整数型, 数组<br /> .参数 索引, 整数型, 数组<br /> .参数 左边界, 整数型, , 排序起始下标（1-based）<br /> .参数 右边界, 整数型, , 排序结束下标（1-based）<br /> .局部变量 基准位置, 整数型<br /> <br /> .如果真 (左边界 ≥ 右边界)  ' 递归终止条件：子数组长度≤1<br />     返回 ()<br /> .如果真结束<br /> <br /> ' 划分数组，返回基准值位置（左侧均符合条件，右侧相反）<br /> 基准位置 ＝ 划分数组 (数据, 索引, 左边界, 右边界)<br /> ' 递归排序基准值左侧子数组<br /> 快速排序_内部 (数据, 索引, 左边界, 基准位置 － 1)<br /> ' 递归排序基准值右侧子数组<br /> 快速排序_内部 (数据, 索引, 基准位置 ＋ 1, 右边界)<br /> <br /> .子程序 划分数组, 整数型, , 将数组划分为两部分，返回基准值位置<br /> .参数 数据, 整数型, 数组<br /> .参数 索引, 整数型, 数组<br /> .参数 左, 整数型<br /> .参数 右, 整数型<br /> .局部变量 基准值, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 临时, 整数型<br /> <br /> 基准值 ＝ 数据 [右]  ' 以最右侧元素为基准<br /> i ＝ 左 － 1  ' 左区域初始为空（指针在左边界左侧）<br /> <br /> ' 遍历左到右-1的所有元素<br /> .计次循环首 (右 － 左, j)<br />     j ＝ 左 ＋ j － 1  ' 计算实际遍历位置（左 → 右-1）<br /> <br />     ' 根据“是正序”判断是否放入左区域<br />     .判断开始 (正序 ＝ 真)  ' 升序：左区域放“≤基准值”的元素<br />         .如果 (数据 [j] ≤ 基准值)<br />             i ＝ i ＋ 1  ' 左区域扩大<br />             交换元素 (数据, 索引, i, j)  ' 当前元素放入左区域<br />         .否则<br /> <br />         .如果结束<br /> <br />     .默认<br />         .如果 (数据 [j] ≥ 基准值)<br />             i ＝ i ＋ 1  ' 左区域扩大<br />             交换元素 (数据, 索引, i, j)  ' 当前元素放入左区域<br />         .否则<br /> <br />         .如果结束<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' 将基准值放到最终位置（左区域末尾+1）<br /> i ＝ i ＋ 1<br /> 交换元素 (数据, 索引, i, 右)<br /> 返回 (i)  ' 返回基准值位置<br /> <br /> .子程序 交换元素, , , 交换两个位置的元素及对应索引<br /> .参数 数据, 整数型, 数组<br /> .参数 索引, 整数型, 数组<br /> .参数 位置A, 整数型, , 第一个位置<br /> .参数 位置B, 整数型, , 第二个位置<br /> .局部变量 临时, 整数型<br /> <br /> ' 交换数据元素<br /> 临时 ＝ 数据 [位置A]<br /> 数据 [位置A] ＝ 数据 [位置B]<br /> 数据 [位置B] ＝ 临时<br /> ' 同步交换索引（保持关联关系）<br /> 临时 ＝ 索引 [位置A]<br /> 索引 [位置A] ＝ 索引 [位置B]<br /> 索引 [位置B] ＝ 临时<br /> <br /> .子程序 _按钮_升序_被单击, , , 测试升序排序（从小到大）<br /> .局部变量 测试数据, 整数型, , "5"<br /> .局部变量 测试索引, 整数型, , "5"<br /> .局部变量 k, 整数型<br /> <br /> ' 初始化数据：{5,6,1,2,3}<br /> 测试数据 ＝ { 5, 6, 1, 2, 3 }<br /> .计次循环首 (5, k)<br />     测试索引 [k] ＝ k  ' 索引初始为1-5（对应原数据位置）<br /> .计次循环尾 ()<br /> <br /> 正序 ＝ 真  ' 设为升序<br /> 快速排序 (测试数据, 测试索引)<br /> 调试输出 (“升序结果（从小到大）：”, 测试数据)  ' 预期：{1,2,3,5,6}<br /> 调试输出 (“升序同步索引：”, 测试索引)<br /> <br /> .子程序 _按钮_降序_被单击, , , 测试降序排序（从大到小）<br /> .局部变量 测试数据, 整数型, , "5"<br /> .局部变量 测试索引, 整数型, , "5"<br /> .局部变量 k, 整数型<br /> <br /> ' 初始化数据：{5,6,1,2,3}<br /> 测试数据 ＝ { 5, 6, 1, 2, 3 }<br /> .计次循环首 (5, k)<br />     测试索引 [k] ＝ k  ' 索引初始为1-5<br /> .计次循环尾 ()<br /> <br /> 正序 ＝ 假  ' 设为降序<br /> 快速排序 (测试数据, 测试索引)<br /> 调试输出 (“降序结果（从大到小）：”, 测试数据)  ' 预期：{6,5,3,2,1}<br /> 调试输出 (“降序同步索引：”, 测试索引)

再不会复制粘贴那还是下载吧（和上面代码一模一样！可以不下） 快速排序.e (7.47 KB, 下载次数: 60)

2025-10-14 16:06 上传

点击文件名下载附件



自己写框架的边角料分享！如果觉得有用帮忙别让帖子沉了！（求听众）
博乐框架、资源共享！
https://bbs.ijingyi.com/forum.php?mod=viewthread&tid=14865621
(出处: 精易论坛)

jyntyx

66666666666666666666

hsy2

支持支持支持

abnerll

感谢分享

刺痛的伤009

额来看看

fengyewl

        支持开源~！感谢分享

天涯ol

        支持开源~！感谢分享

yifan1016

支持开源~！感谢分享

花喵喵

感谢分享，支持开源！！！

zuohaotan

谢谢分享

please

感谢分享，支持开源！！！