QBASIC PROGRAM TO COUNT TOTAL NO. OF WORDS IN SENTENCE

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

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

QBASIC PROGRAM TO FIND AREA OF CIRCLE USING SUB PROCEDURE.

DECLARE SUB AREA (R)

CLS

INPUT “ENTER RADIUS”; R

CALL AREA (R)

END

SUB AREA (R)

A = 22 / 7 * R ^ 2

PRINT “AREA OF CIRCLE = “;A

END SUB

QBASIC PROGRAM TO PRINT TOTAL NUMBER OF VOWELS IN A GIVEN WORD UISING SUB PROCEDURE.

DECLARE SUB COUNT (N$)

CLS

INPUT “ENTER ANY STRING”; N$

CALL COUNT (N$)

END

SUB COUNT (N$)

C = 0

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

PRINT “The total no. of vowels is “;C

END SUB

QBASIC PROGRAM TO FIND AVERAGE OF THREE NUMBERS USING FUNCTION.

DECLARE FUNCTION AVERAGE (A, B, C)

CLS

INPUT “ENTER ANY THREE NUMBERS”; A, B, C

PRINT “AVERAGE OF 3 NUMBERS =”; AVERAGE (A, B, C)

END

FUNCTION AVERAGE (A, B, C)

AV = (A + B + C) / 3

AVERAGE = AV

END FUNCTION