Wap to count total no. of consonant in given word
DECLARE FUNCTION COUNT(N$)
CLS
INPUT"ENTER ANY STRING";N$
PRINT"TOTAL NO. OF CONSONANTS";COUNT(N$)
END
FUNCTION COUNT(N$)
FOR I = 1 TO LEN(N$)
B$ = MID$(N$,I,1)
C$ = UCASE$(B$)
IF C$<>"A" OR C$<>"E" OR C$<>"I" OR C$<>"O" OR C$<>"U" THEN C= C+1
NEXT I
COUNT = C
END FUNCTION
CLS
INPUT"ENTER ANY STRING";N$
PRINT"TOTAL NO. OF CONSONANTS";COUNT(N$)
END
FUNCTION COUNT(N$)
FOR I = 1 TO LEN(N$)
B$ = MID$(N$,I,1)
C$ = UCASE$(B$)
IF C$<>"A" OR C$<>"E" OR C$<>"I" OR C$<>"O" OR C$<>"U" THEN C= C+1
NEXT I
COUNT = C
END FUNCTION
No comments:
Post a Comment