DECLARE SUB DISP(N$)
CLS
INPUT"ENTER ANY WORD";N$
CALL DISP(N$)
END
SUB DISP(N$)
FOR I=1 TO LEN(N$)
B$=MID$(N$,I,1)
C$=UCASE(B$)
IFC$<>"A"ANDC$<>"E"ANDC$<>"I"ANDC$<>"O"AND C$<>"U"THEN U$=U+B$
NEXT IPRINT"VOWEL";V$
END SUB
CLS
INPUT"ENTER ANY WORD";N$
CALL DISP(N$)
END
SUB DISP(N$)
FOR I=1 TO LEN(N$)
B$=MID$(N$,I,1)
C$=UCASE(B$)
IFC$<>"A"ANDC$<>"E"ANDC$<>"I"ANDC$<>"O"AND C$<>"U"THEN U$=U+B$
NEXT IPRINT"VOWEL";V$
END SUB
DECLARE SUB DISP(N$)
ReplyDeleteCLS
INPUT"ENTER ANY WORD";N$
CALL DISP(N$)
END
SUB DISP(N$)
FOR I=1 TO LEN(N$)
B$=MID$(N$,I,1)
C$=UCASE$(B$)
IFC$<>"A"AND C$<>"E"AND C$<>"I"AND C$<>"O"AND C$<>"U"THEN C = C + 1
NEXT I
PRINT"Total No. of Vowels = ";C
END SUB