QBASIC PROGRAM TO FIND VOLUME OF CYLINDER. FUNCTION

DECLARE SUB VOL(R,H)
CLS
INPUT "ENTER RADIUS";R
INPUT "ENTER HEIGHT";H
PRINT "VOLUME OF CYLINDER="VOL(R,H)
END

FUNCTION VOL(R,H)
VOL=22/7*R^2*H
END FUNCTION

QBASIC PROGRAM TO FIND REVERSE OF THE STRING .SUB

DECLARE SUB REV(N$)
CLS
INPUT "ENTER A WORD ";N$

CALL REV (N$)

END

SUB REV(N$)

FOR I = LEN(N$) TO 1 STEP -1

C$=C$+ MID$(N$,I,1)

NEXT I

PRINT "REVERSE STRING";C$

END SUB

QBASIC PROGRAM TO FIND AREA OF TRIANGLE. FUNCTION

DECLARE FUNCTION AREA(B,H)
CLS
INPUT "ENTER BASE";B
INPUT "ENTER HEIGHT";H
PRINT "AREA OF TRIANGLE=";AREA(B,H)
END

FUNCTION AREA(B,H)
AREA= 1/2*B*H
END FUNCTION

QBasic program to count total no of vowels in given word. FUNCTION

DECLARE FUNCTION COUNT(N$)

CLS

INPUT "ENTER ANY STRING";N$

PRINT"TOTAL NO OF VOWEL IS";COUNT(N$)

END

FUNCTION 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 
COUNT=C

END SUB

QBASIC PROGRAM TO FIND AREA OF 4 WALLS. SUB


DECLARE FUNCTION AREA(L,B,H)
CLS 
INPUT "ENTER LENGTH";L
INPUT "ENETR BREADTH";B
INPUT "ENTER HEIGHT";H
PRINT"AREA OF 4 WALLS="AREA(L,B,H)
END

FUNCTION AREA(L,B,H)
AREA=2*H*(L+B)
END FUNCTION

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