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

DECLARE FUNCTION COUNT(N$)

CLS

INPUT "ENTER ANY STRING";N$

PRINT"TOTAL NO OF CONSONANT 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 PRINT FIRST 10 ODD NUMBERS. SUB

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES()
A=1
FOR I=1 TO 10
PRINT A
A=A+2
NEXT I
END SUB

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