To Count Number of Vowels (SUB Procedure). (Qbasic Code)

To enter a string and count total number of vowels (using SUB Procedure). (Qbasic Code)
  • DECLARE SUB vowel(w$)
    CLS
    INPUT "Enter any word"; w$
    CALL vowel(w$)
    END

    SUB vowel (w$)
    w$ = LCASE$(w$)
    FOR i = 1 TO LEN(w$)
        c$ = MID$(w$, i, 1)
        IF c$ = "a" OR c$ = "e" OR c$ = "i" OR c$ = "o" OR c$ = "u" THEN
            n = n + 1
        END IF
    NEXT i
    PRINT "The number of vowels ="; n
    END SUB

Share :

Facebook Twitter Google+
Back To Top

facebook main

counter

Powered by Blogger.