#16 TO DISPLAY GREATEST AMONG 3 NUMBERS

DECLARE SUB GREAT (A,B,C)

CLS

INPUT"ENTER 3 NO. ";A,B,C

CALL GREAT(A,B,C)

END

SUB GREAT (A,B,C)

IF A > B AND A>C THEN

PRINT"THE GREATEST NO. IS";A

ELSE IF B>A AND B>A THEN

PRINT"THE GREATEST NO. I S";B

ELSE

PRINT"THE GREATEST NO IS";C

END IF 

END SUB

#15 WAP TO DISPLAY1,1,2,3,5,8.....UPTO 10thTERM

DECLARE SUB SERIES()
CLS
CALL SERIES
END

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

#14 PRINT SIMPLE INTEREST

DECLARE FUNCTION INTEREST (P,T,R)
CLS
INPUT " ENTER PRINCIPAL";P
INPUT " ENTER INTEREST";I
INPUT "ENTER TIME";T
PRINT "SIMPLE INTEREST";INTEREST(P,T,R)
END

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

#13 CONVERT TEMPERATURE IN CELSIUS

DECLARE FUNCTION CONVERT (N)
CLS
INPUT "TEMPERATURE IN CELSIUS";N
PRINT "CELSIUS INTO FARHENHEIT";CONVERT(N)
END

FUNCTION CONVERT (N)
F = 9*C/5+32
CONVERT = F
END FUNCTION

#12 SUM OF DIGITS

DECLARE SUB SUM (N)
CLS
INPUT"ENTER ANY NUMBER";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";S
END FUNCTION

#11 INPUT STRING AND COUNT TOTAL NUMBER OF CONSONANT

DECLARE FUNCTION COUNT (N$)
CLS
INPUT "ENTER ANY WORD ";N$
PRINT "TOTAL NO OF CONSONENT =";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" AND C$ < >"E" AND C$ < >"I" AND C$ < >"O" AND C$ < >"O" C$ < >"U" THEN C =  C + 1
NEXT I
PRINT "TOTAL NO OF CONSONENT";C
END SUB

#10 PRINT FIRST TEN ODD NUMBERS

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