QBasic program to count total no of word in a sentence. FUNCTION

DECLARE FUNCTION COUNT(S$)

CLS 

INPUT"ENTER ANY STRING"S$

PRINT"TOTAL NO OF WORD =";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 count total no of vowels in given word. SUB

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"TOTAL NO OF VOWEL IS";C

END SUB

QBasic program to find area of circle. SUB

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 find average of 3 number. 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)

AVERAGE= (A + B + C) / 3

END FUNCTION