To display the pattern. G OGR ROGRA PROGRAM (Qbasic Code)

To display the pattern
G
OGR
ROGRA
PROGRAM

  • CLS
    a$ = "PROGRAM"
    a = 4
    b = 1
    t = 40
    FOR i = 1 TO 4
        PRINT TAB(t); MID$(a$, a, b)
        a = a - 1
        b = b + 2
        t = t - 1
    NEXT i
    END

Share :

Twitter
Back To Top

facebook main

counter

Powered by Blogger.