QBASIC CODE TO COUNT NO OF WORDS IN A SENTENCE

CLS
INPUT “Enter a sentence”; A$
C = 1
FOR I = 1 to Len (A$)
IF MID$ (A$, I, 1) = “” THEN
C=C+1
END IF
NEXT I
PRINT “Number of words in a sentence = "; C
END

USING SUB PROCEDURE

DECLARE SUB WORDS(A$)
CLS
INPUT"ENTER A SENTENCE : ";A$
CALL WORDS(A$)
END

SUB WORDS(A$)
C = 1
FOR I = 1 to Len (A$)
IF MID$ (A$, I, 1) = “” THEN
C=C+1
END IF
NEXT I
PRINT “Number of words in a sentence = "; C
END SUB

USING FUNCTION

DECLARE FUNCTION WORDS(A$)
CLS
INPUT"ENTER A SENTENCE : ";A$
PRINT “Number of words in a sentence = "; WORDS(A$)
END

FUNCTION WORDS(A$)
C = 1
FOR I = 1 to Len (A$)
IF MID$ (A$, I, 1) = “” THEN
C=C+1
END IF
NEXT I
WORDS = C
END FUNCTION