主题：加分喽!!
随便你好
[专家分：530] 发布于 2007-08-14 09:40:00
有30个男人女人和小孩同在一家饭馆进餐,共花了五十先令,其中男宾3先令,女宾2先令,小孩1先令.试编程求出男人女人小孩各多少人?
回复列表 （共15个回复）
沙发
网虫一号 [专家分：1230] 发布于 2007-08-14 09:42:00
CLS
FOR a = 1 TO 50 \ 3
FOR b = 1 TO 50 \ 2
FOR c = 1 TO 28
IF a + b + c = 30 AND 3 * a + 2 * b + c = 50 THEN PRINT a; b; c: s = s + 1
NEXT c, b, a
PRINT "S="; s
END
板凳
小精灵1号 [专家分：1040] 发布于 2007-08-14 09:43:00
CLS
FOR a = 1 TO 50 \ 3
FOR b = 1 TO 50 \ 2
FOR c = 1 TO 28
IF a + b + c = 30 AND 3 * a + 2 * b + c = 50 THEN PRINT a; b; c: s = s + 1
NEXT c, b, a
PRINT "S="; s
END
3 楼
我的电脑 [专家分：990] 发布于 2007-08-14 09:43:00
CLS
FOR a = 1 TO 50 \ 3
FOR b = 1 TO 50 \ 2
FOR c = 1 TO 28
IF a + b + c = 30 AND 3 * a + 2 * b + c = 50 THEN PRINT a; b; c: s = s + 1
NEXT c, b, a
PRINT "S="; s
END
4 楼
QB小猪 [专家分：1200] 发布于 2007-08-14 09:43:00
CLS
FOR i = 1 TO 50 \ 3
FOR j = 1 TO 50 \ 2
FOR k = 1 TO 28
IF i+j+k = 30 AND 3 * i + 2 * j + k = 50 THEN PRINT a; b; c: s = s + 1
NEXT k,j,i
PRINT "S="; s
END
5 楼
天尝地酒 [专家分：870] 发布于 2007-08-14 10:16:00
cls
for i=1 to 50\3
for j=1 to 50\2
k=50-i-j
if i+j+k=i*3+j*2+k then print i;j;k,
next j
next i
end
6 楼
wzc1996 [专家分：1680] 发布于 2007-08-14 12:27:00
CLS
PRINT "MAN", "WOMAN", " CHILDREN"
FOR m = 1 TO INT(50 / 3)
FOR w = 1 TO INT(50 / 2)
c = 30 - m - w
IF m + w + c = 30 AND m * 3 + w * 2 + c = 50 THEN PRINT m, w, c: s = s + 1
NEXT
NEXT
PRINT "zongji:"; s
7 楼
小小傻瓜 [专家分：150] 发布于 2007-08-14 15:03:00
CLS
FOR a = 1 TO 50 \ 3
FOR b = 1 TO 50 \ 2
FOR c = 1 TO 28
IF a + b + c = 30 AND 3 * a + 2 * b + c = 50 THEN PRINT a; b; c: s = s + 1
NEXT c, b, a
PRINT "S="; s
END
8 楼
QB爱好者 [专家分：370] 发布于 2007-08-28 11:39:00
cls
for i=1 to 16
for j=1 to 25
k=30-i-j
if i*3+j*2+k=50 and k>0 then ? i,j,k
next j,i
end
9 楼
QB爱好者 [专家分：370] 发布于 2007-08-28 14:49:00
加分！！
10 楼
QB爱好者 [专家分：370] 发布于 2007-09-01 17:52:00
你到底加不加分啊！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
我来回复
您所在位置：