回 帖 发 新 帖 刷新版面

主题:练练3

编程打印下面的组合图形。
                     
                      $
                    * $ *
                  * * $ * *
                $ $ $ $ $ $ $
                  * * $ * *
                    * $ *
                      $

回复列表 (共1个回复)

沙发

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

我来回复

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