PLC 数组处理难？看这一篇就够了

FUNCTION_BLOCK PM_ArrayProcessing_v2VAR_INPUT    SortAscBtn : BOOL;    SortDescBtn : BOOL;    MaxBtn : BOOL;    MinBtn : BOOL;    AvgBtn : BOOL;    MedianBtn : BOOL;    InputArray : ARRAY[1..11] OF REAL;END_VARVAR_OUTPUT    SortedAscArray : ARRAY[1..11] OF REAL;    SortedDescArray : ARRAY[1..11] OF REAL;    MaxValue : REAL;    MinValue : REAL;    AvgValue : REAL;    MedianValue : REAL;END_VARVAR    TempArray : ARRAY[1..11] OF REAL;    I, J : INT;    Temp : REAL;    Sum : REAL;    ArrayLength : UINT;END_VAR
(*版本记录：版本          日期          作者 V1         2024-3-21     工控老王 V2         2024-8-09     工控老王*)
// 功能说明：// 对数组进行处理，根据不同功能的按钮，输出排序（从小到大，从大到小）、最大值、最小值、平均值、中位值
ArrayLength := SIZEOF(InputArray) / 4;
FOR I := 1 TO UINT_TO_INT(ArrayLength) DO    TempArray[i] := InputArray[i];END_FOR
IF SortAscBtn THEN    FOR I := 1 TO UINT_TO_INT(ArrayLength) - 1 DO        FOR J := I + 1 TO UINT_TO_INT(ArrayLength) DO            IF TempArray[i] > TempArray[j] THEN                Temp := TempArray[i];                TempArray[i] := TempArray[j];                TempArray[j] := Temp;            END_IF        END_FOR    END_FOR    FOR I := 1 TO UINT_TO_INT(ArrayLength) DO        SortedAscArray[I] := TempArray[I];    END_FOREND_IF
IF SortDescBtn THEN    FOR I := 1 TO UINT_TO_INT(ArrayLength) - 1 DO        FOR J := I + 1 TO UINT_TO_INT(ArrayLength) DO            IF TempArray[I] < TempArray[J] THEN                Temp := TempArray[I];                TempArray[I] := TempArray[J];                TempArray[J] := Temp;            END_IF        END_FOR    END_FOR    FOR I := 1 TO UINT_TO_INT(ArrayLength) DO        SortedDescArray[I] := TempArray[I];    END_FOREND_IF
IF MaxBtn THEN    MaxValue := InputArray[1];    FOR I := 2 TO UINT_TO_INT(ArrayLength) DO        IF InputArray[i] > MaxValue THEN            MaxValue := InputArray[i];        END_IF    END_FOREND_IF
IF MinBtn THEN    MinValue := InputArray[1];    FOR I := 2 TO UINT_TO_INT(ArrayLength) DO        IF InputArray[i] < MinValue THEN            MinValue := InputArray[i];        END_IF    END_FOREND_IF
IF AvgBtn THEN    Sum := 0;    FOR I := 1 TO UINT_TO_INT(ArrayLength) DO        Sum := Sum + InputArray[i];    END_FOR    AvgValue := Sum / UINT_TO_INT(ArrayLength);END_IF
IF MedianBtn THEN    FOR I := 1 TO UINT_TO_INT(ArrayLength)-1 DO        FOR J := I + 1 TO UINT_TO_INT(ArrayLength) DO            IF TempArray[I] > TempArray[J] THEN                Temp := TempArray[I];                TempArray[I] := TempArray[J];                TempArray[J] := Temp;            END_IF        END_FOR    END_FOR    IF UINT_TO_INT(ArrayLength) MOD 2 = 0 THEN        MedianValue := (TempArray[UINT_TO_INT(ArrayLength) / 2] + TempArray[UINT_TO_INT(ArrayLength) / 2 + 1]) / 2;    ELSE        MedianValue := TempArray[UINT_TO_INT(ArrayLength) / 2 + 1];    END_IFEND_IF