Info-Grade: QBASIC Pattern printing

QBASIC Pattern Printing Program (NEPAL, PAL, L)

Simple Program

CLS
s$ = "NEPAL"
r = 1
t = 10
FOR i = 5 TO 1 STEP -2
    PRINT TAB(t); MID$(s$, r, i)
    r = r + 2
    t = t + 2
NEXT i
END

by using SUB END SUB

DECLARE SUB pat(a$)
CLS
a$ = "NEPAL"
CALL pat(a$)
END

SUB pat (s$)
    r = 1
    t = 10
    FOR i = 5 TO 1 STEP -2
        PRINT TAB(t); MID$(s$, r, i)
        r = r + 2
        t = t + 2
    NEXT i
END SUB

by Using FUNCTION END FUNCTION

DECLARE FUNCTION pat$(a$)
CLS
a$ = "NEPAL"
p$ = pat$(a$)
END

pat$ (s$)
    a$ = "NEPAL"
    r = 1
    t = 10
    FOR i = 5 TO 1 STEP -2
        PRINT TAB(t); MID$(s$, r, i)
        r = r + 2
        t = t + 2
    NEXT i
END FUNCTION

Patterns in QBASIC SET-2

1)	PROGRAMMING PROGRAMMIN PROGRAMMI PROGRAMM PROGRAM PROGRA PROGR PROG PRO PR P	CLS a$ = "PROGRAMMING" FOR i = LEN(a$) TO 1 STEP -1 PRINT LEFT$(a$, i) NEXT i END
2)	5 55 555 5555 55555	CLS n = 5 FOR i = 1 TO 5 PRINT n n = n * 10 + 5 NEXT i END
3)	P EPA NEPAL	CLS S$ = "NEPAL" r = 1 t = 10 FOR i = 3 TO 1 STEP -1 PRINT TAB(t); MID$(S$, i, r) r = r + 2 t = t - 1 NEXT i END
4)	123456787654321 1234567654321 12345654321 123454321 1234321 12321 121 1	CLS n# = 11111111 s = 10 FOR i = 1 TO 8 PRINT SPACE$(s); n# * n# n# = n# \ 10 s = s + 1 NEXT i END
5)	1 2 3 4 5 6 7 8 9 10 11 12 13 14 15	CLS c = 1 FOR i = 1 TO 5 FOR j = 1 TO i PRINT c; c = c + 1 NEXT j PRINT NEXT i END
5)	1 3 5 7 9 1 3 5 7 1 3 5 1 3 1	CLS FOR i = 9 TO 1 STEP -2 FOR j = 1 TO i STEP 2 PRINT j; NEXT j PRINT NEXT i END
5)	9 9 7 9 7 5 9 7 5 3 9 7 5 3 1	CLS FOR i = 9 TO 1 STEP -2 FOR j = 9 TO i STEP -2 PRINT j; NEXT j PRINT NEXT i END
5)	1 1 3 1 3 5 1 3 5 7 1 3 5 7 9	CLS FOR i = 1 TO 9 STEP 2 FOR j = 1 TO i STEP 2 PRINT j; NEXT j PRINT NEXT i ENDa

Patterns in QBASIC SET-1
Visit My YouTube Channel : https://www.youtube.comtechnicalschoolnepal
Facebook page : www.facebook.com/technicalschoolnepal
Complete QBASIC Course
Go to Practice Time

Patterns in QBASIC (SET-1)

1)	5 54 543 5432 54321	CLS FOR i = 5 TO 1 STEP -1 FOR j = 5 TO i STEP -1 PRINT j; NEXT j PRINT NEXT i END
2)	54321 5432 543 54 5	CLS FOR i = 1 TO 5 STEP 1 FOR j = 5 TO i STEP -1 PRINT j; NEXT j PRINT NEXT i END
3)	1 12 123 1234 12345	CLS FOR i = 1 TO 5 FOR j = 1 TO i PRINT j; NEXT j PRINT NEXT i END
4)	12345 1234 123 12 1	CLS FOR i = 5 TO 1 STEP -1 FOR j = 1 TO i STEP 1 PRINT j; NEXT j PRINT NEXT i END
5)	1 22 333 4444 55555	CLS FOR i = 1 TO 5 FOR j = 1 TO i PRINT i; NEXT j PRINT NEXT i END
6)	55555 4444 333 22 1	CLS FOR i = 5 TO 1 STEP -1 FOR j = 1 TO i STEP 1 PRINT i; NEXT j PRINT NEXT i END
7)	* * * *** *******	CLS s$ = "*********" t = 10 FOR i = 1 TO LEN(s$) STEP 2 PRINT TAB(t); LEFT$(s$, i) t = t - 1 NEXT i END
8)	2 22 222 2222 22222	CLS n = 2 FOR i = 1 TO 5 PRINT n n = n * 10 + 2 NEXT i END
9)	1 11 111 1111 11111	CLS n = 1 FOR i = 1 TO 5 PRINT n n = n * 10 + 1 NEXT i END
10)	11111 1111 111 11 1	CLS n = 11111 FOR i = 1 TO 5 PRINT n n = n \ 10 NEXT i END
11)	R ER TER UTER PUTER MPUTER OMPUTER COMPUTER	CLS X$ = "COMPUTER" FOR i = 1 TO LEN(X$) PRINT RIGHT$(X$, i) NEXT i END
12)	C CO COM COMP COMPU COMPUT COMPUTE COMPUTER	CLS X$ = "COMPUTER" FOR i = 1 TO LEN(X$) PRINT LEFT$(X$, i) NEXT i END
13)	* * ** ***	CLS a$ = "*****" FOR i = 1 TO LEN(a$) PRINT LEFT$(a$, i) NEXT i END
14)	*** * ** *	CLS a$ = "*****" FOR i = LEN(a$) TO 1 STEP -1 PRINT LEFT$(a$, i) NEXT i END
15)	******* *** * * *	CLS a$ = "*********" FOR i = LEN(a$) TO 1 STEP -2 PRINT LEFT$(a$, i) NEXT i END
16)	******* *** * * *	CLS x$ = "*********" b = 1 t = 20 FOR i = LEN(x$) TO 1 STEP -2 PRINT TAB(t); MID$(x$, b, i) b = b + 1 t = t + 1 NEXT i END