Count total no of vowel in a word(function)


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

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

Comments

Popular posts from this blog

experience of SEE exam cancelled and covid-19

My journey in jagat mandir