DECLARE FUNCTION ERA(A$)
CLS
INPUT"ENTER ANY STRING";A$
PRINT"STRING WITHOUT VOWELS =";ERA(A$)
END
FUNCTION ERA(A$)
FOR I = 1 TO LEN (A$)
B$=MID$(A$,I,1)
C$=UCASE$(B$)
IF C$<>"A" AND C$<>'E" AND C$<>"I" AND C$<>"O" AND C$<>"U" THEN D$=D$+C$
END IF
NEXT I
ERA=D$
END FUNCTION
Subscribe to:
Post Comments (Atom)
-
Each and every person have got a superhero, and for me its my Dad. My father Love U Dad name is Mlangai Tamang. He is a Technician. H... -
Raksha Bandhan, one of the main Hindu festivals, is celebrated to strengthen the brother sister bond. On this day, the sisters tie a sacr...
No comments:
Post a Comment