1)wpa to display area of circle.
CLS
INPUT"ENTER RADIUS";R
A=22/7*R^2
PRINT"ARAE OF CIRCLE";A
END
2)WAP TO FIND AREA OF A RECTANGLE
CLS
INTER"ENTER LEANTH ";L
INTER"ENTER BREATH";B
A=L*B
PRINT AREA OF RECTANGLE";A
END
3) WAP TO FIND AREA OF SQUARE.
CLS
INTER"ENTER LEANTH":L
A=L^2
PRINT"AREA OF SQUARE";A
END
4) WAP TO FIND AREA OF TRIANGLE.
CLS
INPUT"ENTER BASE ";B
INTER"ENTER HEIGHT";H
A=1/2*B*H
PRINT"AREA OF TRIANGLE;A
END
5) WAP TO FIND VOLUME OF CYLINDER.
CLS
INPUT"ENRER RADIUS";R
INPUT"ENTER HEIGHT";H
A=22/7*R^2*H
PRINT"VOLUME OF CYLINDER";A
END
6) WAP TO INTER %AGE AND PASS OR FAIL.
CLS
INPUT"ENTER PERCENTAGE";P
IF P>2=40 THEN
PRINT"PASS"
ELSE
PRINT"FAIL"
ENDIF
END
7) WAP TO INTER ANY NUM AND CHEACK ODD OR EVEN
CLS
INPUT"ENTER ANY NUMBER ";N
IF N MOD 2=O THEN
PRINT"EVEN NUMBER"
ELSE
PRINT"ODD NUMBER"
ENDIF
END
8) WAP TO INPUT ANY NUM AND CHECK POSITIVE NEGITIVE AND ZERO.
CLS
INPUT " ENTER ANY NUM "; N
IF N<O THEN
PRINT" POSITIVE NUMBER "
ELSEIF N<O THEN
PRINT"NEGATIVE NUM"
ELSE
PRINT" ZERO"
ENDIF
END
9) WAP TO INPUT ANY NUMBER WHETHER IT IS DIVISIBLE BY 5 OR NOT.
CLS
INPUT"ENTER ANY NUMBER";N
IF N MOD 5 =0 THEN
PRINT" THE NYMBER IS DIVISIBLE BY 5"
ENDIF
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=10
WHILE I>=10
PRINTI
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
WHIL I>=5
PRINT I
I=I-5
WEND
END
