DECLARE FUNCTION ERASE(A$)
CLS
INPUT " ENTER ANY STRING";A$
PRINT " STRING WITHOUT VOWELS ARE"; ERASE(A$)
END
FUNCTION ERASE(A$)
B$ = UCASE$(A$)
FOR I = 1 TO LEN(B$)
C$ = MID$(B$, I, 1)
IF C$ < > "A" AND C$ < > "E" AND C$ < > "I" AND C$ < > "O" AND C$ < > "U" THEN D$ = D$ + C$
END IF
NEXT I
ERASE = D$
END FUNCTION
Subscribe to:
Post Comments (Atom)
My Journey with JM
MY JOURNEY WITH JAGAT MANDIR It has been almost 10 years since I have entered this school. It seems like just yesterday but now I...

-
My experience on visit to sericulture development centre We all the students of grade 10 of Jagat Mandir school were taken to educati...
-
MY JOURNEY WITH JAGAT MANDIR It has been almost 10 years since I have entered this school. It seems like just yesterday but now I...
-
DECLARE SUB CHECK(N) CLS INPUT " ENTER THE NUMBER";N CALL CHECK(N) END SUB CHECK(N) IF N > 0 THEN PRINT "THE GIVEN...
No comments:
Post a Comment