bhlmilan.com.np
Examples
QBASIC EXAMPLESExample 1
A program to ask user name and store it in a variable
CLS
INPUT "Enter your name please";A$
PRINT "Your name is";A$
Example 2
A program to find the greatest number in two entered numbers
CLS
INPUT "First Number";a
INPUT "Second Number";b
IF a>b THEN PRINT "FIRST NUMBER ";a;" IS GREATER THAN ";b
IF b>a THEN PRINT "FIRST NUMBER ";b;" IS GREATER THAN ";a
Example 3
A program to print series as below
1
12
123
1234
12345
CLS
A=0
FOR I=1 TO 5
A=(A*10)+I
PRINT A
NEXT I
END
Example 4
A program to ask user to enter 5 different numbers and print its sum.
CLS
FOR I= 1 to 5
INPUT a
sum=sum+a
NEXT I
PRINT "SUM=";sum
END
Example 5
A program to print following output
c
co
com
comp
compu
comput
compute
computer
CLS
A$="computer"
FOR I= 1 TO 8
PRINT MID$(A$,1,I)
NEXT I
END
Example 6
r
er
ter
uter
puter
mputer
omputer
computer
CLS
A$="computer"
B=1
FOR J=8 TO 1 STEP -1
PRINT MID$(A$,J,B)
B=B+1
NEXT J
END
Example 7
A program to print following output
11111
1111
111
11
1
CLS
A=11111
FOR I= 1 TO 5
PRINT TAB(I);A
A=(A-1)/10
NEXT I
END
EXAMPLE 8
A PROGRAM TO FOLLOWING OUTPUT
54321
4321
321
21
1
CLS
A=54321
FOR I= 1 TO 5
PRINT A
A=(A-1)/10
NEXT I
END
EXAMPLE 9
A PROGRAM TO PRINT FOLLOWING OUTPUT
55555
4444
333
22
1
CLS
Z=1
FOR I= 5 TO 1 STEP-1
FOR J=1 TO I
C=(C*10)+I
NEXT J
PRINT TAB(Z);C
Z=Z+1
NEXT I
END
EXAMPLE 10
A PROGRAM TO PRINT FOLLOWING OUTPUT
1
3
5
7
9
.
.
.
.
10TH TERM
CLS
A=1
FOR I= 1 TO 10
PRINT A
A=A+2
NEXT I
END
EXAMPLE 11
A PROGRAM TO PRINT FOLLOWING OUTPUT
5
25
125
625
.
.
.
.
8TH TERM
CLS
A=5
FOR I= 1 TO 8
PRINT A
A=A*5
NEXT I
END
EXAMPLE 12
A PROGRAM TO PRINT FOLLOWING OUTPUT
1
4
9
16
25
.
.
.
15TH TERM
CLS
FOR I = 1 TO 15
A=I^2
PRINT A
NEXT I
END
EXAMPLE 13
A PROGRAM TO PRINT FOLLOWING OUTPUT
5
56
543
5432
54321
CLS
A=5
B=4
FOR I = 1 TO 5
PRINT A
A=(A*10)+B
B=B-1
NEXT I
END
EXAMPLE 14
A PROGRAM TO PRINT FOLLOWING OUTPUT
1
1
2
3
5
8
13
21
34
55
CLS
A=1
B=0
FOR I = 1 TO 10
PRINT A
A=A+B
B=A-B
NEXT I
END
EXAMPLE 15
A PROGRAM TO PRINT FOLLOWING OUTPUT
2
0
2
2
4
6
10
16
26
42
CLS
A=2
B=-2
FOR I = 1 TO 10
PRINT A
A=A+B
B=A-B
NEXT I
END
EXAMPLE 16
A PROGRAM TO ENTER PRINCIPAL,RATE,TIME AND THEN DISPLAY AMOUNT
CLS
INPUT "PRINCIPAL";P
INPUT "RATE";R
INPUT "TIME";T
I=(P*T*R)/100
A=I+P
PRINT "NET AMOUNT=";A
END
EXAMPLE 17
A PROGRAM TO ENTER STATEMENT IN ANY CASE AND TO CONVERT INTO DESIRED UPPER OR LOWER CASE AND DISPLAY IT.
CLS
INPUT "ENTER ANY STATEMENT PLEASE:",a$
INPUT "UPPERCASE(U) OR LOAER CASE(L)",b$
IF UCASE$(b$)="U" THEN C$=UCASE$(a$)
IF UCASE$(b$)="L" THEN C$=LCASE$(a$)
PRINT C$
END
EXAMPLE 18
A PROGRAM TO ENTER NAME, ADDRESS, PHONE NO, COLLEGE, LEVEL AND STORE THEM INTO A FILE NAMED RECORD.TXT
CLS
INPUT "YOUR SWEET NAME PLEASE:",A$
INPUT "YOUR ADDRESS PLEASE:",B$
INPUT "YOUR PHONE NO.:",A
INPUT "YOUR COLLEGE:",C$
INPUT "YOUR LEVEL:",B
CLOSE
OPEN "RECORD.TXT" FOR INPUT AS #1
OUTPUT#1, A$,B$,A,C$,B
CLOSE
END
EXAMPLE 19
A PROGRAM TO INPUT NAME OF A PERSON AND DISPLAY THE DETAILS OF THE PERSON RECORDED IN A FILE NAMED RECORD.DAT
CLS
M=0 INPUT "NAME TO SEARCH:",A$
OPEN "RECORD.DAT" FOR INPUT AS#1
DO WHILE NOT EOF(1)
INPUT#1, AA$,B$,C,C$,D,E$
IF UCASE$(A$)=UCASE$(AA$) THEN
PRINT "NAME:";AA$
PRINT "ADDRESS:";B$
PRINT "PHONE NO.:";C
PRINT "COLLEGE:";C$
PRINT "LEVEL:";D
PRINT "INETEREST:";E$
M=1
ELSE
M=0
END IF
IF M=O THEN PRINT "DATA NOT FOUND"
END
EXAMPLE 20
A PROGRAM TO CHECK WHETHER GIVEN NUMBER IS AMSTRONG OR NOT
CLS
INPUT A
C = A
WHILE A > 0
B = A MOD 10
D = D + B ^ 3
A = INT(A / 10)
WEND
PRINT D
IF D = C THEN
PRINT "AMSTRONG"
ELSE
PRINT "NOT AMSTRONG NUMBER"
END IF
END
EXAMPLE 21
A PROGRAM TO PRINT 10 INPUT NUMBERS IN ASCENDING ORDER
CLS
DIM a(10)
FOR i = 1 TO 10
INPUT a(i)
NEXT i
FOR j = 1 TO 9
FOR k = j TO 1 STEP -1
IF a(k) > a(k + 1) THEN SWAP a(k), a(k + 1)
NEXT k
NEXT j
FOR m = 1 TO 10
PRINT a(m)
NEXT m
EXAMPLE 22
A PROGRAMME TO FIND WHETHER THE GIVEN WORD IS PALINDROME OR NOT
CLS
INPUT "A STRING"; A$
FOR I = LEN(A$) TO 1 STEP -1
B$ = MID$(A$, I, 1)
D$ = D$ + B$
NEXT I
PRINT D$
IF A$ = D$ THEN
PRINT "PALINDROME WORD"
ELSE
PRINT "NOT PALINDROME WORD"
END IF
EXAMPLE 23
A PROGRAMME TO FIND WHETHER GIVEN INPUT NUMBER IS PALINDROME OR NOT
CLS
INPUT A
C = A
WHILE A > 0
B = A MOD 10
D = D * 10 + B
A = INT(A / 10)
WEND
PRINT D
IF D = C THEN
PRINT "PALINDROME NUMBER"
ELSE
PRINT "NOT PALINDROME NUMBER"
END IF
END
EXAMPLE 24
A PROGRAMME TO PRINT PRIME NUMBERS FROM 1 TO USER INPUTED NUMBER
CLS
k = 2
INPUT MM
milan:
flag = 0
FOR i = 2 TO k - 1
b = k MOD i
IF b = 0 THEN flag = 1
NEXT i
IF flag = 0 THEN PRINT k
k = k + 1
IF k > MM THEN END
GOTO milan:
END
Many more examples to come soon based on Nepal Government SLC level Examinations......
Please wait