640?wx_fmt=png&from=appmsg.jpg

FUNCTION_BLOCK WG_MarxMathematicsQuestion

VAR_INPUT

END_VAR

VAR_OUTPUT

    results : ARRAY[1..100, 1..3] OF INT; // 瀛樺偍缁撴灉

END_VAR

VAR

    totalPeople : INT := 30;     // 鎬讳汉鏁�

    totalCost : INT := 50;       // 鎬昏垂鐢�

    menCost : INT := 3;          // 姣忎釜鐢蜂汉鐨勮垂鐢ㄤ负3

    womenCost : INT := 2;        // 姣忎釜濂充汉鐨勮垂鐢ㄤ负2

    childrenCost : INT := 1;     // 姣忎釜灏忓�╃殑璐圭敤涓�1

    menCount : INT;              // 褰撳墠鐢蜂汉鐨勬暟閲�

    womenCount : INT;            // 褰撳墠濂充汉鐨勬暟閲�

    childrenCount : INT;         // 褰撳墠灏忓�╃殑鏁伴噺

    foundCount : INT := 0;       // 璁板綍鎵惧埌鐨勮В鐨勬暟閲忥紝鍒濆�嬩负0

    i : INT;                     // 寰�鐜�鍙橀噺锛岀敤浜庨亶鍘嗙粨鏋�

    j : INT;                     // 鍒濆�嬪寲寰�鐜�鍙橀噺

    k : INT;                     // 鍒濆�嬪寲寰�鐜�鍙橀噺

END_VAR



(*

鐗堟湰璁板綍锛�

鐗堟湰          鏃ユ湡             浣滆��

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

*)



// 鍒濆�嬪寲缁撴灉鏁扮粍

FOR k := 1 TO 100 DO

    FOR j := 1 TO 3 DO

        results[k, j] := 0;

    END_FOR;

END_FOR;



// 閲嶇疆鎵惧埌鐨勮В鐨勮�℃暟

foundCount := 0;



// 閬嶅巻鎵�鏈夊彲鑳界殑鐢蜂汉鍜屽コ浜虹殑鏁伴噺

FOR menCount := 0 TO totalPeople DO

    FOR womenCount := 0 TO totalPeople - menCount DO

        // 璁＄畻灏忓�╃殑鏁伴噺锛屽墿浣欑殑浜烘暟涓哄皬瀛�

        childrenCount := totalPeople - menCount - womenCount; 

        

        // 妫�鏌ヨ垂鐢ㄦ槸鍚﹀尮閰�

        IF (menCount * menCost + womenCount * womenCost + childrenCount * childrenCost = totalCost) THEN

            // 璁板綍褰撳墠瑙�

            foundCount := foundCount + 1; // 澧炲姞鎵惧埌鐨勮В鐨勮�℃暟

            results[foundCount, 1] := menCount;      // 璁板綍鐢蜂汉鐨勬暟閲�

            results[foundCount, 2] := womenCount;    // 璁板綍濂充汉鐨勬暟閲�

            results[foundCount, 3] := childrenCount;  // 璁板綍灏忓�╃殑鏁伴噺

        END_IF;

    END_FOR;

END_FOR;