Qbasic programs with solutions (part 1) for class 8,9 and 10

REM PROGRAM TO DISPLAY VOLUME OF SPHERE.
CLS
INPUT “ENTER RADIUS ”;R
V = (4 / 3) * 3.14 * R ^ 3
PRINT “VOLUME OF SPHERE ”;V
END

REM PROGRAM TO DISPLAY AREA OF 4 WALLS
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
A = 2 * H * (L + B)
PRINT “AREA OF FOUR WALLS”; A
END

REM PROGRAM TO DISPLAY TOTAL SURFACE AREA AND VOLUME OF CUBOID 
CLS 
INPUT “ENTER LENGTH OF CUBOID”; L 
INPUT “ENTER BREADTH OF CUBOID”; B 
INPUT “ENTER HEIGHT OF CUBOID”; H 
A= 2 * (L * B + B * H + H * L) 
V = L * B * H 
PRINT “TOTAL SURFACE AREA OF CUBOID “; A 
PRINT “VOLUME OF CUBOID ”; V 
END 

REM PROGRAM TO DISPLAY TOTAL SURFACE AREA OF CUBE 
CLS 
INPUT “ENTER SIDE OF A CUBE”; L 
T= 6 * L ^ 2 
PRINT “TOTAL SURFACE AREA OF CUBE“; T 
END 

REM PROGRAM TO DISPLAY AREA OF RECTANGLE 
CLS 
INPUT “ENTER LENGTH”; L 
INPUT “ENTER BREADTH”; B 
A = L * B 
PRINT “AREA OF RECTANGLE ”; A 
END 

REM PROGRAM TO DISPLAY CIRCUMFERENCE OF CIRCLE 
CLS 
INPUT “ENTER RADIUS”; R 
C = 2 * 3.14 * R 
PRINT “CIRCUMFERENCE OF CIRCLE ”; A 
END

REM PROGRAM TO DISPLAY AREA OF TRIANGLE WHEN THREE SIDES ARE GIVEN 
CLS 
INPUT “ENTER VALUE FOR FIRST SIDE ”; A 
INPUT “ENTER VALUE FOR SECOND SIDE ”; B 
INPUT “ENTER VALUE FOR THIRD SIDE ”; C 
S = (A + B + C) / 2 
AR = (S * (S – A) * (S – B) * (S – C)) ^ (1 / 2) 
PRINT “AREA OF TRIANGLE “; AR 
END 

REM PROGRAM TO DISPLAY AREA AND CIRCUMFERENCE OF CIRCLE. 
CLS 
INPUT “ENTER RADIUS ”; R 
A= 3.14 * R ^ 2 
C = 2 * 3.14 * R 
PRINT “AREA OF CIRCLE “; A 
PRINT “CIRCUMFERENCE OF CIRCLE ”; C 
END 

REM PROGRAM TO CONVERT KILOMETER TO MILES 
CLS 
INPUT”ENTER DISTANCE IN KILOMETER”; K 
M = K * 0.62 
PRINT “DISTANCE IN MILES=”; M 
END 

REM PROGRAM TO CONVERT METER TO KILOMETER 
CLS 
INPUT "ENTER DISTANCE IN METER"; M 
K = M \\1000 
PRINT K; "KILOMETER"; 
END 

REM CALCULATE POTENTIAL ENERGY OF BODY 
CLS 
INPUT “ ENTER MASS”; M 
INPUT “ENTER HEIGHT”; H 
P = M * 9.8 * H 
PRINT “POTENTIAL ENERGY OF BODY”; P 
END 

REM PROGRAM TO DISPLAY PERIMETER OF RECTANGLE 
CLS 
INPUT “ENTER LENGTH”; L 
INPUT “ENTER BREADTH”; B 
P = 2 * (L + B) 
PRINT “PERIMETER OF RECTANGLE ”; P 
END 

REM PROGRAM TO DISPLAY SIMPLE INTEREST AND TOTAL AMOUNT 
CLS 
INPUT “ENTER PRINCIPAL”; P 
INPUT “ENTER TIME”; T 
INPUT “ENTER RATE”;R 
I = P* T * R / 100 
A = P + I 
PRINT “SIMPLE INTEREST=”;I 
PRINT “TOTAL AMOUNT=”; A 
END 

REM PROGRAM TO CONVERT VALUE IN KILOGRAM TO GRAMS 
CLS 
INPUT”ENTER VALUE IN KILOGRAM”; K 
G = K * 1000 
PRINT “VALUE IN GRAMS=”; G 
END 

REM PROGRAM TO DISPLAY TOTAL SURFACE AREA AND VOLUME OF SPHERE. 
CLS 
INPUT “ENTER RADIUS ”; R 
A= 4 * 3.14 * R ^ 2 
V = (4 / 3) * 3.14 * R ^ 3 
PRINT “TOTAL SURFACE AREA OF SPHERE “; A 
PRINT “VOLUME OF SPHERE ”; V 
END 

REM PROGRAM TO DISPLAY TOTAL SURFACE AREA OF CYLINDER 
CLS 
INPUT “ENTER RADIUS ”; R 
INPUT “ENTER HEIGHT”; H 
A= 2 * 3.14 * R * (R + H) 
PRINT “TOTAL SURFACE AREA OF CYLINDER “; A 
END 

REM PROGRAM TO DISPLAY TOTAL SURFACE AREA OF CUBOID / BOX 
CLS 
INPUT “ENTER LENGTH”;L 
INPUT “ENTER BREADTH”;B 
INPUT “ENTER HEIGHT”;H 
T= 2 * (L * B + B * H + H * L) 
PRINT “TOTAL SURFACE AREA OF CUBOID“;T 
END 

REM PROGRAM TO DISPLAY AREA AND PERIMETER OF RECTANGLE 
CLS 
INPUT “ENTER LENGTH”; L 
INPUT “ENTER BREADTH”; B 
A= L * B 
P = 2 * (L + B) 
PRINT “AREA OF RECTANGLE “; A 
PRINT “PERIMETER OF RECTANGLE ”; P 
END 

REM PROGRAM TO DISPLAY TOTAL SURFACE AREA OF SPHERE. 
CLS 
INPUT “ENTER RADIUS ”; R 
A= 4 * 3.14 * R ^ 2 
PRINT “TOTAL SURFACE AREA OF SPHERE “; A 
END 

REM CALCULATE DISTANCE 
CLS 
INPUT “ENTER INITIAL VELOCITY”; U 
INPUT “ENTER TIME”; T 
INPUT “ENTER ACCELARATION”; A 
S = U * T + 1 / 2 * A * T ^ 2 
PRINT “DISTANCE TRAVELLED = “; S 
END