Count total no. of words in a sentence
DECLARE FUNCTION COUNT(A$)
CLS
INPUT"ENTER A SENTENCE";A$
PRINT"TOTAL NO. OF WORDS=";COUNTA$
END
FUNCTION COUNT(A$)
C = 1
FOR I= 1 TO LEN (A$)
B$ =MID$(A$,I,1)
C$=UCASE$(B$)
IF C$=" " THEN C=C+1
NEXT I
COUNT=C
END FUNCTION
CLS
INPUT"ENTER A SENTENCE";A$
PRINT"TOTAL NO. OF WORDS=";COUNTA$
END
FUNCTION COUNT(A$)
C = 1
FOR I= 1 TO LEN (A$)
B$ =MID$(A$,I,1)
C$=UCASE$(B$)
IF C$=" " THEN C=C+1
NEXT I
COUNT=C
END FUNCTION
Comments
Post a Comment