1) Using function procedure write a program to check whether the given number is Armstrong or not.
DECLARE FUNCTION ARM (N)
CLS
INPUT "ENTER ANY NUMBER"; N
A=N
AR = ARM (N)
IF A = AR THEN
PRINT A; "IS ARMSTRONG NUMBER"
ELSE
PRINT A; "IS NOT ARMSTRONG NUMBER"
END IF
END
FUNCTION ARM (N)
S = 0
WHILE N < > 0
R = N MOD 10
S = S + R ^ 3
N = N \ 10
WEND
ARM = S
END FUNCTION
2)Using sub procedure write a program to check whether the given number is palindrome or not.
DECLARE SUB PALIN (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL PALIN (N)
END
SUB PALIN (N)
A = N
S = 0
WHILE N < > 0
R = N MOD 10
S = S * 10 + R
N = N \ 10
WEND
IF A = S THEN
PRINT A; "IS PALINDROME"
ELSE
PRINT A; "IS NOT PALINDROME"
END IF
END SUB
3)Using sub procedure write a program to display the factors of a given number.
DECLARE SUB FACT (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL FACT (N)
END
SUB FACT (N)
PRINT "FACTORS OF"; N; "=";
FOR I = 1 TO N
IF N MOD I = 0 THEN PRINT I;
NEXT I
END SUB
4. Using function procedure write a program to display the factorial of a given number.
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 FUNCTION
5)Using sub procedure write a program to reverse the given digit.
DECLARE SUB REV (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL REV (N)
END
SUB REV (N)
S = 0
WHILE N < > 0
R = N MOD 10
S = S * 10 + R
N = N \ 10
WEND
PRINT " REVERSED DIGITS="; S
END SUB
6)Using function procedure write a program to check whether the given number is prime or composite.
DECLARE FUNCTION PRIME(N)
CLS
INPUT "ENTER ANY NUMBER"; N
P = PRIME (N)
IF P = 2 THEN
PRINT N; "IS PRIME NUMBER"
ELSE
PRINT N; "IS COMPOSITE NUMBER"
END IF
END
FUNCTION PRIME (N)
C = 0
FOR I = 1 TO N
IF N MOD I = 0 THEN C = C + 1
NEXT I
PRIME = C
END FUNCTION
7)Using sub procedure write a program to find the sum of given 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 SUB
8)Using function procedure write a program to count total number of odd digits in a given digit.
DECLARE FUNCTION COUNT (N)
CLS
INPUT "ENTER ANY NUMBER"; N
PRINT "TOTAL NUMBER OF ODD DIGITS"; COUNT (N)
END
FUNCTION SUM (N)
C = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 1 THEN C = C + 1
N = N \ 10
WEND
COUNT = C
END FUNCTION
9)Using sub procedure write a program to display only even numbers from the input digit.
DECLARE SUB EVEN (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL EVEN (N)
END
SUB EVEN (N)
PRINT "EVEN DIGITS ARE ";
WHILE N <> 0
R = N MOD 10
IF R MOD 2 = 0 THEN PRINT R;
N = N \ 10
WEND
END SUB
10)Using function procedure write a program to find the H.C.F and L.C.M of a given number.
DECLARE FUNCTION HCFLCM(A, B)
CLS
INPUT "ENTER ANY TWO NUMBERS"; A, B
PRINT “L.C.M=”; HCFLCM (A, B)
END
FUNCTION HCFLCM (A, B)
C = A
D = B
WHILE A MOD B < > 0
T = A MOD B
A = B
B = T
WEND
L = C * D / B
PRINT "H.C.F="; B
HCFLCM = L
END FUNCTION
