640?wx_fmt=jpeg&from=appmsg.jpg

FUNCTION_BLOCK WG_FindPythagoreanTriples

VAR_INPUT

    // 姝ゅ潡鏃犺緭鍏ュ彉閲�

END_VAR



VAR_OUTPUT

    PythagoreanTriples : ARRAY[1..100] OF STRING; // 鐢ㄤ簬瀛樺偍鍕捐偂鏁扮殑瀛楃�︿覆琛ㄧず

END_VAR



VAR

    a : INT; // 绗�涓�涓�鏁存暟

    b : INT; // 绗�浜屼釜鏁存暟

    c : INT; // 绗�涓変釜鏁存暟

    Index : INT := 0; // 鐢ㄤ簬璺熻釜鎵惧埌鐨勫嬀鑲℃暟鐨勬暟閲�

    j : INT; // 寰�鐜�鍙橀噺

END_VAR



(*

鐗堟湰璁板綍锛�

鐗堟湰          鏃ユ湡             浣滆��

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

*)



// 鍒濆�嬪寲杈撳嚭鏁扮粍锛屽皢鎵�鏈夊厓绱犺�句负绌哄瓧绗︿覆

FOR j := 1 TO 100 DO

    PythagoreanTriples[j] := ''; // 灏嗘暟缁勫厓绱犲垵濮嬪寲涓� ''

END_FOR



Index := 0; // 閲嶇疆绱㈠紩璁℃暟鍣�



// 浣跨敤涓夐噸寰�鐜�鏌ユ壘鍕捐偂鏁�

FOR a := 1 TO 100 DO // 閬嶅巻绗�涓�涓�鏁� a

    FOR b := a + 1 TO 100 DO // 閬嶅巻绗�浜屼釜鏁� b锛宐 浠� a + 1 寮�濮嬶紝閬垮厤閲嶅�嶇粍鍚�

        FOR c := b + 1 TO 100 DO // 閬嶅巻绗�涓変釜鏁� c锛宑 浠� b + 1 寮�濮嬶紝閬垮厤閲嶅�嶇粍鍚�

            // 妫�鏌� c 鏄�鍚﹀湪鑼冨洿鍐咃紝骞朵笖鏄�鍚︽弧瓒冲嬀鑲″畾鐞�

            IF (c <= 100) AND (c * c = a * a + b * b) THEN

                // 鎵惧埌涓�缁勫嬀鑲℃暟锛屽�炲姞璁℃暟骞跺瓨鍌ㄧ粨鏋�

                Index := Index + 1; // 澧炲姞鎵惧埌鐨勫嬀鑲℃暟璁℃暟

                PythagoreanTriples[Index] := CONCAT(CONCAT(CONCAT(INT_TO_STRING(a), ', '), CONCAT(INT_TO_STRING(b), ', ')), INT_TO_STRING(c)); // 璁板綍鍕捐偂鏁�

            END_IF

        END_FOR

    END_FOR

END_FOR