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

To display the pattern.
PROGRAM
ROGRA
OGR

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

Share :

Facebook Twitter Google+
Back To Top

facebook main

counter

Powered by Blogger.