Q BASIC PROGRAM TO PRINT ONLY VOWELS FROM A GIVEN WORD. SUB

DECLARE  SUB DISP(N$)
CLS
INPUT "ENTER ANY STRING";N$
CALL DISP(N$)
END

SUB DISP(N$)
FOR I = 1 TO LEN(N$)
B$=MID$(N$,I,1)
C$=UCASE$(N$)
IF C$="A"OR C$="E" OR C$="I" OR C$="O" OR C$="U" THEN
PRINT B$
END IF
NEXT I
END SUB

Q BASIC PROGRAM TO FIND VOLUME OF BOX. FUNCTION

DECLARE FUNCTION VOL(L,B,H)
CLS
INPUT "ENTER LENGTH";L
INPUT "ENTER BREADTH";B
INPUT "ENTER HEIGHT";H
PRINT "VOLUME OF BOX=";VOL(L,B,H)
END

FUNCTION VOL(L,B,H)
VOL=L*B*H
END FUNCTION

Q BASIC PROGRAM TO CHECK WHETHER THE GIVEN NUMBER IS DIVISIBLE BY 13 OR NOT. SUB

DECLARE SUB CHECK(N)
CLS
INPUT "ENTER ANY NUMBER";N
CALL CHECK(N)
END

SUB CHECK(N)
IF N MOD 13 = 0 THEN
PRINT "NUMBER IS DIVISIBLE BY 13"
ELSE
PRINT "NUMBER IS NOT DIVISIBLE BY 13"
END IF
END SUB

Q BASIC PROGRAM TO FIND CIRCUMFERENCE OF CIRCLE. SUB

DECLARE SUB CIR(R)
CLS
INPUT "ENTER RADIUS";R
CALL CIR(R)
END

SUB CIR(R)
C=2*22/7*R
PRINT "CIRCUMFERENCE OF CIRCLE";C
END SUB

Q BASIC PROGRAM TO FIND AREA OF 4 WALLS. FUNCTION

DECLARE FUNCTION AREA(L,B,H)
CLS
INPUT "ENTER LENGTH";L
INPUT "ENTER 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

Q BASIC PROGRAM TO FIND AREA OF BOX. FUNCTION

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

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

Q BASIC PROGRAM TO FIND GREATEST AMONG THREE NUMBERS. SUB

DECLARE SUB GREAT(A,B,C)
CLS
INPUT "ENTER ANY 3 NUMBERS";A,B,C
CALL GREAT (A,B,C)
END

SUB GREAT(A,B,C)
IF A>B AND A>C THEN
PRINT "GREATEST NUMBER IS";A
ELSEIF B>A AND B>C THEN
PRINT "GREATEST NUMBER IS";B
ELSE
PRINT "GREATEST NUMBER IS";C
END IF
END SUB