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