Print only vowel from a given word using sub


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$)
IF C$="A" OR C$="E"ORC$="I"ORC$="O"ORC$="U" THEN V$=V$+B$
NEXT I
PRINT"VOWEL";V$
END SUB

Comments

Post a Comment

Popular posts from this blog

                      My Journey with JM 9 years ago when I came to Jagat Mandir school, I was very scared and crying for not to get in this school.  I was new to this school, the classes,  teachers and classmates. As slowly time passed, I became close to my classmates and teachers. My journey of creating memories was started since grade 1. Many of my friends left school in between but they are still connected with us in social media. This school has not taught us only abou book study but also gave some extra knowledge and ideas which are lifelong useful for us. Now I am in grade 10 and many of the activities we performed in this school during childhood are very memorable for us. One of the energetic teacher of this school Mr. Deepak Shrestha taught us about correct meaning of friendship and togetherness. I am very grateful to my parents that they gave me chance to study in this school. As, we are together since childhood but after 10 every single student forget every single pers
Read more