神马作文网pascal语言编程题
来源：学生作业帮 编辑：神马作文网作业帮 分类：综合作业 时间：2024/09/21 08:51:23
pascal语言编程题
编程：炊事员采购用500元买90只鸡,母鸡一只15元,公鸡10元,小鸡5元,正好钱用完.母鸡、公鸡、小鸡各买几只?（我要程序!）急!
编程：炊事员采购用500元买90只鸡,母鸡一只15元,公鸡10元,小鸡5元,正好钱用完.母鸡、公鸡、小鸡各买几只?（我要程序!）急!
VAR
i,j,k:integer;
BEGIN
FOR i:=0 TO 33 DO
FOR j:=0 TO 50 DO
BEGIN
k:=90-i-j;
IF 15*i+10*j+5*k=500
THEN writeln(i:5,j:5,k:5)
END
END.
再问： 有那2个for循环的计算方法吗？
再答： 参考说明 http://wenku.baidu.com/view/46000862ddccda38376baf20.html
再问： 有点不明白。您能详细说说吗？
再答： i，j，k分别表示母鸡、公鸡、小鸡的个数， 33是根据500/15得到的，即最多可以买33只母鸡 50是根据500/10得到的，即最多可以买50只公鸡 FOR i:=0 TO 33 DO表示母鸡数量从0~33 FOR j:=0 TO 50 DO表示公鸡数量从0~50 k:=90-i-j;表示小鸡数量 例如，当i=1，j=10时，表示1只母鸡，10只公鸡，小鸡数量为79（90-1-10）
再问： 我的题目还有一个条件，就是：每种鸡至少买一只。加Q聊！
再答： FOR i:=1 TO 33 DO FOR j:=1 TO 50 DO BEGIN k:=90-i-j; IF (K>0) and (15*i+10*j+5*k=500) THEN writeln(i:5,j:5,k:5) END
i,j,k:integer;
BEGIN
FOR i:=0 TO 33 DO
FOR j:=0 TO 50 DO
BEGIN
k:=90-i-j;
IF 15*i+10*j+5*k=500
THEN writeln(i:5,j:5,k:5)
END
END.
再问： 有那2个for循环的计算方法吗？
再答： 参考说明 http://wenku.baidu.com/view/46000862ddccda38376baf20.html
再问： 有点不明白。您能详细说说吗？
再答： i，j，k分别表示母鸡、公鸡、小鸡的个数， 33是根据500/15得到的，即最多可以买33只母鸡 50是根据500/10得到的，即最多可以买50只公鸡 FOR i:=0 TO 33 DO表示母鸡数量从0~33 FOR j:=0 TO 50 DO表示公鸡数量从0~50 k:=90-i-j;表示小鸡数量 例如，当i=1，j=10时，表示1只母鸡，10只公鸡，小鸡数量为79（90-1-10）
再问： 我的题目还有一个条件，就是：每种鸡至少买一只。加Q聊！
再答： FOR i:=1 TO 33 DO FOR j:=1 TO 50 DO BEGIN k:=90-i-j; IF (K>0) and (15*i+10*j+5*k=500) THEN writeln(i:5,j:5,k:5) END