发表于:2019/7/16 8:24:31
#0楼
FUNCTION_BLOCK FB1
VAR_INPUT
ENABLE : Bool;
END_VAR
VAR_IN_OUT
MACHINENUMBER : Array[7..12] of Int;
END_VAR
VAR
I : Int;
J : Int;
TEMP : Int;
END_VAR
BEGIN
IF ENABLE THEN
FOR I := 7 TO 11 DO
FOR J := I + 1 TO 12 DO
IF MACHINENUMBER[I] < MACHINENUMBER[J] THEN
TEMP := MACHINENUMBER[I];
MACHINENUMBER[I] := MACHINENUMBER[J];
MACHINENUMBER[J] := TEMP;
END_IF;
END_FOR;
END_FOR;
END_IF;
END_FUNCTION_BLOCK
VAR_INPUT
ENABLE : Bool;
END_VAR
VAR_IN_OUT
MACHINENUMBER : Array[7..12] of Int;
END_VAR
VAR
I : Int;
J : Int;
TEMP : Int;
END_VAR
BEGIN
IF ENABLE THEN
FOR I := 7 TO 11 DO
FOR J := I + 1 TO 12 DO
IF MACHINENUMBER[I] < MACHINENUMBER[J] THEN
TEMP := MACHINENUMBER[I];
MACHINENUMBER[I] := MACHINENUMBER[J];
MACHINENUMBER[J] := TEMP;
END_IF;
END_FOR;
END_FOR;
END_IF;
END_FUNCTION_BLOCK