640?wx_fmt=png&from=appmsg.jpg

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 := InputArray;

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 > TempArray[j] THEN

                Temp := TempArray;

                TempArray := 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 > MaxValue THEN

            MaxValue := InputArray;

        END_IF

    END_FOR

END_IF



IF MinBtn THEN

    MinValue := InputArray[1];

    FOR I := 2 TO UINT_TO_INT(ArrayLength) DO

        IF InputArray < MinValue THEN

            MinValue := InputArray;

        END_IF

    END_FOR

END_IF



IF AvgBtn THEN

    Sum := 0;

    FOR I := 1 TO UINT_TO_INT(ArrayLength) DO

        Sum := Sum + InputArray;

    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