COUNT TOTAL NO OF WORDS IN A SENTENCE(SUB)


DECLARE FUNCTION COUNT (S$)

CLS
INPUT "ENTER ANY STRING"; S$
PRINT "TOTAL NO. OF WORDS= "; COUNT(S$)
END

FUNCTION COUNT (S$)
C = 1
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
IF B$ = " " THEN
C=C+ 1
END IF
NEXT I
COUNT = C
END FUNCTION

Comments

Popular posts from this blog

Father's day

Journey to jm

My Father