CODESYS 瀹炴垬锛氬疄鐜拌嚜瀹堟暟鏌ユ壘

FUNCTION_BLOCK WG_SelfPowerNumbers
VAR_INPUT
    N : DINT := 100000;          // 瀹氫箟鑼冨洿
END_VAR_INPUT

VAR_OUTPUT
    NumberArray : ARRAY[1..100] OF DINT; // 鐢ㄤ簬瀛樺偍鑷�瀹堟暟鐨勬暟缁�
END_VAR_OUTPUT

VAR
    i : DINT;                  // 寰�鐜�鍙橀噺
    Count : DINT := 0;        // 鑷�瀹堟暟璁℃暟鍣�
    Square : DINT;            // 瀛樺偍骞虫柟缁撴灉
    Temp : STRING;            // 涓存椂瀛楃�︿覆鍙橀噺锛岀敤浜庢瘮杈�
END_VAR

(*
鐗堟湰璁板綍锛�
鐗堟湰          鏃ユ湡             浣滆��
 V1         2024-10-27       宸ユ帶鑰佺帇
*)

// 鍒濆�嬪寲
FOR i := 1 TO 100 BY 1 DO
    NumberArray[i] := 0;
END_FOR

// 鏌ユ壘鑷�瀹堟暟
FOR i := 0 TO N DO
    // 璁＄畻骞虫柟
    Square := i * i;
    
    // 灏嗘暟鍜屽钩鏂硅浆鎹�涓哄瓧绗︿覆
    Temp := DINT_TO_STRING(i);
    
    // 妫�鏌ヨ嚜瀹堟暟鐨勬潯浠�
    IF LEN(Temp) <= LEN(DINT_TO_STRING(Square)) THEN
        // 妫�鏌ュ钩鏂圭殑灏炬暟鏄�鍚︾瓑浜庡師鏁�
        IF RIGHT(DINT_TO_STRING(Square), LEN(Temp)) = Temp THEN
            Count := Count + 1; // 璁℃暟鑷�瀹堟暟
            NumberArray[Count] := i; // 瀛樺偍鑷�瀹堟暟
        END_IF
    END_IF
END_FOR

END_FUNCTION_BLOCK