主题：题
爱丽斯LING
[专家分：560] 发布于 2007-08-14 10:28:00
甲、乙、丙、丁四人共有糖若干块，甲先拿出一些糖分给另外三人，使他们三人的糖数加倍；乙拿出一些糖分给另外三人，也使他们三人的糖数加倍；丙、丁也照此办理，此时甲、乙、丙、丁四人各有16块，编程求出四个人开始各有糖多少块。
回复列表 （共3个回复）
沙发
我的电脑 [专家分：990] 发布于 2007-08-14 10:30:00
CLS
a = 16: b = a: c = a: d = a
a = a / 2: b = b / 2: c = c / 2: d = d + a + b + c
a = a / 2: b = b / 2: d = d / 2: c = c + a + b + d
a = a / 2: c = c / 2: d = d / 2: b = b + a + c + d
b = b / 2: c = c / 2: d = d / 2: a = a + b + c + d
PRINT "A="; a, "B="; b, "C="; c, "D="; d
END
板凳
我的电脑 [专家分：990] 发布于 2007-08-14 10:36:00
CLS
DIM a(4)
FOR i = 1 TO 4: a(i) = 16: NEXT i
FOR i = 4 TO 1 STEP -1
t = 0
FOR j = 1 TO 4
IF i <> j THEN a(j) = a(j) / 2: t = t + a(j)
NEXT j
a(i) = a(i) + t
NEXT i
FOR i = 1 TO 4: PRINT a(i), : NEXT i
END
3 楼
小精灵1号 [专家分：1040] 发布于 2007-08-14 10:39:00
CLS
DIM a(4)
FOR i = 1 TO 4: a(i) = 16: NEXT i
FOR i = 4 TO 1 STEP -1
t = 0
FOR j = 1 TO 4
IF i <> j THEN a(j) = a(j) / 2: t = t + a(j)
NEXT j
a(i) = a(i) + t
NEXT i
FOR i = 1 TO 4: PRINT a(i), : NEXT i
END
我来回复
您所在位置：