640?wx_fmt=png&from=appmsg.jpg

PROGRAM FindPerfectNumbers

VAR_INPUT

    MinValue: INT := 1;        // 鑼冨洿涓嬮檺

    MaxValue: INT := 10000;    // 鑼冨洿涓婇檺

END_VAR



VAR_OUTPUT

    PerfectCount: INT := 0;     // 瀹屾暟璁℃暟鍣�

    PerfectNumbers: ARRAY[1..100] OF INT; // 瀛樺偍瀹屾暟鐨勬暟缁�  

END_VAR



VAR

    CurrentNumber: INT;         // 褰撳墠妫�鏌ョ殑鏁板瓧

    DivisorSum: INT;            // 褰撳墠鏁板瓧鐨勫洜瀛愬拰

    Divisor: INT;               // 褰撳墠鍥犲瓙

    I: INT;                     // 寰�鐜�璁℃暟鍣�

    J: INT;                     // 鍒濆�嬪寲璁℃暟鍣�

END_VAR



(*

鐗堟湰璁板綍锛�

鐗堟湰          鏃ユ湡           浣滆��

 V1         2024-10-3       宸ユ帶鑰佺帇

*)





// 鍒濆�嬪寲瀹屾暟璁℃暟鍣ㄥ拰鏁扮粍

PerfectCount := 0;

FOR J := 1 TO 100 BY 1 DO

    PerfectNumbers[J] := 0;

END_FOR;



// 涓诲惊鐜�

FOR CurrentNumber := MinValue TO MaxValue DO

    DivisorSum := 0; // 閲嶇疆鍥犲瓙鍜�



    // 璁＄畻鍥犲瓙鍜�

    FOR Divisor := 1 TO CurrentNumber / 2 DO

        IF CurrentNumber MOD Divisor = 0 THEN

            DivisorSum := DivisorSum + Divisor; // 鍔犲叆鍥犲瓙

        END_IF;

    END_FOR;



    // 妫�鏌ユ槸鍚︿负瀹屾暟

    IF DivisorSum = CurrentNumber THEN

        PerfectCount := PerfectCount + 1; // 澧炲姞瀹屾暟璁℃暟

        // 瀛樺偍瀹屾暟

        IF PerfectCount <= 100 THEN

            PerfectNumbers[PerfectCount] := CurrentNumber;

        END_IF;

    END_IF;

END_FOR;