" 鸡有 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.
结果：
