回 帖 发 新 帖 刷新版面

主题:图形

编程打印以下图形。

                 ******      ******
                  ******    ******
                   ******  ******
                    ************

回复列表 (共1个回复)

沙发

CLS
INPUT N,M
FOR I=1 TO N
PRINT TAB(I);
FOR P=1 TO M:PRINT "*";:NEXT P
PRINT SPC((N-I)*2);
FOR P=1 TO M:PRINT "*";:NEXT P
NEXT I
END

我来回复

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