易语言快速排序动画演示(quick_sort)

易小方

易语言快速排序动画演示(quick_sort)  
    参考js源码 https://www.jb51.net/article/44233.htm
      易源码 易语言 快速排序 源码 供新手学习 10W随机数排序耗时50毫秒
               

  

子程序名	返回值类型	公开	备 注
quick_sort
参数名	类 型	参考	可空	数组	备 注
list	整数型
start	整数型
end	整数型

变量名	类 型	静态	数组	备 注
pivotpos	整数型
pivot	整数型
tmp	整数型
i	整数型

如果 (start ＜ end)  ' 递归执行结束判断
pivotpos ＝ start
pivot ＝ list [start]
i ＝ start ＋ 1
判断循环首 (i ≤ end)  ' （原文解释） 找出快排的基数.将一个序列调整成以基数为分割的两个区域，一边全都不小于基数，一边全都不大于基数
轨迹 (标签 [i])  ' 寻到轨迹变色
如果真 (list [i] ＜ pivot)
pivotpos ＝ pivotpos ＋ 1  ' 这行下面要调用
如果真 (list [i] ≠ list [pivotpos])  ' 加一个条件不相等的情况下交换变
动画移动 (标签 [i], 标签 [pivotpos])  ' 动画移动显示
交换变量 (标签 [i], 标签 [pivotpos])  ' 动画变量跟着交换
交换变量 (list [i], list [pivotpos])  ' 数组变量互换

i ＝ i ＋ 1
判断循环尾 ()
如果真 (list [pivotpos] ≠ list [start])  ' 加一个条件不相等的情况下交换变
动画移动 (标签 [pivotpos], 标签 [start])  ' 动画移动显示
交换变量 (标签 [pivotpos], 标签 [start])  ' 动画变量跟着交换
交换变量 (list [pivotpos], list [start])  ' 数组变量互换
调试输出 (list)
quick_sort (list, start, pivotpos － 1)  ' 将左边的快排一次
quick_sort (list, pivotpos ＋ 1, end)  ' 将右边的快排一次
返回 ()  ' 递归结束
' quick_sort (list, start, pivotpos － 1)  ' 将左边的快排一次
' quick_sort (list, pivotpos ＋ 1, end)  ' 将右边的快排一次
' 写上面写这都可以的
' 虽然照着搬过来了，还是没懂哈，多做几个程序应该就了解了

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 quick_sort<br /> .参数 list, 整数型, 数组<br /> .参数 start, 整数型<br /> .参数 end, 整数型<br /> .局部变量 pivotpos, 整数型<br /> .局部变量 pivot, 整数型<br /> .局部变量 tmp, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .如果 (start ＜ end)  ' 递归执行结束判断<br />     pivotpos ＝ start<br />     pivot ＝ list [start]<br />     i ＝ start ＋ 1<br />     .判断循环首 (i ≤ end)  ' （原文解释） 找出快排的基数.将一个序列调整成以基数为分割的两个区域，一边全都不小于基数，一边全都不大于基数<br />         轨迹 (标签 <i>)  ' 寻到轨迹变色<br />         .如果真 (list <i> ＜ pivot)<br />             pivotpos ＝ pivotpos ＋ 1  ' 这行下面要调用<br />             .如果真 (list <i> ≠ list [pivotpos])  ' 加一个条件不相等的情况下交换变<br />                 动画移动 (标签 <i>, 标签 [pivotpos])  ' 动画移动显示<br />                 交换变量 (标签 <i>, 标签 [pivotpos])  ' 动画变量跟着交换<br />                 交换变量 (list <i>, list [pivotpos])  ' 数组变量互换<br /> <br />             .如果真结束<br /> <br />         .如果真结束<br />         i ＝ i ＋ 1<br />     .判断循环尾 ()<br />     .如果真 (list [pivotpos] ≠ list [start])  ' 加一个条件不相等的情况下交换变<br />         动画移动 (标签 [pivotpos], 标签 [start])  ' 动画移动显示<br />         交换变量 (标签 [pivotpos], 标签 [start])  ' 动画变量跟着交换<br />         交换变量 (list [pivotpos], list [start])  ' 数组变量互换<br />     .如果真结束<br />     调试输出 (list)<br />     quick_sort (list, start, pivotpos － 1)  ' 将左边的快排一次<br />     quick_sort (list, pivotpos ＋ 1, end)  ' 将右边的快排一次<br /> .否则<br />     返回 ()  ' 递归结束<br /> .如果结束<br /> ' quick_sort (list, start, pivotpos － 1)  ' 将左边的快排一次<br /> ' quick_sort (list, pivotpos ＋ 1, end)  ' 将右边的快排一次<br /> ' 写上面写这都可以的<br /> ' 虽然照着搬过来了，还是没懂哈，多做几个程序应该就了解了

微信号

感谢大佬的辛苦付出，建议大佬把这个写成一个排序模块。

wed543

谢谢分享

q312459945

啊啊啊啊啊啊啊啊啊

keepking

支持开源，感谢分享

IT技术学?

6666666666666666666666666666666

fusiyon

支持开源~！感谢分享

boomsa

谢谢分享,get新技能

一指温柔

谢谢分享

清风徐来2

感谢分享