Qbasic Programming

1 W A P to fiend the area of rectangle .

 C L S

INPUT"ENTER LENGTH ";L

INPUT"ENTER BREATH ";B 

A=L*B

PRINT"AREA OF RECTANGLE=";A

END

2 W A P to display the area of circle 

 C L S

 INPUT"ENTER RADIOUS  ";R

 A=22/7*R^2

 PRINT"AREA OF CIRCLE";A

 END 

'

3 W A P to find the area of  square

 C L S

 INPUT"LENGTH OF SQUARE ";L

 A=L^2

PRINT"AREA OF SQUARE "; A

END 

4 W A P to find the area  of triangle.
C L S
 INPUT"ENTER BASE";B
 INPUT"ENTER HEIGHT ";H
A=1/2*B*H
PRINT"AREA OF TRIANGLE";A
END

5 W A P to find volume of cylinder.
C L S
INPUT"ENTER RADIOUS";R
INPUT"ENTER  HEIGHT ";H
V=22/7*R^2*H
PRINT"VOLUME OF CYLINDER";V
END

6 W A P to input prcantage and display pass or fail
C L S
INPUT"ENTER PERCANTAGE";P
IF P>=40 THEN
PRINT "YOU ARE PASS"
ELSE
PRINT "YOU ARE FAIL"
END IF
END

7 W A P to input and number and check odd or even.
C L S
INPUT"ENTER ANY NUMBER ";N
IF N MOD >=0 THEN
PRINT "EVEN NUMBER "
ELSE
PRINT "ODD NUMBER"
END IF
END

8 W A P to input any number and check posative ,negative or zero.
C L S
INPUT"ANY NUMBER ";N
IF N>
PRINT "YOU ARE PASS"
ELSE
PRINT "YOU ARE FAIL"
END IF
END

9 W A P to input any number and check ither it is devisible by 5  or not.
C L S
INPUT"ENTER ANY  NUMBER ";N
IF N MOD 5>=0 THEN
PRINT "NUMBER IS DEVISIBLE BY 5"
END IF
END

10 W A P to display 5, 10, 15, ........ 50.
C L S
FOR I= 5 TO 50 STEP 5
PRINT I
NEXT I
END

11 W A P to display 2, 4, 6, 8, . . . . . . 20
C L S
FOR I= 2 TO 20 STEP 2
PRINT I
NEXT I
END

12 W A P  to display 100, 90, 80, . . . . .10.
C L S
FOR I= 100 TO 10 STEP -10
PRINT I
NEXT I
END

13 W A P to display 50, 45, 40, . . . . . . 5.
C L S
FOR I= 50 TO 5 STEP -5
PRINT I
NEXT I
END

14 W A P to input and number and check odd or even.
C L S
INPUT"ENTER ANY NUMBER ";N
IF N MOD >=0 THEN
PRINT "EVEN NUMBER "
ELSE
PRINT "ODD NUMBER"
END IF
END

15 W A P to input any number and check ither it is devisible by 5  or not.
C L S
INPUT"ENTER ANY  NUMBER ";N
IF N MOD 5>=0 THEN
PRINT "NUMBER IS DEVISIBLE BY 5"
END IF
END