| 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
Post a Comment