WAP to find area of rectangle
CLSINPUT "INTER LENGTH";L
INPUT "INTER BREADTH";B
A=L*B
PRINT "AREA OF RECTANGLE=";A
END
WAP to find area of circle
CLS
INPUT "ENTER RADIUS";R
A=22/7 *R^2
PRINT"AREA OF CIRCLE=";A
END
WAP to find a area of square
CLS
INPUT "ENTER Length";L
A=L^2
PRINT "area of square =";A
END
CLS
INPUT "ENTER base";B
INPUT "ENTER height";H
A=1/2 *B*H
PRINT "AREA of triangle";A
END
CLS
INPUT "ENTER Radius";R
INPUT "INTER Height";H
V=22/7 *R^2*H
PRINT "Volume of cylinder =";V
END
INPUT "ENTER Length";L
A=L^2
PRINT "area of square =";A
END
WAP to find a area of triangle
INPUT "ENTER base";B
INPUT "ENTER height";H
A=1/2 *B*H
PRINT "AREA of triangle";A
END
WAP to find a volume of cylinder
CLSINPUT "ENTER Radius";R
INPUT "INTER Height";H
V=22/7 *R^2*H
PRINT "Volume of cylinder =";V
END
WAP to find input percentage and display pass or fail
CLS
INPUT "ENTER Percentage";P
IF P> =40 THEN
PRINT"PASS"
ELSE
PRINT" FAIL"
END
WAP to input any number and check odd or even
CLS
INPUT "ENTER any number";N
IF N MOD 2=O THEN
PRINT "EVEN NUMBER"
ELSE
PRINT "ODD NUMBER"
END IF
END
WAP to display 5,10,15............50
CLS
For I =5 to 10 50 STEPS
PRINT I
NEXT I
END
WAP to display 100,90,80.........10
CLS
I =100
WHILE I =10
PRINT I
I = I-10
WEND
END
WAP to display 2,4,6,8...........20
CLS
I =2
DO WHILE I<=20
PRINT I
I= I+2
LOOP
END
END
