主题：我是QB新手，有个问题，请大家帮个忙~
chentuo321
[专家分：0] 发布于 2005-12-19 19:22:00
用QB编写下题程序
题目：用100元钱买100只鸡,公鸡每只5元,母鸡每只3元,小鸡3只1元,问能买公鸡、母鸡和小鸡分别多少只？
谁能告诉我啊？谢谢啦~
回复列表 （共7个回复）
沙发
moz [专家分：37620] 发布于 2005-12-19 20:24:00
for x=0 to 100
for y=0 to 100
if x*5+y*3+(100-x-y)/3=100 then print x,y,100-x-y
next y,x
板凳
superlcr [专家分：2300] 发布于 2005-12-19 21:05:00
REM 百元买百鸡
DEFINT A-C
CLS
PRINT "公鸡", "母鸡", "小鸡"
FOR a = 0 TO 20
FOR b = 0 TO 33
c = 100 - a - b
IF 5 * a + 3 * b + c \ 3 = 100 AND c MOD 3 = 0 THEN
PRINT a, b, c
END IF
NEXT
NEXT
'=====================================
' 运行结果
'=====================================
'公鸡 母鸡 小鸡
' 0 25 75
' 4 18 78
' 8 11 81
' 12 4 84
3 楼
黑白猪-- [专家分：420] 发布于 2007-04-01 16:31:00
for x=0 to 100
for y=0 to 100
if x*5+y*3+(100-x-y)/3=100 then print x,y,100-x-y
next y,x
4 楼
爱丽斯LING [专家分：560] 发布于 2007-04-01 16:39:00
for x=0 to 100
for y=0 to 100
if x*5+y*3+(100-x-y)/3=100 then print x,y,100-x-y
next y,x
5 楼
蓝莎菲莹 [专家分：370] 发布于 2007-04-01 16:45:00
CLS
FOR I=1 TO 20
FOR J=1 TO 35
K=100-20-35
IF I*5+J*3+K/3=100 THEN PRINT I;J;K:END
NEXT J,I
END
6 楼
Matodied [专家分：7560] 发布于 2007-04-21 14:32:00
superlcr的程序很好，根本不需要循环100次。公鸡每只5元，最多可以买20只，母鸡每只3元，最多买33只，要么，就超过100元了！
我有更好的方法：
设公鸡买r只，母鸡买h只，小鸡买3c只，符合下面条件：
1、r+h+3c=100
2、5r+3h+c=100
用1式乘5再减去2式，得2h+14c=400,则h+7c=200
这样只要用一个循环就可以了，程序：
FOR h=1 TO 33
c=(200-h)/7
r=100-h-c
IF c=INT(c) AND r>=0 THEN PRINT r,h,c
NEXT h
END
7 楼
傲视人间 [专家分：60] 发布于 2007-11-01 21:47:00
CLS
PRINT "公鸡", "母鸡", "小鸡"
FOR I = 1 TO 20
FOR J = 1 TO 100
FOR L = 1 TO 100
IF I + J + L = 100 AND I * 5 + J * 3 + L / 3 = 100 THEN PRINT I, J, L: K = K + 1
NEXT L, J, I
PRINT "K="; K
END
加分哦！
我来回复
您所在位置：