冒泡法排序c语言程序_[按键精灵手机版教程]排序算法之冒泡法—游戏扫拍卖行...

金猪脚本(原飞猪脚本)以按键精灵教学为主,涉及UiBot，Python,Lua等脚本编程语言,教学包括全自动办公脚本,游戏辅助脚本,引流脚本,网页脚本,安卓脚本,IOS脚本,注册脚本,点赞脚本,阅读脚本以及网赚脚本等各个领域。想制作脚本和学习按键精灵的朋友可以添加按键精灵学习交流群:554127455 学习路上不再孤单,金猪脚本伴你一同成长.

什么情况下会用到冒泡排序呢？ 例如，学生考试成绩的排列，财务部门支出清单的排序……等等。实现将一堆凌乱无序的东西，按照从大到小或者从小到大的顺序排列好，同时也能得知其中的最大值和最小值。

今天呢，我们借助游戏中的拍卖行，来讲解下如何用冒泡排序来实现。

算法原理:

冒泡排序(BubbleSort)

冒泡排序是最慢的排序算法，但也是新手最容易上手的一个排序方法。在实际运用中它是效率最低的算法。它通过一趟又一趟地比较数组中的每一个元素，使较大的数据下沉，较小的数据上升。它是O(n^2)的算法。

算的复杂度

有没有同学问，O(n^2)的算法是什么呢？这是其实是衡量算法速度快慢的一个指标，我们称之为算法的时间复杂度。时间复杂越大，算法的执行效率越低。

当然，并不是越快的算法，一定越好。算法还有另一个指标，叫空间复杂度，即算法占用多少空间，这个和内存息息相关。一个算法可能很快，但是它占用的内存多，不一定耗得起。

所以呢在不同的场合，我们需要根据不同的要求，会选择最合适的算法。

---

如何计算时间复杂度

时间复杂度，其实就是算法中某一语句循环执行的次数。

例如：冒泡排序法的原理For i = 1 To n

1. For j = 1 To n
2. 冒泡排序
3. Next
4. Next

复制代码

这个算法的时间复杂度，即“冒泡排序”这个语句的执行次数。当i=1的时候，For j = 1 To n:冒泡排序:Next，“冒泡排序”这个语句被执行了n次。

当i=2的时候，For j = 1To n:冒泡排序:Next，“冒泡排序”这个语句又被执行了n次。

当i=3的时候，For j = 1To n:冒泡排序:Next，“冒泡排序”这个语句又被执行了n次。

……

当i=n的时候，For j = 1To n:冒泡排序:Next，“冒泡排序”这个语句又被执行了n次。

综上，“冒泡排序”这个语句被执行了n个n次，即n*n=n^2次。所以冒泡排序的时间复杂度即为n^2，我们记为O(n^2)

注：1.如果算法中语句执行次数为一个常数，则时间复杂度为O(1)。

2.若一个算法的时间复杂度为O(n)=n^2+3n+4，我们只取算式中最高次方，即O(n^2)。

---

算法的实现

算法讲解：

'冒泡排序

//经过n-1趟子排序完成的,它的时间复杂度为O(n^2)

//优点：1.代码简单易懂；2.具有稳定性

1.获取到物品价格，存入数组su

2.获取到数组的个数，即物品的总数，记为M

3.循环开始

4.获取到数组su(0)的数值

5.su(0)与数组中剩余的数值对比(su(1)-su(M))，若数值大于su(0)，则相互调换

6.Su(0)存储数组中最大的值

7.循环到数组最后一个数值su(M)

8.结束第一次循环，数组的第一个元素su(0)为数组中最大值

9.从su(1) 到su(M)，重复5-8步骤，实现su数组最后为从大到小的降序排列。

---

代码具体实现：

1. Dim i,j
2. su= "105875|502150|411400|63525|111925|90750" //获取到的物品价格
3. su=Split(su, "|")
4. M = UBound(su)
5. //升序排序
6. For i = 0 To UBound(su)-1 //i=0 的时候 j循环是从 1循环到数组最小不 第一轮循环，su(0)和su (1)-su(5)进行比较 选择6个数中最小的数放到su(0) 第二轮循环 su(1)和su(2)-su(5)比较
7. For j = i+1 to UBound (su)
8. If int(su(i)) > int (su(j)) Then // 数组是字符串的 所以需要用int改为数值型 否则会出现错误
9. tran = su(j)
10. su(j) = su(i)
11. su(i) = tran //如果前一个数比后一个数大，就交换位置
12. End If
13. Next
14. Next
15. // 降序排序
16. For i = 0 To UBound(su)-1
17. For j = i+1 to UBound (su)
18. If int(su(i))
19. tran = su(j)
20. su(j) = su(i)
21. su(i) = tran //如果后一个数比前一个数大，就交换位置
22. End If
23. Next
24. Next

复制代码

代码的每一次实现

原数组： "105875|502150|411400|63525|111925|90750"

第一次循环：

取su(0)的值105875，与su(1)对比。su(1)>su(0)，则相互交换：

"502150|105875|411400|63525|111925|90750"

然后拿su(0)的值502150，与su(2)-su(5)对比，没有比su(0)更大的值，不再交换，结束。

第一次循环结束："502150|105875|411400|63525|111925|90750"

第二次循环：

取su(1)的值105875，与su(2)的值411400对比，su(2)>su(1)，则相互交换：

"502150|411400|105875|63525|111925|90750"

然后拿su(1)的值411400，与su(3)-su(5)对比，没有比su(1)更大的值，不再交换，结束。

第二次循环结束："502150|411400|105875|63525|111925|90750"

第三次循环：

取su(2)的值105875，与su(3)的值63525对比，su(3)

su(2)的值105875与su(4)的值111925对比，su(4)>su(2)，则相互交换：

"502150|411400|111925|63525|105875|90750"

然后拿su(2)的值111925，与su(5)的值90750对比，su(5)

第三次循环结束："502150|411400|111925|63525|105875|90750"

第四次循环：

取su(3)的值63525，与su(4)的值105875对比，su(4)>su(3)，相互交换：

"502150|411400|111925|105875|63525|90750"

取su(3)的值105875，与su(5)对比，su(5)第四次循环结束："502150|411400|111925|105875|63525|90750"

第五次循环：

取su(4)的值63525，与su(5)的值90750对比，su(4)>su(5)，相互交换，循环结束。

第五次循环结束："502150|411400|111925|105875|90750|63525"

此时数组已循环到最后，完成降序排列。

---

知识拓展

按数量级递增排列，常见的时间复杂度有：

常数阶O(1),对数阶O(log2n),线性阶O(n), 线性对数阶O(nlog2n),平方阶O(n2)，立方阶O(n3),...， k次方阶O(nk),指数阶O(2n)。随着问题规模n的不断增大，上述时间复杂度不断增大，算法的执行效率越低。

---

附上大大写好的冒泡排序VBS，各位大大可以直接调用使用哦~~

冒泡排序.rar (825 Bytes, 下载次数:111)

调用方法：

1. Include "C:冒泡排序.vbs" //地址是下载的冒泡排序vbs的所在地址
2. maopao su,1 // 语法： maopao 数组名称,升序或降序(1是升序，2是降序)
3. Sub Include(tz_var_file) //添加这段调用代码
4. Dim tz_var_fso, tz_var_f, tz_var_s
5. Set tz_var_fso = CreateObject("Scripting.FileSystemObject")
6. Set tz_var_f = tz_var_fso.OpenTextFile(tz_var_file)
7. tz_var_s = tz_var_f.ReadAll
8. Call tz_var_f.Close()
9. Call ExecuteGlobal(tz_var_s)
10. Set tz_var_fso = Nothing
11. End Sub