Computer Notes, Programming codes, Hardware and Networking Tip, Entertainment, Biography, Internet Tip, Tech News, Latest Technology, YouTube,

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

Post a Comment

MKRdezign

Contact Form

Name

Email *

Message *

Powered by Blogger.
Javascript DisablePlease Enable Javascript To See All Widget