主题:蛇形矩阵问题,代码能再优化吗?
输入 wid
输出 wid * wid 的正方蛇形矩阵
小弟三天才写出的代码(含调试)
高手请指点,能再优化吗?
CLS
INPUT wid
size = wid * wid
FOR Y = 1 To wid
out = size: PRINT out;
IF Y MOD 2 THEN size = size - Y - Y ELSE size = size - 1
FOR X = 1 To wid - 1
IF wid - Y >= X THEN _
IF X MOD 2 XOR Y MOD 2 THEN out = out - (X + X) ELSE out = out - (Y + Y - 1) ELSE _
IF X MOD 2 XOR Y MOD 2 THEN out = out - ((wid - Y) * 2 + 1) ELSE out = out - (wid - X) * 2
PRINT out;
NEXT X
PRINT
NEXT Y
END
输出 wid * wid 的正方蛇形矩阵
小弟三天才写出的代码(含调试)
高手请指点,能再优化吗?
CLS
INPUT wid
size = wid * wid
FOR Y = 1 To wid
out = size: PRINT out;
IF Y MOD 2 THEN size = size - Y - Y ELSE size = size - 1
FOR X = 1 To wid - 1
IF wid - Y >= X THEN _
IF X MOD 2 XOR Y MOD 2 THEN out = out - (X + X) ELSE out = out - (Y + Y - 1) ELSE _
IF X MOD 2 XOR Y MOD 2 THEN out = out - ((wid - Y) * 2 + 1) ELSE out = out - (wid - X) * 2
PRINT out;
NEXT X
NEXT Y
END