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) A=2*(L*B+B*H+L*H) AREA = A END FUNCTION
DECLARE FUNCTION COUNT (S$) CLS INPUT "ENTER ANY STRING"; S$ PRINT "TOTAL NO. OF WORDS= "; COUNT(S$) END FUNCTION COUNT (S$) C = 1 FOR I = 1 TO LEN(S$) B$ = MID$(S$, I, 1) IF B$ = " " THEN C=C+ 1 END IF NEXT I COUNT = C END FUNCTION
DECLARE FUNCTION PERFECT (S) CLS INPUT "ENTER ANY NUMBER"; N S = SQR(N) P = PERFECT (S) IF P = S THEN PRINT "PERFECT SQUARE" ELSE PRINT "NOT PERFECT SQUARE" END IF END FUNCTION PERFECT (S) PERFECT = INT (S) END FUNCTION
DECLARE FUNCTION DISP$(S$) CLS INPUT "ENTER ANY STRING";S$ PRINT "WORD AFTER ERASING VOWELS";DISP$(S$) END FUNCTION DISP$(S$) FOR I =1 TO LEN(S$) B$=MID$(S$,I,1) C$=UCASE$(B$) IF C$="A" AND C$="E" AND C$="I" AND C$="O" AND C$="U" THEN D$=D$+B$ END IF NEXT I DISP$=D$ END FUNCTION
DECLARE SUB CHECK(N) CLS INPUT "ENTER ANY NUMBER";N CALL CHECK(N) END SUB CHECK(N) IF N MOD 13 = 0 THEN PRINT "THE GIVEN NO IS DIVISIBLE BY 13" ELSE PRINT "THE GIVEN NO IS NOT DIVISIBLE BY 13" END IF END SUB