回 帖 发 新 帖 刷新版面

主题:[原创]灯的开关问题

10个灯泡排成一一排,开始时处于奇数位置的灯是亮的。现在进行如下操作:
所有电灯按钮按动一次;1-7号电灯按钮按动一次;
        1-6号电灯按钮按动一次;1-5号电灯按钮按动一次;
        1-4号电灯按钮按动一次;1-3号电灯按钮按动一次;
        1-2号电灯按钮按动一次;1号电灯按钮按动一次;
最后问:哪几只电灯是亮的?

回复列表 (共2个回复)

沙发

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

板凳

简单 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

我来回复

您尚未登录,请登录后再回复。点此登录或注册