7. DISPLAY REVERSE OF INPUT STRING

DECLARE SUB REV(N$)

CLS

INPUT “ENTERT NAME”;N$

CALL REV (N$)

END

SUB REV (N$)

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

B$=MID$(N$,I,1)

C$=C$+B$

NEXT I

PRINT  “REVERSE STRING IS “;C$

END SUB

6.COUNT TOTAL NO. OF VOWELS IN A WORD.

DECLARE  FUNCTION COUNT(N$)

PRINT “TOTAL NO. OF VOWELS=”;COUNT(N$)

END

FUNCTION COUNT(N$)

C=0

F OR 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

COUN T C

END FUNCTION

5.AREA OF 4 WALLS

DECLARE SUB AREA N(L,B,H)

CLS

INPUT “ENTER LERNGTH”;L

INPUT “ENTER BREADTH”;B

INPUT “ENTER HEIGHT”;H

CALL AREA (L,B,H)

END

SUB AREA(L,B,H)

A=2*H*(L+B)

PRINT “AREA OF FOUR WALLS=”;A

END SUB

4. 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

3.AREA OF CIRCLE

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

2.Print total number of vowels in word.

DECLARE SUB COUNT (N$)

CLS

INPUT “ENTER ANY WORD”;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 VOWELS”;C

END SUB

QBASIC PROGRAM

1. Average of three number

DECLARE  FUNCTION  AVERAGE (A,B,C)

CLS

INPUT “ENTER ANY NUMBER”;A,B,C

PRINT “AVERAGE OF THREE NUMBER=”;AVERAGE(A,B,C)

END

FUNCTION AVERAGE (A,B,C)

AVG=(A+B+C)/3

AVERAGE=AVG

END FUNCTION