count total no of vowels in word(funciton)
DECLARE FUNCTION COUNT(N$)
CLS
INPUT "ENTER ANY STRING";N$
PRINT "TOTAL NO OF VOWELS";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
COUNT=C
END FUNCTION
CLS
INPUT "ENTER ANY STRING";N$
PRINT "TOTAL NO OF VOWELS";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
COUNT=C
END FUNCTION
Comments
Post a Comment