ling.bas

Cool语言编译器

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