ST语言实现冒泡排序

在ST语言中，你可以使用以下代码实现冒泡排序算法：

PROGRAM BubbleSort
VAR
    arr: ARRAY[1..10] OF INT; // 假设要排序的数组长度为10
    i, j, temp: INT;
END_VAR

arr := [9, 5, 3, 7, 2, 8, 1, 6, 4, 10]; // 初始化要排序的数组

FOR i := 1 TO 10 DO // 外层循环控制比较的轮数
    FOR j := 1 TO 10 - i DO // 内层循环控制每轮比较的次数
        IF arr[j] > arr[j+1] THEN // 如果当前元素比下一个元素大，交换它们的位置
            temp := arr[j];
            arr[j] := arr[j+1];
            arr[j+1] := temp;
        END_IF
    END_FOR
END_FOR

// 输出排序后的结果
FOR i := 1 TO 10 DO
    PRINT(arr[i]);
END_FOR

以上代码实现了冒泡排序算法，对一个长度为10的数组进行排序。你可以根据实际情况修改数组长度和初始值。运行该程序后，会输出排序后的结果。