QBASIC PROGRAM TO PRINT ONLY VOWELS FROM A WORD(SUB)
DECLARE SUB DISP(S$)
CLS
INPUT "ENTER A WORD";S$
CALL DISP(S$)
END
SUB DISP(S$)
FOR I =1 TO LEN(S$)
B$= MID (S$,I,1)
C$= UCASE$(B$)
IF C$="A" OR C$="E" OR C$="I" OR C$="O" OR C$="U" THEN
PRINT B$
END IF
NEXT I
END SUB
CLS
INPUT "ENTER A WORD";S$
CALL DISP(S$)
END
SUB DISP(S$)
FOR I =1 TO LEN(S$)
B$= MID (S$,I,1)
C$= UCASE$(B$)
IF C$="A" OR C$="E" OR C$="I" OR C$="O" OR C$="U" THEN
PRINT B$
END IF
NEXT I
END SUB
Casino games - DrmCD
ReplyDeleteCasino games - 전라북도 출장샵 Get 남양주 출장마사지 ready to play the best 안성 출장안마 in online slots, table games, and 남원 출장안마 more at DrmCD. We've got a variety of games and 문경 출장샵 special bonuses that keep you