CODESYS 瀹炴垬锛氱埍鍥犳柉鍧︾殑鏁板�﹂��: e321144aa5996dd8a2641568488f01ff.png

FUNCTION_BLOCK PM_EinsteinStairs

VAR_INPUT

    n : DINT := 1000; // 鑼冨洿END_VAR

VAR_OUTPUT

    Count : DINT; // 婊¤冻鏉′欢鐨勬暟瀛楁暟閲�

    Results : ARRAY[1..100] OF DINT; // 瀛樺偍婊¤冻鏉′欢鐨勬暟瀛�

END_VAR

VAR

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

END_VAR

(*鐗堟湰璁板綍锛氱増鏈�          鏃ユ湡           浣滆�� V1         2024-5-3       *)



// 鍒濆�嬪寲鏁版嵁

Count := 0;

FOR i:=1 TO 100 DO

  Results := 0;

END_FOR

FOR i := 1 TO n DO 

   IF (i MOD 2 = 1) AND 

       (i MOD 3 = 2) AND 

       (i MOD 5 = 4) AND 

       (i MOD 6 = 5) AND 

       (i MOD 7 = 0) THEN 

       Count := Count + 1;

        Results[Count] := i; 

   END_IF

END_FOR