#9 VOLUME OF CYLINDER

DECLARE FUNCTION VOL (R,H)
CLS
INPUT "ENTER RADIUS";R
INPUT "ENTER HEIGHT";H
PRINT "VOL OF CYLINDER=";VOL (R,H)
END

FUNCTION VOL (R,H)
V= 22 / 7 * R ^ 2 * H
VOL=V
END FUNCTION

#8 AREA OF TRIANGLE

DECLARE FUNCTION AREA (B,H)
CLS
INPUT "ENTER BREADTH"; B
INPUT "ENTER HEIGHT";H
PRINT "AREA OF TRIANGLE";AREA (B,H)
END

FUNCTION AREA (B,H)
A = 1 / 2 * B * H
AREA = A
END FUNCTION

#7 DISPLAY REVERSE OF INPUT STRING

DECLARE SUB REV $ (N$)
CLS
INPUT "ENTER ANY NUMBER ";N$
CALL REV$(N$)
END

SUB REV$ (N$)
FOR I = LEN(N$) TO 1 STEP -1
B$= MID$ (N$,I,1)
C$ = C$+ B$
NEXT I
PRINT "REVERSE OF INPUT STRING";R
END SUB

#6 COUNT TOTAL NO OF VOWEL IN WORD

DECLARE FUNCTION COUNT (N$)
CLS
INPUT "ENTER ANY NUMBER";N$
PRINT "TOTAL  NO OF VOWELS IN WORD";COUNT(N$)
END

FUNCTION COUNT (N$)
C=0
FOR I = 1 TO LEN (N$)
B$ = MID$ (N$,I,1)
C$= UCASE $ (B$)
IF C$="A" AND C$="E" AND C$="I" AND C$="O" AND C$="U" THEN C=C+1
NEXT I
COUNT = C
END FUNCTION

#5 AREA OF 4 WALLS

DECLARE SU AREA (L,B,H)
CLS
INPUT "ENTER LENGTH";L
INPUT "ENTER BREADTH";B
INPUT "ENTER HEIGHT"H
CALL AREA (L,B,H)
END

SUB AREA (L,B,H)
A = 2 * H * ( L + B )
PRINT "AREA OF 4 WALLS";A
END SUB

#4 COUNT TOTAL NO OF VOWELS IN SENTENCE

DECLARE FUNCTION COUNT (N$)
CLS
INPUT "ENTER ANY NUMBER ";N$
PRINT "TOTAL NO OF WORDS ";COUNT(N$)
END

FUNCTION COUNT (N$)
C=0
WHILE N<>0
R = N MOD 10
C = C + 1
N = N  \ 10
WEND
COUNT = C
END FUNCTION

#3 AREA OF CIRCLE

DECLARE SUB AREA (R)
CLS
INPUT "ENTER RADIUS";R
CALL AREA (R)
END

SUB AREA (R)
R = 22 / 7 * R ^ 2
PRINT "AREA OF CIRCLE";A
END SUB