（1）升降序排序算法說(shuō)明：

升降序排列時(shí)，冒泡排序算法的運(yùn)作如下：

• 比較相鄰的元素。如果第一個(gè)比第二個(gè)大（?。?，就交換他們兩個(gè)。

• 對(duì)每一對(duì)相鄰元素作同樣的工作，從開始第一對(duì)到結(jié)尾的最后一對(duì)。

• 針對(duì)所有的元素重復(fù)以上的步驟，除了最后一個(gè)。

• 持續(xù)每次對(duì)越來(lái)越少的元素重復(fù)上面的步驟，直到?jīng)]有任何一對(duì)數(shù)字需要比較。

（2）OB1中子程序調(diào)用，如下圖所示：

（3）子程序變量聲明表，如下圖所示：

（4）模式為1為升序，其運(yùn)行結(jié)果，如下圖所示：

（5）模式為0為降序，其運(yùn)行結(jié)果，如下圖所示：

（6）SCL代碼，如下圖所示：

（7）SCL代碼（復(fù)制可用）

IF #Enable THEN

    //獲取數(shù)組上限

    #L := LOWER_BOUND(ARR := #Array, DIM := 1);

    //獲取數(shù)組下限

    #H := UPPER_BOUND(ARR := #Array, DIM := 1);

    //冒泡法排序

    FOR #i := #L TO #H-1 DO

        FOR #j := #L TO #H-1-#i DO

            IF #Mode THEN

                //升序排列

                IF #Array[#j] > #Array[#j + 1] THEN

                    #temp1 := #Array[#j];

                    #Array[#j] := #Array[#j + 1];

                    #Array[#j + 1] := #temp1;

                END_IF;

            ELSE

                //降序排列

                IF #Array[#j] < #Array[#j + 1] THEN

                    #temp1 := #Array[#j];

                    #Array[#j] := #Array[#j + 1];

                    #Array[#j + 1] := #temp1;

                END_IF;

            END_IF;

        END_FOR;

    END_FOR;

END_IF;

（8）程序編制注意事項(xiàng)：

• 數(shù)組上限自動(dòng)獲取函數(shù)的使用

• 數(shù)組下限自動(dòng)獲取函數(shù)的使用

• FOR循環(huán)的嵌套使用

• FOR循環(huán)的循環(huán)變量和數(shù)組上下限的配合