数据冒泡排序

代码如下：

FUNCTION_BLOCK Bubble_Sort
VAR_INPUT
    DATE_IN:ARRAY[0..9] OF INT;   (*  数据组输入  *)
    LEN_D:INT; (*  排序数量 - 1 例如：【9-1=8】 *)
END_VAR
VAR_OUTPUT
    DATE_OUT:ARRAY[0..9] OF INT;  (*  数据组排列 从小至大  例如：【0~8】 *)
END_VAR
VAR
    I_D,J_D,T_D:INT; (*  寻址  *)
END_VAR

(*  冒泡排序  *)
DATE_OUT  :=DATE_IN ;
FOR I_D:= 0 TO LEN_D-1 DO
     FOR  J_D:=0 TO LEN_D -1 - I_D DO
              IF  DATE_OUT[J_D] > DATE_OUT[J_D+1]  THEN
                   T_D :=  DATE_OUT[J_D] ;
                   DATE_OUT[J_D] :=  DATE_OUT[J_D+1] ;
                   DATE_OUT[J_D+1] :=  T_D ;
              END_IF;
      END_FOR;
END_FOR;