CODESYS 瀹炴垬锛氭煡鎵� 鈥� 瀹岀編鏁� 鈥�

鏃犲績椋炴壃

寮曡█

鍦ㄥ伐涓氳嚜鍔ㄥ寲涓�锛孭LC锛堝彲缂栫▼閫昏緫鎺у埗鍣�锛夐�氳繃浣跨敤缂栫▼璇�瑷�鏉ュ疄鐜板�嶆潅鐨勯�昏緫鎺у埗銆傚叾涓�锛孲T锛堢粨鏋勫寲鏂囨湰锛夎��瑷�鍥犲叾鎺ヨ繎楂樼骇璇�瑷�鐨勮��娉曡�岃��骞挎硾浣跨敤銆傛湰绡囨枃绔犲皢灞曠ず濡備綍浣跨敤 ST 璇�瑷�鍦� CoDeSys 骞冲彴涓婄紪鍐欎竴涓�绋嬪簭锛岃�＄畻骞跺�绘壘缁欏畾鑼冨洿鍐呯殑瀹屾暟銆傞�氳繃瑙ｅ喅涓�涓�缁忓吀鐨勬暟瀛﹂棶棰橈紝甯�鍔╂偍鍦ㄥ疄璺典腑鎻愰珮 ST 璇�瑷�缂栫▼鑳藉姏銆�

1  闂�棰樻弿杩�

瀹屾暟鏄�鎸囪繖鏍蜂竴绉嶆暟锛屽畠绛変簬闄よ嚜韬�澶栨墍鏈夋�ｅ洜瀛愮殑鍜屻�備緥濡傦紝6 鏄�涓�涓�瀹屾暟锛屽洜涓哄叾鍥犲瓙 1銆�2 鍜� 3 鐨勫拰绛変簬 6銆傛湰鏂囩殑鐩�鏍囨槸缂栧啓涓�涓�绋嬪簭锛屾壘鍑虹粰瀹氳寖鍥村唴鐨勬墍鏈夊畬鏁般��

2  绋嬪簭璁捐�℃�濊矾

• 杈撳叆杈撳嚭鍙橀噺锛氬畾涔夎緭鍏ュ彉閲忔寚瀹氳寖鍥达紝杈撳嚭鍙橀噺瀛樺偍瀹屾暟鍙婂叾璁℃暟銆�
• 鍒濆�嬪寲锛氬垵濮嬪寲瀹屾暟璁℃暟鍣ㄥ拰瀛樺偍鏁扮粍銆�
• 涓诲惊鐜�锛氶亶鍘嗚寖鍥村唴鐨勬瘡涓�鏁板瓧锛岃�＄畻鍏跺洜瀛愬拰锛屽垽鏂�鏄�鍚︿负瀹屾暟銆�
• 瀛樺偍缁撴灉锛氬�傛灉鎵惧埌瀹屾暟锛屽瓨鍌ㄥ湪鏁扮粍涓�骞舵洿鏂拌�℃暟鍣ㄣ��
  
  

3  绋嬪簭浠ｇ爜

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

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;

4  浠ｇ爜瑙ｉ噴

杈撳叆杈撳嚭鍙橀噺锛�

• 浣跨敤 VAR_INPUT 澹版槑杈撳叆鍙橀噺 MinValue 鍜� MaxValue銆�
• 浣跨敤 VAR_OUTPUT 澹版槑杈撳嚭鍙橀噺 PerfectCount 鍜� PerfectNumbers銆�
  

鍙橀噺鍒濆�嬪寲锛�

• 鍦ㄤ富绋嬪簭寮�濮嬫椂锛屽皢 PerfectCount 鍒濆�嬪寲涓� 0锛屽苟灏� PerfectNumbers 鏁扮粍鐨勬墍鏈夊厓绱犺�剧疆涓� 0銆�
  

璁＄畻瀹屾暟锛�

• 浣跨敤涓や釜宓屽�楃殑寰�鐜�锛屽�栧眰閬嶅巻褰撳墠鏁板瓧锛屽唴灞傝�＄畻鍥犲瓙鍜岋紝骞舵��鏌ュ畬鏁版潯浠躲��
  

娉ㄦ剰浜嬮」锛�

• 鏁扮粍澶у皬闄愬埗涓� 100锛屽�傞渶瀛樺偍鏇村�氬畬鏁帮紝璇风浉搴旇皟鏁存暟缁勭殑澶у皬銆�
• 杈撳叆鑼冨洿涓婇檺鐨勬暟鎹�绫诲瀷涓� INT锛屾渶澶у�间负锛�32767锛屽�傛灉闇�瑕佹祴璇曟洿澶х殑鏁帮紝闇�瑕佽皟鏁存暟鎹�绫诲瀷銆�
• 纭�淇濊緭鍏ヨ寖鍥撮�傚悎浣犵殑瀹為檯闇�姹傘��
  

5  杩愯�岀粨鏋�

杩愯�岀▼搴忓悗锛孭erfectNumbers 鏁扮粍灏嗗瓨鍌ㄥ湪鎸囧畾鑼冨洿鍐呮壘鍒扮殑鎵�鏈夊畬鏁帮紝鑰� PerfectCount 灏嗚〃绀烘壘鍒扮殑瀹屾暟鏁伴噺銆傚�逛簬 MinValue 涓� 1锛孧axValue 涓� 10000锛岀▼搴忓皢鍙戠幇瀹屾暟涓猴細 6銆�28銆�496銆�8128 銆�

6  寮�婧愮増鏈�璇存槑

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

鎬荤粨

鏈�鏂囧睍绀轰簡濡備綍浣跨敤 CoDeSys 骞冲彴涓婄殑 ST 璇�瑷�缂栧啓涓�涓�绠�鍗曠殑瀹屾暟鏌ユ壘绋嬪簭銆傞�氳繃瀹氫箟杈撳叆杈撳嚭鍙橀噺锛屽垵濮嬪寲绋嬪簭锛屼娇鐢ㄥ惊鐜�鍜屾潯浠跺垽鏂�锛屾垜浠�鑳藉�熸湁鏁堝湴璁＄畻鍑虹粰瀹氳寖鍥村唴鐨勫畬鏁般�傞�氳繃杩欎竴缁冧範锛屾偍涓嶄粎鐔熸倝浜嗗�備綍鍦� CODESYS 涓�浣跨敤 ST 璇�瑷�杩涜�屾潯浠跺垽鏂�鍜屽惊鐜�鎺у埗锛岃繕鍦ㄥ疄璺典腑鎻愬崌浜嗛�昏緫鎬濈淮鍜岄棶棰樿В鍐宠兘鍔涖��