您所在位置：主题：不太明白,望指点(菜鸟级的问题)
lqyyfz
[专家分：0] 发布于 2006-05-09 11:43:00
一个炊事员上街采购,用500元钱买了90只鸡, 其中母鸡一只15元,公鸡一只10元,小鸡一只5元,正好把钱买完。问母鸡、公鸡、小鸡各买多少只？
分析：设母鸡I只,公鸡J只,则小鸡为90-I-J只,则15*I+ 10* J+(90-I-J)*5=500,显然一个方程求两个未知数是不能直接求解。必须组合出所有可能的i,j值，看是否满足条件。这里I的值可以是0到33，J的值可以0到50。
源程序如下：
programr ex4_6;
var i,j,k:integer;
begin
for i:=1 to 5 do
for j:=1 to 8 do
begin
k:=90-i-j;
if 15*i+10*j+5*k=500 then writeln(i:5,j:5,k:5);
end;
end.
分析中I的值可以是0到33，J的值可以0到50,可程序中为何只到5和8.我将程序修改后调试了一下(即将5换成了33,8换成了50)结果没变,望大侠指点一二
分析：设母鸡I只,公鸡J只,则小鸡为90-I-J只,则15*I+ 10* J+(90-I-J)*5=500,显然一个方程求两个未知数是不能直接求解。必须组合出所有可能的i,j值，看是否满足条件。这里I的值可以是0到33，J的值可以0到50。
源程序如下：
programr ex4_6;
var i,j,k:integer;
begin
for i:=1 to 5 do
for j:=1 to 8 do
begin
k:=90-i-j;
if 15*i+10*j+5*k=500 then writeln(i:5,j:5,k:5);
end;
end.
分析中I的值可以是0到33，J的值可以0到50,可程序中为何只到5和8.我将程序修改后调试了一下(即将5换成了33,8换成了50)结果没变,望大侠指点一二
