回 帖 发 新 帖 刷新版面

主题:[讨论]go!

输出:
0  0  0  0  1
0  0  0  1 -1
0  0  1 -1 -1
0  1 -1 -1 -1

回复列表 (共9个回复)

沙发

CLS
PRINT "00001"
PRINT "0001-1"
PRINT "001-1-1"
PRINT "01-1-1-1"
END

板凳

用dim

3 楼

CLS
INPUT N:M=N\2+1
FOR I=1 TO N
FOR J=1 TO N
IF J=M-ABS(M-I) THEN
FOR K=1 TO ABS(M-I)*2+1:PRINT USING "##";1;:J=J+1:NEXT K:J=J-1
ELSE
PRINT USING "##";0;
END IF
NEXT J:PRINT
NEXT I
END

4 楼

啊...我好像写错了

5 楼

的确写错了!

6 楼

而且错光了!

7 楼

3楼的运行结果是:
1 1 1 1 1
0 1 1 1 0
0 0 1 0 0
0 1 1 1 0
1 1 1 1 1






8 楼


[em20][em20][em20][em20][em20][em20][em20][em20][em20][em20][em20][em54][em54][em54][em54][em54][em54][em54][em54][em53][em53][em53][em53][em53][em53][em53][em53][em54][em54][em54][em54][em54][em54][em54][em61][em61][em61][em61][em61][em61][em61][em61][em23][em23][em23][em23][em23][em23][em23][em23][em23][em24][em24][em24][em24][em24][em24][em24][em24][em24]

9 楼

to!

我来回复

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