回 帖 发 新 帖 刷新版面

主题:菱形

输出如下的由"*"组成的字符图形。

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

回复列表 (共1个回复)

沙发

CLS
INPUT N
M=N\2+1 
FOR I=1 TO N
PRINT TAB(ABS(M-I)+1);STRING$((N-ABS(M-I))*2)
NEXT I
END

我来回复

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