鏁扮粍澶勭悊闅撅紵鐪嬭繖涓�绡囧氨澶熶簡

FUNCTION_BLOCK PM_ArrayProcessing_v2
VAR_INPUT
    SortAscBtn : BOOL;
    SortDescBtn : BOOL;
    MaxBtn : BOOL;
    MinBtn : BOOL;
    AvgBtn : BOOL;
    MedianBtn : BOOL;
    InputArray : ARRAY[1..11] OF REAL;
END_VAR
VAR_OUTPUT
    SortedAscArray : ARRAY[1..11] OF REAL;
    SortedDescArray : ARRAY[1..11] OF REAL;
    MaxValue : REAL;
    MinValue : REAL;
    AvgValue : REAL;
    MedianValue : REAL;
END_VAR
VAR
    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_FOR
END_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_FOR
END_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_FOR
END_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_FOR
END_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_IF
END_IF