冒泡排序算法

winzhi

// Bubble Sort
(*
比较相邻的元素，如果第一个比第二个大，就交换；对每一对相邻元素作同样的操作，从开始第一对到结尾的最后一对；
这步做完后，最后的元素会是最大的数；针对所有的元素重复以上的步骤，直到没有任何一对数字需要比较。
*)
#sort_temp := #Sort_IN;

FOR #i := 1 TO #LEN - 1 DO  // 外循环
    FOR #j := 1 TO #LEN - #i DO  // 内循环，两两比较，找到极值
        IF (#Asc_Des AND #sort_temp[#j] > #sort_temp[#j + 1]) OR (NOT #Asc_Des AND #sort_temp[#j] < #sort_temp[#j + 1]) THEN
            // #sort_temp[#j] > #sort_temp[#j + 1]，升序
            #temp := #sort_temp[#j];
            #sort_temp[#j] := #sort_temp[#j + 1];
            #sort_temp[#j + 1] := #temp;
        END_IF;
    END_FOR;
END_FOR;

#Sort_OUT := #sort_temp;