Display reverse of input string.(SUB)

DECLARE SUB REV$(N$)
CLS
INPUT"ENTER STRING";N$
CALL REV$($)
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 STRING";C$
END SUB

Count total no.of vowels in a word.(FUNCTION)

DECLARE FUNCTION COUNT(N$)

CLS

INPUT"ENTER ANY WORD";N$

PRINT"TOTAL NO. OF VOWELS IS";COUNT(N$)

END

FUNCTION COUNT(N$)

FOR I = 1 TO LEN(N$)

B$ = MID$(N$,I,1)

C$ = UCASE$(B$)

IF C$="A" OR C$="E" OR C$="I" OR C$="O" OR C$="U" THEN C=C+1

NEXT I

PRINT"TOTAL NO. OF VOWELS =";C

END SUB

Area of 4 walls.(SUB)

DECLARE SUB 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

Count total no.of words in a sentence.(FUNCTION)

DECLARE FUNCTION COUNT(S$)
CLS
INPUT"ENTER ANY STRING";S$
PRINT "TOTAL NO. OF WORDS= "; COUNT(S$)
END  

FUNCTION COUNT (S$)
WC = 1
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
IF B$ = " " THEN
WC = WC + 1
END IF
NEXT I
COUNT = WC
END FUNCTION

Area of circle.(SUB)

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

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

To find Average of three numbers.(FUNCTION)

DECLARE FUNCTION AVG(A,B,C)
CLS
INPUT"ENTER ANY NUMBERS";A
INPUT"ENTER ANY NUMBER";B
INPUT"ENTER ANY NUMBER";C
PRINT"AVERAGE OF THREE NUMBERS=";AVG(A,B,C)
END

FUNCTION AVG(A,B,C)
AV=(A+B+C)/3
AVG=AV
END FUNCTION

Print total no of vowels in a given word. (Sub)

DECLARE SUB COUNT (N$)

CLS

INPUT “ENTER ANY WORD”; N$

CALL COUNT (N$)

END

SUB COUNT (N$)

C = 0

FOR I = 1 TO LEN (N$)

B$ = MID$ (N$, I, 1)

C$ = UCASE$ (B$)

IF C$ = “A” OR C$ = “E” OR C$ = “I”
OR C$ = “O” OR C$ = “U” THEN C = C + 1

NEXT I

PRINT “THE TOTAL NO. OF VOWELS IS “;C

END SUB