QBASIC CLASS IX
WRITE THE PROGRAMS FOR THE FOLLOWINGS
1. Write a program to input three different numbers and print their sum and product.
CLS
INPUT "Enter first number";n1
IPNUT "Enter second number";n2
IPNUT "Enter third number";n3
PRINT "SUM = ";n1+n2+n3
PRINT "PRODUCT = ";n1*n2*n3
END
2. WRITE A PROGRAM TO INPUT THE LENGTH AND PRINT THE PERIMETER OF A SQUARE
CLS
IPNUT "ENTER LENGTH";L
PRINT "PERIMETER = ";4*L
END
3. WRITE A PROGRAM TO INPNUT NEPALI CURRENCY AND CONVERT IT INTO INDIAN CURRENCY.
CLS
INPUT "ENTER NEPALI CURRENCY";N
PRINT "EQUIVALENT INDIAN CURRENCY =";N/1.6
END
4. WRITE A PROGRAM TO ENTER A NUMBER AND CHECK WHETHER TH NUMBER IS PALINDROME OR NOT.
CLS
INPUT "ENTER A NUMBR";N
T=N
WHILE N>0
R=N MOD 10
REV=REV*10+R
N=INT(N/10)
WEND
IF T=REV THEN
PRINT "THE NUMBER IS PALINDROME"
ELSE
PRINT "THE NUMBER IS NOT PALINDROME"
END IF
END
5. WRITE A PROGRAM TO INPUT A NUMBER AND CHECK WHETHER THE NUMBER IS ARMSTRONG OR NOT.
CLS
INPUT "ENTER A NUMBER";N
T=N
WHILE N>0
R = R MOD 10
ARM = ARM + R ^ 3
N = N \ 10
WEND
IF ARM = T THEN
PRINT "THE NUMBER IS ARMSTRONG"
ELSE
PRINT "THE NUMBER IS NOT ARMSTRONG"
END IF
END
6. WRITE A PROGRAM TO CHECK WHETHER A STRING IS PALINDROME OR NOT.
CLS
INPUT "ENTER A WORD";W$
FOR I = LEN(W$) TO 1 STEP -1
REV$ = REV$ + MID$(W$,I,1)
NEXT I
IF W$ = REV$ THEN
PRINT "PALINDROME"
ELSE
PRINT "NOT PALINDROME"
END IF
END
7. WRITE A PROGRAM TO CHECK WHETHER AN INPUT NUMBER IS PRIME OR COMPOSITE.
CLS
INPUT "ENTER A NUMBER";N
FOR I = N -1 TO 2 STEP -1
IF N MOD I = 0 THEN
PRIME = 0
GO TO DOWN
ELSE
PRIME =1
END OF
NEXT I
DOWN:
IF PRIME = 1 OR N =1 OR N =2 THEN
PRINT "PRIME"
ELSE
PRINT "COMPOSITE"
END IF
END
8. WRITE A PROGRAM TO DISPLAY "SWARNIM PUBLICATION PVT LTD" 10 TIMES USING WHILE....WEND
CLS
I = 1
WHILE I<=10
PRINT "SWARNIM PUBLICATION PVT LTD"
I = I + 1
WEND
END
9. WRITE A PROGRAM TO PRINT FIRST 25 NUMBERS USING DO...LOOP
CLS
I = 2
DO
PRINT I,
I = I + 2
LOOP WHILE I <= 50
END
10. WRITE A PROGRAM TO FIND OUT FACTORIAL OF A GIVEN NUMBER USING FOR... NEXT
CLS
INPUT "ENTER A NUMBER";N
F = 1
FOR I = 1 TO N
F = F * I
NEXT I
PRINT N;"! = ";F
END
11. WRITE A PROGRAM TO INPUT MARKS OF ALL YOUR SUBJECTS AND PRINT TOTAL, PERCENTAGE, RESULT AND DIVISION
CLS
INPUT "MARKS IN NEPALI";N
INPUT "MARKS IN SCIENCE";S
INPUT "MARKS IN SOCIAL";SO
INPUT "MARKS IN ENGLISH";E
INPUT "MARKS IN MATHS";M
INPUT "MARKS IN OPT";O
INPUT "MARKS IN HPE";H
INPUT "MARKS IN COMPUTER";C
IF N>=40 AND S>=40 AND SO>=40 AND E>=40 AND M>=40 AND O>=40 AND H>=40 AND C>=40 THEN
RESULT$="PASS"
ELSE
RESULT$="FAIL"
END IF
TOTAL = N + S + SO + E + M + O + H + C
PERCENT = (TOAL / 800) * 100
IF PERCENT >=80 THEN
DIV$ = "DISTINCTION"
ELSEIF PERCENT >=60 THEN
DIV$ = "FIRST"
ELSEIF PERCENT >= 45 THEN
DIV$ = "SECOND"
ELSE
DIV$ = "THIRD"
END IF
PRINT "TOTAL: ";TOTAL
PRINT "PERCENT: ";PERCENT
PRINT "DIVISION: ";DIV$
PRINT "RESULT: ";RESULT$
END
12. WRITE A PROGRAM TO FIND THE AREA OF A CUBE. [HINT: A=6L2]
CLS
INPUT "ENTER THE LENGTH";L
PRINT "AREA = "; 6 * L ^ 2
END
13. WRITE A PROGRAM TO FIND THE CURVED SURFACE AREA OF A SQUARE.[A=2πRH]
CLS
PI = 22/7
INPUT "ENTER THE RADIUS";R
INPUT "ENTER THE HEIGHT";H
PRINT "CURVED SURFACE AREA = ";2 * PI * R * H
END
14. WRITE A PROGRAM TO FIND THE TOTAL SURFACE AREA OF A CYLINDER.[A=2πR(R+H)]
CLS
PI = 22/7
INPUT "ENTER THE RADIUS OF BASE OF CYLINDER";R
INPUT "ENTER THE HEIGHT OF THE CYLINDER";H
PRINT "SURFACE AREA = "; 2 * PI * R * (R + H)
END
15. WRITE A PROGRAM TO CALCULATE THE DISTANCE TRAVELLED BY BODY. [S=UT+1/2AT2]
CLS
INPUT "ENTER THE INITIAL VELOCITY"; U
INPUT "ENTER TIME";T
INPUT "ENTER ACCELERATION";A
PRINT "DISTANCE TRAVELLED = "; U * T + (1/2) * A * T ^ 2
END
16. WRITE A PROGRAM TO INPUT THE TEMPERATURE IN FAHRENHEIT AND DISPLAY IN DEGREE CELSIUS.
CLS
INPUT "TEMPERATURE IN FAHRENHEIT";F
PRINT "TEMPERATURE IN CELCIUS = "; ((F - 32) * 5)/9
END
6. WRITE PROGRAM TO GENERATE FOLLOWING SERIES
A. 2, 4, 6, 8......... UP TO 10TH TERM
CLS
FOR I = 2 TO 20 STEP 2
PRINT I;
NEXT I
END
B. 1, 8, 27, 64, .......... UP TO 10TH TERM
CLS
FOR I = 1 TO 10
PRINT I^3;
NEXT I
END
C. 100, 98, 96, 94.... UP TO 10TH TERM
CLS
I = 1
A = 100
WHILE I<=10
PRINT A;
A = A - 2
I = I + 1
WEND
END
D. 1, 4, 9, ......... UP TO 10TH TERM
CLS
FOR I = 1 TO 10
PRINT I ^ 2;
NEXT I
END
E. 5, 25, 125 .......... UP TO 10TH TERM
CLS
FOR I = 1 TO 10
PRINT 5 ^ I;
NEXT I
END
F. 1, 2, 3, 6, 11, 20, 37.... UP TO 10TH TERM
CLS
A = 1
B = 2
C = 3
FOR I = 1 TO 10
D = A + B + C
SWAP A, B
SWAP B, C
SWAP C, D
PRINT D;
NEXT I
END
G. 5, 16, 8, 4, 2, 1, 4, 2, 1, 4
CLS
A = 5
FOR I = 1 TO 10
PRINT A;
IF A MOD 2 = 0 THEN
A = A \ 2
ELSE
A = A * 3 + 1
END IF
NEXT
END
H. 66666, 6666, 666, 66, 6.
CLS
A = 66666
FOR I = 1 TO 5
PRINT A;
A = A \ 10
NEXT I
END
I. 2, 8, 18, 32, ........ UP TO 10TH TERM
CLS
A = 2
B = 6
FOR I 1 TO 10
PRINT A;
A = A + B
B = B + 4
NEXT I
END
J. 7, 22, 11, 34, 17, 52, 26, 13, 40, 20.
CLS
A = 7
FOR I = 1 TO 10
PRINT A;
IF A MOD 2 = 0 THEN
A = A \ 2
ELSE
A = A * 3 + 1
END IF
NEXT I
END
K. 1/2, 2/3, 3/4, ...... UP TO 10TH TERM
CLS
FOR I = 1 TO 10
PRINT I; "/"; I + 1;
NEXT I
END
7. WRITE A PROGRAM TO DISPLAY THE GICEN OUTPUT.
A. 54321
4321
321
21
1
CLS
FOR I = 5 TO 1 STEP -1
FOR J = I TO 1 STEP -1
PRINT J;
NEXT J
PRINT
NEXT I
END
B. 11111
2222
333
44
5
CLS
FOR I = 1 TO 5
FOR J = 5 TO I STEP -1
PRINT I;
NEXT J
PRINT
NEXT I
END
C. 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
D. 1
13
135
1357
CLS
FOR I = 1 TO 7 STEP 2
FOR J = 1 TO I STEP 2
PRINT J;
NEXT J
PRINT
NEXT I
END
E. 1 2 3
2 3 4
3 4 5
4 5 6
5 6 7
CLS
FOR I = 0 TO 4
FOR J = 1 TO 3
PRINT I +J;
NEXT J
PRINT
NEXT I
END
F. 1
33
555
7777
CLS
FOR I = 1 TO 7 STEP 2
FOR J = 1 TO I STEP 2
PRINT I;
NEXT J
PRINT
NEXT I
END
