ling.bas

来自「一个basic语言的解释器」· BAS 代码 · 共 29 行

REM Graph test

DIM i AS INTEGER
DIM j AS INTEGER
DIM n AS INTEGER

PRINT "Enter n:";
INPUT n

FOR i = 1 TO n
    FOR j = 1 TO n - i + 1
        PRINT " ";
    NEXT j
    FOR j = 1 TO 2 * i - 1
        PRINT "*";
    NEXT j
    PRINT
NEXT i
FOR i = n - 1 TO 1 STEP - 1
    FOR j = 1 TO n - i + 1
        PRINT " ";
    NEXT j
    FOR j = 1 TO 2 * i - 1
        PRINT "*";
    NEXT j
    PRINT
NEXT i
END