DECLARE FUNCTION COUNT ( N$ )
CLS
INPUT "Enter any word"; N$
PRINT "Total no. of constant = "; COUNT ( N$ )
END
FUNCTION COUNT ( N$ )
C = 0
FOR I = 1 TO LEN ( N$ )
B$ = MID $ ( N$, I, 1 )
C$ = UCASE $ ( B$ )
IF C$ <> "I" AND C$ <> "O" AND C$ "U" THEN C = C + 1
NEXT I
COUNT = C
END FUNCTION
Subscribe to:
Post Comments (Atom)
-
My father My father name is Prem kumar Sunuwar.He is 39 years old.He is a mansion.He is my super hero of my life. He always help and su...
-
Tour To Dhading Firstly, When I heard that we were going to Dhading for 1 night and 2 days i.e. on saturday and sunday( 16th an...
-
Gai Jatra Gaijatra is the festival of cows.Gai is known as cow and jatra is known as festival in Nepal. This festival is basically cele...
No comments:
Post a Comment