Qbasic Programs

1. WAP to find the area of rectangle.

CLS
INPUT "ENTER LENGTH "; L
INPUT "ENTER BREADTH";B
AREA = L * B
PRINT "AREA OF RECTANGLE IS="; AREA
END

2. WAP to display the area of circle.
CLS
INPUT "ENTER RADIUS"; R
A = 22/7 * R ^ 2
PRINT " AREA OF CIRCLE"; A
END

3. WAP to find the area of square.
CLS
INPUT " ENTER LENGTH"; L
A = L ^ 2
PRINT " AREA OF SQUARE="; A
END

4. WAP to find the area of triangle.
CLS
INPUT "ENTER BASE"; B
INPUT "ENTER HEIGHT"; H
A = 1/2 * B * H
PRINT "AREA OF TRIANGLE="; A
END

5. WAP to find the volume of cylinder.
CLS
INPUT "ENTER RADIUS";R
INPUT "ENTER HEIGHT"; H
V = 22/7 * R ^ 2 * H
PRINT "VOLUME OF CYLINDER="; V
END

6. WAP to input percentage and display pass or fail.
CLS
INPUT " ENTER PERCENTAGE"; P
IF P> = 40 THEN
PRINT "PASS"
ELSE
PRINT "FAIL"
END IF
END

7. WAP to input any number and check odd or even.
CLS
INPUT "ENTER ANY NUMBER"; N
IF N MOD 2=0 THEN
PRINT " EVEN NUMBER"
ELSE
PRINT "ODD NUMBER"
END IF
END

8. WAP to input any number and check positive, negative or zero.
CLS
INPUT " ENTER ANY NUMBER"; N
IF N > 0 THEN
PRINT "POSITIVE NUMBER"
ELSE N < O THEN
PRINT "NEGATIVE NUMBER"
ELSE
PRINT "ZERO"
END IF
END

9. WAP to input any number and check whether it is divisible by 5 or not.
CLS
INPUT "ENTER ANY NUMBER"; N
IF N MOD 5=0 THEN
PRINT " THE NUMBER IS DIVISIBLE BY 5"
ELSE
PRINT " THE NUMBER IS NOT DIVISIBLE BY 5"
END IF
END

10. WAP to display 5,10,15,......,50.
CLS
FOR I = 5 TO 50 STEP 5
PRINT I
NEXT I
END

11. WAP to display 100,90,80,.....,10.
CLS
I = 100
WHILE I > = 10
PRINT I
I = I - 10
WEND
END

12. WAP to display 2,4,6,8,....,20
CLS
I = 2
DO WHILE I < = 20
PRINT I
I = I + 2
LOOP
END

13. WAP to display 50,45,40,...,5
CLS
I = 50
WHILE I> = 5
PRINT I
I = I - 5
WEND
END