冒泡算法

九小天

冒泡排序.e (4.68 KB, 下载次数: 51)

2022-4-19 12:12 上传

点击文件名下载附件

九小天

APPLEUFO 发表于 2022-4-23 21:52
挺酷的，论坛里最好看的排序界面了  

我稍微改了下  弄了个鸡尾酒排序的

这个不错

APPLEUFO

挺酷的，论坛里最好看的排序界面了  

我稍微改了下  弄了个鸡尾酒排序的

排序就管排序，可以简化一点 ，画界面和填充数组扔到启动页面去吧

  

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

变量名	类 型	静态	数组	备 注
i	整数型
ii	整数型
max	整数型
emp	整数型

计次循环首 (取数组成员数 (局变_待排序数组), i)
max ＝ 局变_待排序数组 [i]
计次循环首 (取数组成员数 (局变_待排序数组) － i, ii)
判断 (局变_待排序数组 [i ＋ ii] ＞ max)
emp ＝ 局变_待排序数组 [i ＋ ii]
局变_待排序数组 [i ＋ ii] ＝ max
局变_待排序数组 [i] ＝ emp
max ＝ emp



计次循环尾 ()
计次循环首 (柱子数量, i)
进度条 [i].位置 ＝ 局变_待排序数组 [i]
计次循环尾 ()
计次循环尾 ()

.版本 2<br /> <br /> .子程序 子程序2<br /> .局部变量 i, 整数型<br /> .局部变量 ii, 整数型<br /> .局部变量 max, 整数型<br /> .局部变量 emp, 整数型<br /> <br /> <br /> .计次循环首 (取数组成员数 (局变_待排序数组), i)<br />     max ＝ 局变_待排序数组 <i><br />     .计次循环首 (取数组成员数 (局变_待排序数组) － i, ii)<br />         .判断开始 (局变_待排序数组 [i ＋ ii] ＞ max)<br />             emp ＝ 局变_待排序数组 [i ＋ ii]<br />             局变_待排序数组 [i ＋ ii] ＝ max<br />             局变_待排序数组 <i> ＝ emp<br />             max ＝ emp<br />         .默认<br /> <br />         .判断结束<br /> <br /> <br />     .计次循环尾 ()<br /> <br />     .计次循环首 (柱子数量, i)<br />         进度条 <i>.位置 ＝ 局变_待排序数组 <i><br />     .计次循环尾 ()<br /> <br /> .计次循环尾 ()

  

子程序名	返回值类型	公开	备 注
排序模块__鸡尾酒排序
参数名	类 型	参考	可空	数组	备 注
参数_数组	整数型

变量名	类 型	静态	数组	备 注
局变_方向左	整数型
局变_方向右	整数型
局变_找最大或最小	逻辑型
局变_记录点	整数型
ls	整数型
m1	整数型

局变_方向左 ＝ 1
局变_方向右 ＝ 取数组成员数 (参数_数组)
计次循环首 (取数组成员数 (参数_数组), )
如果 (局变_找最大或最小 ＝ 假)
局变_记录点 ＝ 局变_方向左
ls ＝ 参数_数组 [局变_记录点]
变量循环首 (局变_方向左 ＋ 1, 局变_方向右, 1, m1)
如果真 (ls ＞ 参数_数组 [m1])
ls ＝ 参数_数组 [m1]
局变_记录点 ＝ m1

变量循环尾 ()
交换变量 (参数_数组 [局变_方向左], 参数_数组 [局变_记录点])  ' 交换两个成员的值
局变_方向左 ＝ 局变_方向左 ＋ 1


局变_记录点 ＝ 局变_方向右
ls ＝ 参数_数组 [局变_记录点]
变量循环首 (局变_方向右 － 1, 局变_方向左, -1, m1)
如果真 (ls ＜ 参数_数组 [m1])
ls ＝ 参数_数组 [m1]
局变_记录点 ＝ m1

变量循环尾 ()
交换变量 (参数_数组 [局变_方向右], 参数_数组 [局变_记录点])  ' 交换两个成员的值
局变_方向右 ＝ 局变_方向右 － 1

' 调试输出 (参数_数组)
局变_找最大或最小 ＝ 取反 (局变_找最大或最小)
计次循环尾 ()

.版本 2<br /> <br /> .子程序 排序模块__鸡尾酒排序, , 公开<br /> .参数 参数_数组, 整数型, 数组<br /> .局部变量 局变_方向左, 整数型<br /> .局部变量 局变_方向右, 整数型<br /> .局部变量 局变_找最大或最小, 逻辑型<br /> .局部变量 局变_记录点, 整数型<br /> .局部变量 ls, 整数型<br /> .局部变量 m1, 整数型<br /> <br /> 局变_方向左 ＝ 1<br /> 局变_方向右 ＝ 取数组成员数 (参数_数组)<br /> <br /> .计次循环首 (取数组成员数 (参数_数组), )<br /> <br />     .如果 (局变_找最大或最小 ＝ 假)<br /> <br />         局变_记录点 ＝ 局变_方向左<br />         ls ＝ 参数_数组 [局变_记录点]<br /> <br />         .变量循环首 (局变_方向左 ＋ 1, 局变_方向右, 1, m1)<br />             .如果真 (ls ＞ 参数_数组 [m1])<br />                 ls ＝ 参数_数组 [m1]<br />                 局变_记录点 ＝ m1<br />             .如果真结束<br /> <br />         .变量循环尾 ()<br />         交换变量 (参数_数组 [局变_方向左], 参数_数组 [局变_记录点])  ' 交换两个成员的值<br />         局变_方向左 ＝ 局变_方向左 ＋ 1<br />     .否则<br /> <br />         局变_记录点 ＝ 局变_方向右<br />         ls ＝ 参数_数组 [局变_记录点]<br /> <br />         .变量循环首 (局变_方向右 － 1, 局变_方向左, -1, m1)<br />             .如果真 (ls ＜ 参数_数组 [m1])<br />                 ls ＝ 参数_数组 [m1]<br />                 局变_记录点 ＝ m1<br />             .如果真结束<br /> <br />         .变量循环尾 ()<br />         交换变量 (参数_数组 [局变_方向右], 参数_数组 [局变_记录点])  ' 交换两个成员的值<br />         局变_方向右 ＝ 局变_方向右 － 1<br />     .如果结束<br /> <br />     ' 调试输出 (参数_数组)<br />     局变_找最大或最小 ＝ 取反 (局变_找最大或最小)<br /> .计次循环尾 ()

APPLEUFO

挺酷的，论坛里最好看的排序界面了  

我稍微改了下  弄了个鸡尾酒排序的

排序就管排序，可以简化一点 ，画界面和填充数组扔到启动页面去吧

  

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

变量名	类 型	静态	数组	备 注
i	整数型
ii	整数型
max	整数型
emp	整数型

计次循环首 (取数组成员数 (局变_待排序数组), i)
max ＝ 局变_待排序数组 [i]
计次循环首 (取数组成员数 (局变_待排序数组) － i, ii)
判断 (局变_待排序数组 [i ＋ ii] ＞ max)
emp ＝ 局变_待排序数组 [i ＋ ii]
局变_待排序数组 [i ＋ ii] ＝ max
局变_待排序数组 [i] ＝ emp
max ＝ emp



计次循环尾 ()
计次循环首 (柱子数量, i)
进度条 [i].位置 ＝ 局变_待排序数组 [i]
计次循环尾 ()
计次循环尾 ()

.版本 2<br /> <br /> .子程序 子程序2<br /> .局部变量 i, 整数型<br /> .局部变量 ii, 整数型<br /> .局部变量 max, 整数型<br /> .局部变量 emp, 整数型<br /> <br /> <br /> .计次循环首 (取数组成员数 (局变_待排序数组), i)<br />     max ＝ 局变_待排序数组 <i><br />     .计次循环首 (取数组成员数 (局变_待排序数组) － i, ii)<br />         .判断开始 (局变_待排序数组 [i ＋ ii] ＞ max)<br />             emp ＝ 局变_待排序数组 [i ＋ ii]<br />             局变_待排序数组 [i ＋ ii] ＝ max<br />             局变_待排序数组 <i> ＝ emp<br />             max ＝ emp<br />         .默认<br /> <br />         .判断结束<br /> <br /> <br />     .计次循环尾 ()<br /> <br />     .计次循环首 (柱子数量, i)<br />         进度条 <i>.位置 ＝ 局变_待排序数组 <i><br />     .计次循环尾 ()<br /> <br /> .计次循环尾 ()

  

子程序名	返回值类型	公开	备 注
排序模块__鸡尾酒排序
参数名	类 型	参考	可空	数组	备 注
参数_数组	整数型

变量名	类 型	静态	数组	备 注
局变_方向左	整数型
局变_方向右	整数型
局变_找最大或最小	逻辑型
局变_记录点	整数型
ls	整数型
m1	整数型

局变_方向左 ＝ 1
局变_方向右 ＝ 取数组成员数 (参数_数组)
计次循环首 (取数组成员数 (参数_数组), )
如果 (局变_找最大或最小 ＝ 假)
局变_记录点 ＝ 局变_方向左
ls ＝ 参数_数组 [局变_记录点]
变量循环首 (局变_方向左 ＋ 1, 局变_方向右, 1, m1)
如果真 (ls ＞ 参数_数组 [m1])
ls ＝ 参数_数组 [m1]
局变_记录点 ＝ m1

变量循环尾 ()
交换变量 (参数_数组 [局变_方向左], 参数_数组 [局变_记录点])  ' 交换两个成员的值
局变_方向左 ＝ 局变_方向左 ＋ 1


局变_记录点 ＝ 局变_方向右
ls ＝ 参数_数组 [局变_记录点]
变量循环首 (局变_方向右 － 1, 局变_方向左, -1, m1)
如果真 (ls ＜ 参数_数组 [m1])
ls ＝ 参数_数组 [m1]
局变_记录点 ＝ m1

变量循环尾 ()
交换变量 (参数_数组 [局变_方向右], 参数_数组 [局变_记录点])  ' 交换两个成员的值
局变_方向右 ＝ 局变_方向右 － 1

' 调试输出 (参数_数组)
局变_找最大或最小 ＝ 取反 (局变_找最大或最小)
计次循环尾 ()

.版本 2<br /> <br /> .子程序 排序模块__鸡尾酒排序, , 公开<br /> .参数 参数_数组, 整数型, 数组<br /> .局部变量 局变_方向左, 整数型<br /> .局部变量 局变_方向右, 整数型<br /> .局部变量 局变_找最大或最小, 逻辑型<br /> .局部变量 局变_记录点, 整数型<br /> .局部变量 ls, 整数型<br /> .局部变量 m1, 整数型<br /> <br /> 局变_方向左 ＝ 1<br /> 局变_方向右 ＝ 取数组成员数 (参数_数组)<br /> <br /> .计次循环首 (取数组成员数 (参数_数组), )<br /> <br />     .如果 (局变_找最大或最小 ＝ 假)<br /> <br />         局变_记录点 ＝ 局变_方向左<br />         ls ＝ 参数_数组 [局变_记录点]<br /> <br />         .变量循环首 (局变_方向左 ＋ 1, 局变_方向右, 1, m1)<br />             .如果真 (ls ＞ 参数_数组 [m1])<br />                 ls ＝ 参数_数组 [m1]<br />                 局变_记录点 ＝ m1<br />             .如果真结束<br /> <br />         .变量循环尾 ()<br />         交换变量 (参数_数组 [局变_方向左], 参数_数组 [局变_记录点])  ' 交换两个成员的值<br />         局变_方向左 ＝ 局变_方向左 ＋ 1<br />     .否则<br /> <br />         局变_记录点 ＝ 局变_方向右<br />         ls ＝ 参数_数组 [局变_记录点]<br /> <br />         .变量循环首 (局变_方向右 － 1, 局变_方向左, -1, m1)<br />             .如果真 (ls ＜ 参数_数组 [m1])<br />                 ls ＝ 参数_数组 [m1]<br />                 局变_记录点 ＝ m1<br />             .如果真结束<br /> <br />         .变量循环尾 ()<br />         交换变量 (参数_数组 [局变_方向右], 参数_数组 [局变_记录点])  ' 交换两个成员的值<br />         局变_方向右 ＝ 局变_方向右 － 1<br />     .如果结束<br /> <br />     ' 调试输出 (参数_数组)<br />     局变_找最大或最小 ＝ 取反 (局变_找最大或最小)<br /> .计次循环尾 ()

肥智

学习一下

花影孤自怜

感谢分享！

冰棍好烫啊

        支持开源~！感谢分享

wjswzj0

感谢楼主的分享

深圳梦

支持开源~！感谢分享

y95628

病毒我也敢下载，我电脑都是不装杀毒soft的