#23 display 9,7,5,4.....1

DECLARE SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES()
FOR I = 9 TO 1 STEP-2
PRINT I
NEXT I
END SUB

#22 FIND THE DISTANCE TRAVELLED BY A BODY

DECLARE FUNCTION DIS(U,T,A)
CLS
INPUT"ENTER VELOCITY";U
INPUT"ENTER TIME";T
INPUT"ENTER ACCELERATION";A
PRINT"DISTANCE TRAVELLED BY BODY IS ";DIS(U,T,A)
END

FUNCTION DIS(U,T,A)
DIS=U*T+1/2*A*T^2
END FUNCTION

#21 PRINT ONLY VOWELS FROM GIVEN WORDS

DECLARE SUB DIS(N$)
CLS
INPUT"ENTER ANY WORD";N$
CALL DIS(N$)
END

SUB DIS(N$)
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
PRINT C$
NEXT I
END SUB

#20 VOLUME OF BOX

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

#19 CHECK WETHER THE GIVEN NO IS DIVISIBLE BY 13 OR NOT

DECLARE SUB CHECK(N)

CLS

INPUT"ENTER ANY NO.";N

CALL CHECK(N)

END

SUB CHECK(N)

IF N MOD 13 = 0 THEN

PRINT"THE NO. IS COMPLETELY DIVISIBLE BY 13"

ELSE

PRINT"THE NO. IS NOT COMPLETELY DIVISIBLE BY 13'

END IF 

END SUB

#18 TO FIND CIRCUMFERENCE OF CIRCLE

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 IS ";C
END SUB

#17 FIND AREA OF BOX

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

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