QBASIC PROGRAM TO FIND TOTAL NO. OF VOWELS IN A WORD USING FUNCTION.

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

FUNCTION COUNT(N$)
C=O
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
COUNT=C
END FUNCTION

Comments

Popular posts from this blog

MY JOURNEY OF 11 YEARS WITH JM

Teej