Print total no of vowels in a given word(sub)
DELCARE SUB COUNT(N$)
CLS
INPUT "ENTER ANY STRING";N$
CALL COUNT$
END
SUB COUNT$
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
PRINT "TOTAL NO OF VOWELS";C
END FUNCTION
CLS
INPUT "ENTER ANY STRING";N$
CALL COUNT$
END
SUB COUNT$
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
PRINT "TOTAL NO OF VOWELS";C
END FUNCTION
Comments
Post a Comment