life is beautiful

# Input string and count total no of consonant. (function) DECLARE FUNCTION COUNT(n$) CLS INPUT"Enter any number";n$ PRINT"total no of consonant =";COUNT(n$) END FUNCTION COUNT(n$) C=0 FOR I=1TO LEN(n$) B$=MID$(n$,I, 1) C$=UCASE$(B$) IF c$="a"AND c$="e" AND c$="i" AND c$="o" AND c$="u" THEN C=C+1 NEXT I COUNT=C END FUNCTION

# Display greatest among three no. (sub) DECLARE SUB GREAT(a,b,c) CLS INPUT "Enter first number";a INPUT  "Enter second number";b INPUT "Enter third number";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 ELSEIF b> a AND  b>c THEN PRINT" the greatest no is ";b ELSE PRINT"the greatest no is ";c END IF END FUNCTION

# Factorial. ( function) DECLARE FUNCTION FACT(n) CLS INPUT " Enter any number ";n PRINT " factorial =";FACT(n) END FUNCTION FACT(n) F=1 FOR I=1 TO n F=F*I NEXT I FACT=F END FU

# Print natural no from 1 to 5.(sub) DECLARE SUB SERIES ( ) CLS CALL SERIES END SUB SERIES( ) FOR I =1 to 5 PRINT I NEXT I END SUB

# Display 1, 1, 2, 3, 5, 8 . . . . . . up-to ten terms.( sub) DECLARE SUB SERIES( ) CLS  CALL SERIES END SUB SERIES( ) A=1 B=1 FOR I =1 To 5 PRINT A A=A+B B=A+B NEXT I  END S

# Convert temperature in Celsius in Farenheit. ( function) DECLARE FUNCTION FARENHEIT(c) CLS INPUT " Enter Celsius ";c PRINT " Temperature in Fahrenheit ";FARENHEIT(c ) END FUNCTION FARENHEIT ( C) F=9*c/5+32 FARENHEIT=F END FUNCTION

# Sum of digits.(sub) DECLARE SUB SUM(n ) CLS INPUT "Enter any number";n CALL SUB (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 SUB