排序算法之冒泡排序

【六月五號】排序算法之冒泡排序

     今天說的仍然是一中簡單排序——冒泡排序，時間復雜度O(n^2)。
     其基本思想是：
     通過相鄰元素之間的比較和交換使較小的元素逐漸從后向前移動，就像水底的氣泡一樣逐漸向上冒。
     具體過程如下：
       首先比較d[n]和d[n-1]，若d[n]<d[n-1]，則交換，使較小的元素前移，較大的元素后移；接著比較d[n-1]和d[n-2]，以此類推，直到比較d[2]和d[1]并使較小的元素前移，第一趟排序結束,則d[1]為最小的元素。然后在d[2]..d[n]間進行第二趟排序，使第二小元素前移到d[2]位置；n-1趟排序后，整個冒泡排序結束。
    假設我們將把225  220  41  190  242  185  42  231這8個數排序
    排序過程演示
　　初始關鍵字：[225  220  41  190  242  185  42  231]不交換
　　d[8]和d[7]：[225  220  41  190  242  185  42  231]交換
　　d[7]和d[6]：[225  220  41  190  242  42  185  231]交換
　　d[6]和d[5]：[225  220  41  190  42  242  185  231]交換
　　d[5]和d[4]：[225  220  41  42  190  242  185  231]不交換
　　d[4]和d[3]：[225  220  41  42  190  242  185  231]交換
　　d[3]和d[2]：[225  41  220  42  190  242  185  231]交換
　　d[2]和d[1]：[41  225  220  42  190  242  185  231] 
　　
　　以上是一趟排序的演示，總共需要進行n-1趟排序
　　第一趟排序后：41  [225  220  42  190  242  185  231]
　　第二趟排序后：41  42  [225  220  185  190  242  231]
　　第三趟排序后：41  42  185  [225  220  190  231  242]
　　第四趟排序后：41  42  185  190  [225  220  231  242]
　　第五趟排序后：41  42  185  190  220  [225  231  242]
　　第六趟排序后：41  42  185  190  220  225  [231  242]
　　第七趟排序后：41  42  185  190  220  225  231  242

　　Pascal代碼：

　　const mx=10000;

　　var

　　   d:array[1..mx]of longint;

　　   n,i,j,k:longint;

　　begin

　　    readln(n);

　　    for i:=1 to n do read(d[i]);

　　    for i:=1 to n-1 do

　　    begin

　　        for j:=n-1 downto i do

　　        if d[j+1]<d[j] then

　　        begin    //相鄰元素交換 

　　            k:=d[j]; d[j]:=d[j+1]; d[j+1]:=k; 

　　        end;

　　    end;

　　    for i:=1 to n do writeln(d[i]);

　　End.