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

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

REM PROGRAM TO DISPLAY AREA OF SQUARE 
CLS 
INPUT “ENTER LENGTH”; L 
A = L ^ 2 
PRINT “AREA OF SQUARE ”; A 
END 


REM 
enter any two numbers and display the smaller one
    CLS 
    INPUT “ENTER ANY TWO NUMBERS”; A, B 
    IF A < B THEN 
    PRINT A; “IS SMALLER” 
    ELSE 
    PRINT B; “IS SMALLER” 
    END IF 
    END 

REM CALCULATE SUM OF FIRST N NATURAL NUMBERS 
CLS 
INPUT “ENTER THE NUMBER”; N 
S = N * (N + 1) / 2 
PRINT “SUM OF”; N; “NUMBERS=”; S 
END 


REM CALCULATE SUM OF SQUARE OF FIRST N NATURAL NUMBERS 
CLS 
INPUT “ENTER THE NUMBER”; N 
S = N * (N + 1) * (2 * N + 1) / 6 
PRINT “SUM OF SQUARE OF ”; N; “NUMBERS=”; S 
END 

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

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

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

CLS 
INPUT "ENTER ANY FOUR SUBJECT'S MARK;"; a, b, c, d 
total = a + b + c + d 
avg = total / 4 
IF avg > 40 THEN 
    PRINT "You are pass" 
ELSE 
    PRINT "you are fail" 
END IF 
END

REM PROGRAM TO DISPLAY VOLUME OF CYLINDER. 
CLS 
INPUT “ENTER RADIUS ”; R 
INPUT “ENTER HEIGHT”; H 
V = 3.14 * R ^ 2 * H 
PRINT “VOLUME OF CYLINDER ”; V 
END 


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

REM PROGRAM TO DISPLAY TOTAL SURFACE AREA AND VOLUME OF CUBE 
CLS 
INPUT “ENTER LENGTH”; L 
A= 6 * L ^ 2 
V = L ^ 3 
PRINT “TOTAL SURFACE AREA OF CUBE “; A 
PRINT “VOLUME OF CUBE ”; V 
END 

REM PROGRAM TO DISPLAY AREA OF TRIANGLE 
CLS 
INPUT “ENTER BREADTH”; B 
INPUT “ENTER HEIGHT”; H 
A = 1 / 2  * (B * H) 
PRINT “AREA OF TRIANGLE “; A 
END 


REM PROGRAM TO DISPLAY VOLUME OF CUBE 
CLS 
INPUT “ENTER LENGTH”; L 
V = L ^ 3 
PRINT “VOLUME OF CUBE ”; V 
END 

REM PROGRAM TO DISPLAY PERIMETER OF SQUARE 
CLS 
INPUT “ENTER LENGTH”; L 
P = 4 * L 
PRINT “PERIMETER OF SQUARE ”; P 
END 

REM PROGRAM TO DISPLAY AREA OF PARALLELOGRAM 
CLS 
INPUT “ENTER BREADTH”; B 
INPUT “ENTER HEIGHT”; H 
A = B * H 
PRINT “AREA OF PARALLELOGRAM"; A 
END 


REM PROGRAM TO DISPLAY VOLUME OF CUBOID. 
CLS 
INPUT “ENTER LENGTH”; L 
INPUT “ENTER BREADTH”; B 
INPUT “ENTER HEIGHT”; H 
V = L * B * H 
PRINT “VOLUME OF CUBOID ”; V 
END 


REM PROGRAM TO CONVERT VALUE IN METER TO INCH 
CLS 
INPUT”ENTER VALUE IN METER”; M 
I = M * 39.37 
PRINT “VALUE IN INCH=”; I 
END

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


REM PROGRAM TO DISPLAY AREA AND PERIMETER OF SQUARE 
CLS 
INPUT “ENTER LENGTH”; L 
A= L ^ 2 
P = 4 * L 
PRINT “AREA OF SQUARE “; A 
PRINT “PERIMETER OF SQUARE ”; P 
END