2018.08.20 百雞百元問題

" 雞有 100 只  花了100元
" 小雞 1 元 3 只
" 公雞 3 元 1 只
                                                            " 母雞 5 元 1只
DATA:money TYPE p.
DATA:BEGIN OF gt_sturt OCCURS 0,
     chick TYPE i,"小雞
     hen TYPE i,"母雞
     cock TYPE i,"公雞
     END OF gt_sturt.
"由於100元 100只 因此 平均每隻雞 1元 因此 能夠獲得  （5*x+3*y+1/3*z) / (x+y+z) = 1
" =>  12x + 6y - 2z = 0 => 6X + 3Y = Z

gt_sturt-hen =  - 1.
gt_sturt-cock =  - 1.
gt_sturt-chick = - 1.

WHILE 5 * gt_sturt-hen < 100.
  gt_sturt-hen = gt_sturt-hen + 1.
  WHILE 5 * gt_sturt-hen + 3 * gt_sturt-cock < 100.
    gt_sturt-cock = gt_sturt-cock + 1.
    money = 7 * gt_sturt-hen + 4 * gt_sturt-cock.
    CHECK money EQ 100.
    gt_sturt-chick = 6 * gt_sturt-hen + 3 * gt_sturt-cock.   "Z / 3 = 2 * X + Y
    APPEND gt_sturt.
    WRITE:/ '母雞有：',gt_sturt-hen,'只','公雞有：',gt_sturt-cock,'只','小雞有：',gt_sturt-chick,'只'.
    CLEAR money.
  ENDWHILE.
  CLEAR gt_sturt-cock.
ENDWHILE.

 結果：