CODESYS 瀹炴垬锛氭煡鎵捐嚜鎭嬫暟

鏃犲績椋炴壃

寮曡█

缁撴瀯鍖栨枃鏈�锛圫T锛夎��瑷�鍥犲叾绫讳技楂樼骇缂栫▼璇�瑷�鐨勮��娉曪紝鍦ㄥ伐涓氳嚜鍔ㄥ寲涓�琚�骞挎硾浣跨敤銆傛湰鏂囬�氳繃涓�涓�鏌ユ壘闃垮�嗘柉鐗规湕鏁帮紙涔熺О涓鸿嚜鎭嬫暟锛夌殑妗堜緥锛屽府鍔╄�昏�呭�︿範鍜岀悊瑙� ST 璇�瑷�鐨勫熀鏈�缁撴瀯鍜岀紪绋嬫妧宸с��

1  闂�棰樻弿杩�

濡傛灉涓�涓�鏁存暟绛変簬鍏跺悇涓�鏁板瓧鐨勭珛鏂瑰拰锛屽垯璇ユ暟绉颁负鈥滈樋濮嗘柉鐗规湕鏁扳�濓紙涔熺О涓鸿嚜鎭嬫暟锛夈�傚�� 153=1鲁+5鲁+3鲁 灏辨槸涓�涓�鈥滈樋濮嗘柉鐗规湕鏁扳�濄�傜紪绋嬫眰 n 浠ュ唴鐨勬墍鏈夆�滈樋濮嗘柉鐗规湕鏁扳�濓紝骞跺偍瀛樸��

2  绋嬪簭璁捐�℃�濊矾

• 杈撳叆杈撳嚭鍙橀噺锛氬畾涔夎緭鍏ュ彉閲� n锛岃緭鍑哄彉閲� Count 鍜� ArmstrongArray銆�
• 鍒濆�嬪寲锛氬垵濮嬪寲璁℃暟鍣ㄥ拰瀛樺偍鏁扮粍銆�
• 涓诲惊鐜�锛氶亶鍘嗚寖鍥村唴鐨勬瘡涓�鏁板瓧锛岃�＄畻鍏舵暟瀛楃珛鏂瑰拰锛屽垽鏂�鏄�鍚︿负闃垮�嗘柉鐗规湕鏁般��
• 瀛樺偍缁撴灉锛氬�傛灉鎵惧埌闃垮�嗘柉鐗规湕鏁帮紝瀛樺偍鍦ㄦ暟缁勪腑骞舵洿鏂拌�℃暟鍣ㄣ��
  

3  绋嬪簭浠ｇ爜

[AppleScript] 绾�鏂囨湰鏌ョ湅 澶嶅埗浠ｇ爜

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;

4  浠ｇ爜瑙ｉ噴

鍙橀噺瀹氫箟涓庡垵濮嬪寲锛�

• n锛氬畾涔夋渶澶у�笺��
• Count锛氱敤浜庤�℃暟鎵惧埌鐨勯樋濮嗘柉鐗规湕鏁般��
• ArmstrongArray锛氬瓨鍌ㄦ壘鍒扮殑闃垮�嗘柉鐗规湕鏁般��
• 寰�鐜�鍙橀噺 i 鍜� j锛屼复鏃跺彉閲� temp 鍜� digit銆�
  

涓诲惊鐜�閫昏緫锛�

• 閬嶅巻浠� 1 鍒� n 鐨勬墍鏈夋暟瀛椼��
• 浣跨敤 WHILE 寰�鐜�璁＄畻姣忎釜鏁板瓧鐨勫悇浣嶇珛鏂瑰拰銆�
• 妫�鏌ョ珛鏂瑰拰鏄�鍚︾瓑浜庡師鏁板瓧锛屾槸鍒欏瓨鍌ㄨ�ユ暟瀛椼��
  

娉ㄦ剰浜嬮」锛�

• 鏁扮粍 ArmstrongArray 鐨勫ぇ灏忛檺鍒朵负 100锛屽�傞渶瀛樺偍鏇村�氶樋濮嗘柉鐗规湕鏁帮紝璇风浉搴旇皟鏁淬��
• 杈撳叆鍙橀噺 n 鐨勮寖鍥村簲鏍规嵁闇�姹傚悎鐞嗚�剧疆锛屼互闃叉�㈣�＄畻杩囧�氬�艰嚧鎬ц兘闂�棰樸��
  

5  杩愯�岀粨鏋�

绋嬪簭杩愯�屽悗锛孉rmstrongArray 灏嗗寘鍚�鎵�鏈夊湪 1 鍒� n 鑼冨洿鍐呯殑闃垮�嗘柉鐗规湕鏁帮紝鑰� Count 灏嗚〃绀烘壘鍒扮殑鏁伴噺銆�

6  寮�婧愮増鏈�璇存槑

璇ョ▼搴忛伒寰�寮�婧愬師鍒欙紝浠讳綍浜洪兘鍙�浠ヤ娇鐢ㄣ�佷慨鏀瑰拰鍒嗗彂姝や唬鐮併�傚湪浣跨敤鍓嶅簲杩涜�屽厖鍒嗙殑娴嬭瘯锛屼慨鏀逛唬鐮佹椂锛岃�风�夋寔鍒嗕韩绮剧�烇紝灏嗘偍鐨勬敼杩涘拰鎴愭灉杩涜�屽垎浜�锛屼互渚挎洿澶氫汉鍙楃泭銆�

鎬荤粨

閫氳繃杩欎釜妗堜緥锛岃�昏�呭彲浠ュ�︿範濡備綍浣跨敤 ST 璇�瑷�缂栧啓寰�鐜�銆佹潯浠跺垽鏂�浠ュ強鏁扮粍鎿嶄綔绛夊熀鏈�缂栫▼鎶�宸с�傝�ユ妧鏈�涓嶄粎閫傜敤浜庨樋濮嗘柉鐗规湕鏁扮殑鏌ユ壘锛岃繕鍙�浠ユ墿灞曞埌鍏朵粬绫讳技鐨勬暟鍊艰�＄畻鍦烘櫙锛屼负宸ヤ笟鑷�鍔ㄥ寲缂栫▼鎻愪緵浜嗘湁鍔涙敮鎸併��