主题:[原创]灯的开关问题
zhangyurui2000427
[专家分:80] 发布于 2009-10-23 19:56:00
10个灯泡排成一一排,开始时处于奇数位置的灯是亮的。现在进行如下操作:
所有电灯按钮按动一次;1-7号电灯按钮按动一次;
1-6号电灯按钮按动一次;1-5号电灯按钮按动一次;
1-4号电灯按钮按动一次;1-3号电灯按钮按动一次;
1-2号电灯按钮按动一次;1号电灯按钮按动一次;
最后问:哪几只电灯是亮的?
回复列表 (共2个回复)
沙发
1054122 [专家分:750] 发布于 2009-10-23 20:40:00
CLS
DIM a(10)
FOR i = 1 TO 10
IF i MOD 2 = 0 THEN a(i) = 1
NEXT i
FOR i = 7 TO 1 STEP -1
FOR j = 1 TO i
a(j) = 1 - a(j)
NEXT j
NEXT i
FOR i = 1 TO 10
IF a(i) = 1 THEN PRINT i;
NEXT i
END
板凳
593170024 [专家分:500] 发布于 2009-10-27 22:26:00
简单 2 ,4 6, 8, 10 开着
CLS
DIM a(10)
FOR i = 1 TO 10
IF i MOD 2 = 0 THEN a(i) = 1
NEXT i
FOR i = 7 TO 1 STEP -1
FOR j = 1 TO i
a(j) = a(j) * -1
NEXT j
NEXT i
FOR i = 1 TO 10
IF a(i) = 1 THEN PRINT i;
NEXT i
END
我来回复