QBasic program solutions (Part 7) for classes 8, 9, and 10.

Here, I have listed some of the qbasic programs. We also have mobile app where you can view all the qbasic programs. For better experience I highy recommend you to use our mobile app

Please download our app by clicking the image below:

Download Qbasic application on your phone

If the above link is not working. You can use this link –> https://play.google.com/store/apps/details?id=com.allbachelor.qbasicapp

121 Write a program in qbasic to generate the series 55555 5555 555 55 5

CLS 
A = 55555 
FOR I = 1 TO 5 
PRINT A; 
A = A \ 10 
NEXT I 
END

122 Write a program in qbasic to generate the series 1 2 3 5…………9th terms

CLS 
A = 1 
B = 2 
FOR I = 1 TO 9 
PRINT A; 
C = A + B 
A = B 
B = C 
NEXT I 
END

123 Write a program in qbasic to print numbers 70 61 52…..7

CLS 
FOR I = 70 TO 7 STEP -9 
PRINT I 
NEXT I 
END

124 Write a program in qbasic to generate the series 100 95 90…………………10th term

CLS 
A = 100 
FOR I = 1 TO 10 
PRINT A; 
A = A - 5 
NEXT I 
END

125 Write a program in qbasic TO ENTER ANY DIGIT AND PRINT ITS REVERSED FORM

CLS 
INPUT "ENTER ANY NUMBER"; N 
S = 0 
WHILE N  <> 0 
R = N MOD 10 
S = S * 10 + R 
N = N \ 10 
WEND 
PRINT "REVERSED DIGITS="; S 
END

126 Write a program to enter any three numbers and display the smallest one.

CLS 
INPUT “ENTER ANY THREE NUMBERS”; A, B, C 
IF A < B AND A < C THEN 
PRINT A; “IS SMALLEST” 
ELSEIF B < A AND B < C THEN 
PRINT B; “IS SMALLEST” 
ELSE 
PRINT C; “IS SMALLEST” 
END IF 
END

127 Write a program in qbasic to print the sum of square of odd numbers up to 100

CLS
FOR I = 1 TO 100 STEP 2 
S = S + I ^ 2 
NEXT I 
PRINT “SUM OF SQUARE OF ODD NUMBERS UP TO 100” ; S 
END

128 Write a program in qbasic to print the sum of cube of even numbers between 2 to 50

CLS 
FOR I = 2 TO 50 STEP 2 
S = S + I 
NEXT I 
PRINT “SUM OF EVEN NUMBERS BETWEEN 2 TO 50” ; S 
END

129 Write a program to input a mark in a subject of a student and check if the student is pass or nor.

CLS 
INPUT”ENTER THE MARKS IN ANY SUBJECT”;A 
IF A>40 THEN 
PRINT” YOU ARE PASS” 
ELSE 
PRINT”YOU ARE FAIL” 
END

130 Write a program in qbasic to ask number and find product of digits

INPUT "ENTER ANY NUMBER"; N 
P = 1 
WHILE N  < > 0 
R = N MOD 10 
P = P * R 
N = N \ 10 
WEND 
PRINT "PRODUCT OF DIGITS"; P 
END

131 Write a program in qbasic using to print first 13 odd numbers

CLS 
A = 1 
FOR I = 1 TO 13 
PRINT A, 
A = A+ 2 
NEXT I 
END

132 Write a program in qbasic to ask any number and find sum of factors

CLS 
INPUT "ENTER ANY NUMBER"; N 
S = 0 
FOR I = 1 TO N 
IF N MOD I = 0 THEN S = S + I 
NEXT I 
PRINT "SUM OF FACTORS="; S 
END

133 Write a program in qbasic to enter any ten strings and sort in descending order

CLS 
DIM N(10) AS STRING 
FOR I = 1 TO 10 
INPUT "ENTER THE STRINGS"; N(I) 
NEXT I 
FOR I = 1 TO 10 
FOR J = 1 TO 10 - I 
IF N(J)  <  N(J + 1) THEN SWAP N(J), N(J + 1) 
NEXT J 
NEXT I 
PRINT "STRINGS ARRANGED IN DESCENDING ORDER" 
FOR I = 1 TO 10 
PRINT N(I) 
NEXT I 
END

134 Write a program in qbasic to ask any string and print only vowels

CLS 
INPUT "ENTER ANY STRING"; S$ 
FOR I = 1 TO LEN(S$) 
B$ = MID$(S$, I, 1) 
C$ = UCASE$(B$) 
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN 
PRINT B$ 
END IF 
NEXT I 
END

135 Write a program in qbasic to ask any number and print the factorial of a given number

CLS 
INPUT "ENTER ANY NUMBER"; N 
F = 1 
FOR I = 1 TO N 
F = F * I 
NEXT I 
PRINT "FACTORIAL ="; F 
END

136 Write a program in qbasic to print square of all numbers from 1 to 50

CLS 
FOR I = 1 TO 50 
PRINT I ^ 2, 
NEXT I 
END

137 Write a program in qbasic to print all prime numbers from 1 to 100

CLS 
FOR N = 1 TO 100 
C = 0 
FOR I = 1 TO N 
IF N MOD I = 0 THEN C = C + 1 
NEXT I 
IF C = 2 THEN PRINT N, 
NEXT N 
END

138 Write a program in qbasic to ask number and find sum of square of even digits

 
CLS 
INPUT "ENTER ANY NUMBER"; N 
S = 0 
WHILE N < > 0 
R = N MOD 10 
IF R MOD 2 = 0 THEN S = S + R ^ 2 
N = N \\ 10 
WEND 
PRINT "SUM OF SQUARE OF EVEN DIGITS"; S 
END

139 Write a program in qbasic to ask number and find sum of square of odd digits

CLS 
INPUT "ENTER ANY NUMBER"; N 
PRINT "SQUARE OF ODD DIGITS ARE "; 
WHILE N <> 0 
R = N MOD 10 
IF R MOD 2 = 1 THEN PRINT R ^ 2; 
N = N \ 10 
WEND 
END

140 Write a program in qbasic to ask number and find product of even digits

CLS 
INPUT "ENTER ANY NUMBER"; N 
P = 1 
WHILE N <> 0 
R = N MOD 10 
IF R MOD 2 = 0 THEN P = P * R 
N = N \ 10 
WEND 
PRINT "PRODUCT OF EVEN DIGITS"; P 
END