Function Procedure
Syntax
DECLARE FUNCTION ANY_NAME(PARAMETERS)
CLS
INPUT STATEMENTS [ASK ALL PARAMETERS]
PRINT ANY_NAME(PARAMETERSLIST)
END
FUNCTION ANY_NAME(PARAMETERS)
ANY_NAME= FORMULA |
PROCESS | CALCULATIONS
END FUNCTION
1. WRITE A PROGRAM USING
FUNCTION PROCEDURE TO FIND THE SUM OF TWO NUMBERS.
DECLARE FUNCTION
SUM(A,B)
INPUT " ENTER ANY TWO
NUMBERS : ", A,B
PRINT " SUM OF TWO
NUMBERS IS : " ; SUM(A,B)
END
FUNCTION SUM(A,B)
SUM = A + B
END FUNCTION
2.WRITE A PROGRAM USING
FUNCTION PROCEDURE TO FIND THE AREA OF TRIANGLE. [SEE
2072-R]
DECLARE FUNCTION
AREA(B,H)
INPUT "ENTER BASE AND
HEIGHT";B,H
PRINT "TOTAL SURFACE
AREA IS" ; AREA(B,H)
END
FUNCTION AREA(B,H)
AREA = 1 / 2 * (B * H)
END FUNCTION
3. WRITE A PROGRAM
USING FUNCTION PROCEDURE TO CALCULATE AND RETURN TOTAL SURFACE AREA OF A
BOX USING FUNCTION -- END FUNCTION. [HINT: A= 2(1B+1H+BH)] [SEE 075 PROVINCE-2]
DECLARE FUNCTION
TSA(L,B,H)
INPUT "ENTER LENGTH,
BREATH AND HEIGHT";L,B,H
PRINT "TOTAL SURFACE
AREA IS" ; TSA(L,B,H)
END
FUNCTION TSA(L,B,H)
TSA = 2 * (L * B + L * H + B
* H)
END FUNCTION
4.WRITE A PROGRAM USING
FUNCTION PROCEDURETO FIND SIMPLE INTEREST.
DECLARE FUNCTION
SI(P,T,R)
INPUT " ENTER PRINCIPAL,
TIME AND RATE : ", P,T,R
PRINT " SIMPLE INTEREST
IS : " ; SI(P,T,R)
END
FUNCTION SI(P,T,R)
SI=(P*T*R)/100
END FUNCTION
5.
WRITE A PROGRAM USING FUNCTION PROCEDURE TO
CALCULATE THE AVERAGE OF THREE NUMBERS USING FUNCTION PROCEDURE. [SEE-2075 R]
DECLARE FUNCTION AVG(A,B,C)
INPUT " ENTER
THREE NUMBERS: ",A,B,C
PRINT " AVERAGE OF THREE
NUMBERS IS "; AVG(A,B,C)
END
FUNCTION AVG(A,B,C)
AVG = (A + B + C) /
3
END FUNCTION
6. WRITE A PROGRAM USING FUNCTION PROCEDURE TO
FIND ODD OR EVEN.[SEE 2075 SUPP.]
DECLARE FUNCTION TEST(N)
INPUT " ENTER ANY
NUMBER: ",N
R = TEST(N)
IF R=0 THEN
PRINT " EVEN NUMBER
"
ELSE
PRINT " ODD NUMBER
"
END IF
END
FUNCTION TEST(N)
TEST = N MOD 2
END FUNCTION
7. WRITE A PROGRAM USING
FUNCTION PROCEDURE TO FIND SUPPLIED
NUMBER IS POSITIVE OR NEGATIVE.
DECLARE
FUNCTION TEST(N)
INPUT "ENTER ANY NUMBER ",N
R = TEST(N)
IF R>0 THEN
PRINT "POSITIVE NUMBER"
ELSE
PRINT " NEGATIVE NUMBER"
END IF
END
FUNCTION TEST(N)
TEST = N
END FUNCTION
8. WRITE A PROGRAM USING
FUNCTION PROCEDURE TO CHECK WHETHER A NUMBER IS PALINDROMIC OR NOT
USING FUNCTION ... END FUNTION.
DECLARE FUNCTION PAL(N)
INPUT "ENTER A NUMBER"; N
O= N
P = PAL(N)
IF O = P THEN
PRINT O; " IS A PALINDROME NUMBER"
ELSE
PRINT O; " IS NOT A PALINDROME NUMBER"
END IF
END
FUNCTION PAL(N)
S = 0
WHILE N <> 0
R = N MOD 10
S = S * 10 + R
N = N \ 10
WEND
PAL = S
END FUNCTION
9. WRITE A PROGRAM USING FUNCTION PROCEDURE TO TEST WHETHER THE SUPPLIED NUMBER IS PRIME OR
COMPOSITE USING FUNCTION PROCEDURE.
DECLARE
FUNCTION PRIME (N)
CLS
INPUT "ENTER A NUMBER"; N
P=PRIME(N)
IF P = 2 THEN
PRINT N; "IS
PRIME"
ELSE
PRINT N; "IS
COMPOSITE"
END IF
END
FUNCTION PRIME (N)
C=0
FOR I = 1 TO N
IF N MOD I = 0 THEN
C = C+1
END IF
NEXT I
PRIME = C
END FUNCTION
10. WRITE A PROGRAM USING
FUNCTION PROCEDURE TO INPUT A WORD IN THE MAIN MODULE
AND COUNT THE TOTAL NUMBER OF VOWEL CHARACTERS PRESENT IN THE WORD USING
FUNCTION...END FUNCTION. [SEE 2073-R]
DECLARE FUNCTION VCOUNT(W$)
INPUT "ENTER WORD: "; W$
A = VCOUNT(W$)
PRINT "TOTAL VOWELS: "; A
END
FUNCTION VCOUNT(W$)
C = 0
W$ = UCASE$(W$)
FOR I = 1 TO LEN(W$)
C$ = MID$(W$, I, 1)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN
C = C + 1
END IF
NEXT I
VCOUNT = C
END FUNCTION
11. WRITE A PROGRAM USING FUNCTION PROCEDURE TO
COUNT THE NUMBER OF WORDS IN A SENTENCE.[SEE 2074 R]
DECLARE FUNCTION WCOUNT(S$)
INPUT "ENTER
SENTENCE : " ; S$
A = WCOUNT(S$)
PRINT "TOTAL WORDS IN
GIVEN SENTENCE :";A
END
FUNCTION WCOUNT(S$)
C = 1
FOR I = 1 TO LEN(S$)
IF MID$(S$,I,1)= "
" THEN
C = C + 1
END IF
NEXT I
WCOUNT = C
END FUNCTION
12. WRITE A PROGRAM USING FUNCTION PROCEDURE TO
GET A WORD FROM THE USER AND THEN PRINT THE WORD IN REVERSE ORDER. [SEE 2074
SUPP.]
DECLARE FUNCTION REV$(W$)
INPUT "ENTER
STRING : "; W$
A$ = REV$(W$)
PRINT "REVERSE OF
GIVEN STRING IS ";A$
END
FUNCTION REV$(W$)
FOR I = LEN(W$) TO 1
STEP-1
C$ = MID$(W$, I, 1)
B$ = B$ + C$
NEXT I
REV$ = B$
END FUNCTION