Count total no. of vowels in a word
DECLARE FUNCTION COUNT(N$)
CLS
INPUT"ENTER ANY WORD";N$
PRINT"TATAL NO. OF VOWELS=";COUNT(N$)
END
FUNCTION COUNT(N$)
FOR I= 1 TO LEN (N$)
B$= MID$(A$,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
COUNT=C
END FUNCTION
CLS
INPUT"ENTER ANY WORD";N$
PRINT"TATAL NO. OF VOWELS=";COUNT(N$)
END
FUNCTION COUNT(N$)
FOR I= 1 TO LEN (N$)
B$= MID$(A$,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
COUNT=C
END FUNCTION
Comments
Post a Comment