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
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
Post a Comment