Project Work of computer

1) WAP to find a area of a rectangle.

CLS
INPUT "Enter length" ; L
INPUT "Enter breadth" ; B
A= L*B
PRINT "Area of rectangle= " ; A
END

2) WAP to find a area of circle.

CLS
INPUT "Enter radius" ; R
A = 22/7 * R ^ 2
PRINT "Area of circle= " ;A
END

3) WAP to find a area of a square.

CLS
INPUT "Enter length" ; L
A = L^2
PRINT "Area of square = " ; A
END

 4) WAP to find a 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 a 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 IF N < 0 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 ....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