输出图形_字母三角形_1

默认分类 | 2021-04-07 22:56:13 | 阅读 73 次 | 评论(0)
*     A
*    BCD
*   EFGHI
*  JKLMNOP
* QRSTUVWXY

CLEAR 
ln = 0
FOR ln1 = 1 TO 5
    ? SPACE(5 - ln1)
    FOR ln2 = 1 TO 2 * ln1 - 1
        ln = ln + 1
        ?? CHR(ln + 64)
    ENDFOR
ENDFOR
文章评论,共0条
游客请输入验证码
文章分类
文章归档
最新评论