Print simple interest.(FUNCTION)

DECLARE FUNCTION SI(P,T,R)
CLS
INPUT"ENTER PRINCIPLE":P
INPUT"ENTER TIME";T
INPUT"ENTER RATE":R
PRINT"SIMPLE INTEREST= ";SI(P,T,R)
END

FUNCTION SI(P,T,R)
SI=(P*T*R)/100
END FUNCTION

Convert temperature in celsius in farenheit.(FUNCTION)

DECLARE FUNCTION CONVERT (F)

CLS

INPUT “ENTER TEMPERATURE IN FAHRENHEIT”; F

PRINT “TEMPERATURE IN CELSIUS=”; CONVERT (F)

END

FUNCTION  CONVERT (F)

C = (F – 32) * (5 / 9)

CONVERT = C

END FUNCTION

Sum of digits.(SUB)

DECLARE SUB SUM(N)
CLS
INPUT"ENTER ANY NO.";N
CALL SUM(N)
END

SUB SUM(N)
S=0
WHILE N<>0
R = N MOD 10
S = S+R
N = N\10
WEND
PRINT"SUM OF DIGITS IS ";S
END SUB

Input string and count total no. of consonants.(FUNCTION)

DECLARE FUNCTION COUNT(N$)
CLS
INPUT"ENTER ANY STRING";N$
PRINT"TOTAL NO. OF CONSONANTS";COUNT(N$)
END

FUNCTION COUNT(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 C= C+1
NEXT I
COUNT = C
END FUNCTION

Print first ten odd numbers.(SUB)

DECLARE SUB SERIES()
CLS
CALL SERIES
END

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

Volume of cylinder.(FUNCTION)

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

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

Area of triangle.(FUNCTION)

DECLARE FUNCTION AREA(B,H)

CLS

INPUT"ENTER BREADTH";B

INPUT"ENTER HEIGHT";H

PRINT"AREA OF TRIANGLE";AREA(B,H)

END

FUNCTION AREA(B,H)

AREA=1/2*B*H

END FUNCTION