wst 发表于 2021-8-20 15:47:37

(*冒泡排序法*)源码

声明
FUNCTION_BLOCK FB_BubbleSortMethod_1
VAR_INPUT
        EN:BOOL;//ENABLE       
    mode:order_mode;
        data_IN:ARRAY OF INT;
END_VAR
VAR_OUTPUT
        ENO:BOOL;//out
        data_OUT:ARRAY OF INT;
END_VAR
VAR
        ARR:ARRAY OF INT;
        N: INT;
        I: INT;
        M: INT;
        J: INT;
        T: int;
END_VAR

程序
ENO:=EN;
ARR:=data_IN;
IF EN THEN       
        IF MODE=InvertedSequence THEN
        FORN:=0 TO 9 BY 1 DO
            IF I<9-N THEN I:=9-N; END_IF       
                FOR M:=0 TO i-1 BY 1 DO
                        J:=M+1;               
         IFARR>ARR THEN
                                T:=ARR;
                                ARR:=ARR;
                                ARR:=T;
                   END_IF                       
                END_FOR
        END_FOR
        ELSIF MODE=seriation THEN
        FORN:=0 TO 9 BY 1 DO
            IF I<9-N THEN I:=9-N; END_IF       
                FOR M:=0 TO i-1 BY 1 DO
                        J:=M+1;               
         IFARR<ARR THEN
                                T:=ARR;
                                ARR:=ARR;
                                ARR:=T;
                   END_IF                       
                END_FOR
        END_FOR
        END_IF
END_IF
IF NOT EN THEN
        data_OUT:=
        data_OUT:=
        data_out:=
        data_out:=
        data_out:=
    data_out:=
        data_out:=
        data_out:=
        data_out:=
        data_out:=0;
END_IF
data_OUT:=ARR;

e392640 发表于 2026-1-10 23:30:56

帖后跳转到最后一页
页: [1]
查看完整版本: (*冒泡排序法*)源码