主题：找位老师帮帮我,谢谢!
sprint
[专家分：0] 发布于 2007-10-03 11:28:00
我是Qb新手请帮我解个题谢谢!!
鸡兔同笼,已知鸡兔总头数H=16,总脚数F=40,求鸡兔各有几只?(QB编程)
解方程ax^2+bx^2+c=0的根,系数abc由键盘输入
谢谢!!
回复列表 （共9个回复）
沙发
Matodied [专家分：7560] 发布于 2007-10-03 20:32:00
(1)
CLS
FOR c = 1 TO 15 '很显然，这16只不可能全是一种动物，所以0和16就省了
s = 40 - c * 2
IF c + s / 4 = 40 THEN PRINT "c=";c , "h=";s / 4:END
NEXT c
END
输出结果：
c= 12 h= 4
(2)
（很抱歉，我们小学没学过这种方程，不能帮你了）
板凳
sprint [专家分：0] 发布于 2007-10-06 10:20:00
谢谢!!
3 楼
秋~~风 [专家分：20] 发布于 2007-10-06 21:49:00
二楼的程序有问题吧!
CLS
FOR c = 1 TO 15 '很显然，这16只不可能全是一种动物，所以0和16就省了
s = 40 - c * 2
IF c + s / 4 = 40 THEN PRINT "c=";c , "h=";s / 4:END
NEXT c
END
输出结果：
c= 12 h= 4
c+s/4=40 是不对的!应该等于16 你那个程序是没有结果的!但却给出了正确结果! 可能是你抄的时候抄错了!
还有 IF 语句最后的 END 应该不要! 因为这种题可能不只有一组解!
4 楼
Matodied [专家分：7560] 发布于 2007-10-07 21:34:00
谢谢3楼提醒！
不过3楼也想太多了，这道题明明只有一个解！
5 楼
QB小猪 [专家分：1200] 发布于 2007-10-08 10:22:00
cls
for t=1 to 15:j=16-t
tf=t*4:jf=j*2
if tf+jf=40 then ?"兔:";t,"鸡:";j
next t
end
6 楼
okokok [专家分：10] 发布于 2007-10-13 09:58:00
怎样进入QBSIC
7 楼
okokok [专家分：10] 发布于 2007-10-13 10:10:00
[quote](1)
CLS
FOR c = 1 TO 15 '很显然，这16只不可能全是一种动物，所以0和16就省了
s = 40 - c * 2
IF c + s / 4 = 40 THEN PRINT "c=";c , "h=";s / 4:END
NEXT c
END
输出结果：
c= 12 h= 4
(2)
（很抱歉，我们小学没学过这种方程，不能帮你了）[/quote]
8 楼
sprint [专家分：0] 发布于 2007-10-20 10:05:00
谢谢各位的帮忙,我以知道答案,谢谢!!!!
9 楼
lu1012 [专家分：20] 发布于 2007-12-03 18:44:00
CLS
FOR c = 1 TO 15
s = 40 - c * 2
IF c + s / 4 = 40 THEN PRINT "c=";c , "h=";s / 4:END
NEXT c
END
我来回复
您所在位置：