640?wx_fmt=png&from=appmsg.jpg

FUNCTION_BLOCK PM_ArmstrongNumbers

VAR_INPUT

  n : INT := 1000;                // 瀹氫箟鏈�澶у�� n

END_VAR

VAR_OUTPUT

  Count : INT := 0;               // 闃垮�嗘柉鐗规湕鏁扮殑璁℃暟

  ArmstrongArray : ARRAY[1..100] OF INT; // 瀛樺偍闃垮�嗘柉鐗规湕鏁扮殑鏁扮粍

END_VAR

VAR

    j : INT;                        // 鍒濆�嬪寲

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

    sum : INT;                      // 鐢ㄤ簬瀛樺偍鍚勪綅鏁板瓧鐨勭珛鏂瑰拰

    temp : INT;                     // 鐢ㄤ簬瀛樺偍褰撳墠鏁板瓧鐨勪复鏃跺��

    digit : INT;                    // 褰撳墠浣嶆暟瀛�

END_VAR



(*

鐗堟湰璁板綍锛�

鐗堟湰          鏃ユ湡           浣滆��

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

*)



// 鍒濆�嬪寲鏁扮粍

Count := 0;

FOR j := 1 TO 100 BY 1 DO

  ArmstrongArray[j] := 0;

END_FOR



// 涓诲惊鐜�

FOR i := 1 TO n DO

    sum := 0;                      // 閲嶇疆绔嬫柟鍜�

    temp := i;                     // 涓存椂瀛樺偍褰撳墠鏁板瓧



    // 璁＄畻姣忎釜鏁板瓧鐨勭珛鏂瑰拰

    WHILE temp > 0 DO

        digit := temp MOD 10;      // 鑾峰彇褰撳墠鏁板瓧鐨勬渶鍚庝竴浣�

        sum := sum + (digit * digit * digit); // 璁＄畻绔嬫柟鍜�

        temp := temp / 10;         // 鍘绘帀鏈�鍚庝竴浣嶆暟瀛�

    END_WHILE;



    // 鍒ゆ柇鏄�鍚︿负闃垮�嗘柉鐗规湕鏁�

    IF sum = i THEN

        Count := Count + 1;        // 澧炲姞璁℃暟

        ArmstrongArray[Count] := i; // 瀛樺偍闃垮�嗘柉鐗规湕鏁�

    END_IF;

END_FOR;