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.

 结果：