Solution of FUNCTION Procedure1

1. Write a program to declare a user defined function to return sum of any digits of number by using FUNCTION...END FUNCTION.

DECLARE FUNCTION sum(N)
CLS
INPUT "Enter a number";N
PRINT "Sum of digits of a number is ";sum(N)
END

FUNCTION sum(N)
WHILE N<>0
R=N MOD 10
S=S+R
N=N\10
WEND
sum=S
END FUNCTION

2. Write a program to count total number of alphabet "A" occurred in a string, where string is passed as a parameter by using FUNCTION...END FUNCTION.

DECLARE FUNCTION countA(S$)
CLS
INPUT "Enter a string";S$
PRINT "Total number of A occurred in a string is ";countA(S$)
END

FUNCTION countA(S$)
FOR I=1 TO LEN(S$)
IF UCASE$(MID$(S$,I,1))="A" THEN
c=c+1
END IF
NEXT I
countA=c
END FUNCTION

3. Write a program to print Armstrong number between 1 to 2000 by using FUNCTION....END FUNCTION.

 DECLARE FUNCTION display( )
CLS
v=display
END

FUNCTION display
FOR I=1 TO 2000
S=0
N=I
WHILE N<>0
R=N MOD 10
S=S+R^3
N=N\10
WEND
IF S=I THEN
PRINT I,
END IF
NEXT I
END FUNCTION
4. Write a program that supplies array of 10 different numbers, find sum of odd numbers using FUNCTION...END FUNCTION.

DECLARE FUNCTION sum (N( ))
CLS
DIM N(10)
FOR i = 1 TO 10
INPUT "Enter a number"; N(i)
NEXT i
PRINT "Sum of odd number is "; sum(N( ))
END


FUNCTION sum (N( ))
FOR i = 1 TO 10
IF N(i) MOD 2 <> 0 THEN
s = s + N(i)
END IF
NEXT i
sum = s
END FUNCTION

5. Write a program to display following series:
2,1,3,4,7,11,18....up to the 10th term by using FUNCTION...END FUNCTION.

DECLARE FUNCTION series ()
CLS
v = series
END

FUNCTION series
a = 2
b = 1

FOR i = 1 TO 10
PRINT a,
c = a + b
a = b
b = c
NEXT i

END FUNCTION


6. Write a program to find the reverse string of a given string by using FUNCTION...END FUNCTION.

DECLARE FUNCTION reverse$ (S$)
CLS
INPUT "Enter a string "; S$
PRINT "The reverse string is "; reverse$(S$)

END

FUNCTION reverse$ (S$)
FOR I = LEN(S$) TO 1 STEP -1
R$ = R$ + MID$(S$, I, 1)
NEXT I
reverse$ = R$
END FUNCTION

7. Write a program to concatenate (link) three different strings input by a user as illustrated below in the hint given using a user defined function named strcon( ). [Hint: if the input string are "FIRST", "SECOND" and "THIRD" Then the output should be "FIRSTSECONDTHIRD"]

DECLARE FUNCTION strcon$ (F$, S$, T$)
CLS

INPUT "Enter First string"; F$
INPUT "Enter second string"; S$
INPUT "Enter third string"; T$
PRINT "The concatenated string is "; strcon$(F$, S$, T$)
END


FUNCTION strcon$ (F$, S$, T$)
strcon$ = F$ + S$ + T$
END FUNCTION

8. Write a program to print the following output using FUNCTION...END FUNCTION.

 N
NE
NEP
NEPA
NEPAL

DECLARE FUNCTION show ()
CLS
v = show

END



FUNCTION show
S$ = "NEPAL"
FOR i = 1 TO LEN(S$)
PRINT LEFT$(S$, i)
NEXT i
END FUNCTION





Comments

Post a Comment

Popular posts from this blog

input any string and reverse it, palindrome

221. WAP to input any string and reverse it. CLS INPUT "ENTER ANY STRING"; S$ FOR I = LEN(S$) TO 1 STEP -1 B$ = MID$(S$, I, 1) W$ = W$ + B$ NEXT I PRINT "REVERSED STRING IS "; W$ END USING SUB PROCEDURE DECLARE SUB REV (S$) CLS INPUT "ENTER ANY STRING"; S$ CALL REV(S$) END SUB REV (S$) FOR I = LEN(S$) TO 1 STEP -1 B$ = MID$(S$, I, 1) W$ = W$ + B$ NEXT I PRINT "REVERSED STRING IS "; W$ END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION REV$ (S$) CLS INPUT "ENTER ANY STRING"; S$ PRINT "REVERSED STRING IS "; REV$(S$) END FUNCTION REV$ (S$) FOR I = LEN(S$) TO 1 STEP -1 B$ = MID$(S$, I, 1) W$ = W$ + B$ NEXT I REV$ = W$ END FUNCTION 222.    WAP to input any string and check whether the given string is palindrome or not. CLS INPUT "ENTER ANY STRING"; S$ FOR I = LEN(S$) TO 1 STEP -1 B$ = MID$(S$, I, 1) W$ = W$ + B$ NEXT I...
Read more

PALINDROME AND ARMSTRONG PROGRAMS

120.  WAP to input any number and check whether the given no. is palindrome or not. CLS INPUT "ENTER ANY NUMBER"; 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 USING SUB PROCEDURE 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 USING FUNCTION PROCEDURE DECLARE FUNCTION PALIN (N) CLS INPUT "ENTER ANY NUMBER"; N P = PALIN ((N)) IF P = N THEN PRINT N; "IS PALINDROME" ELSE PRINT N; "IS NOT PALINDROME" END IF END FUNCTION PALIN (N) S = 0 WHILE N < > 0 R = N MOD 10 ...
Read more

N NE NEP NEPA NEPAL PATTERN

251.  WAP to display N NE NEP NEPA NEPAL USING SUB PROCEDURE DECLARE SUB PATTERN (S$) CLS S$ = "NEPAL" CALL PATTERN(S$) END SUB PATTERN (S$) FOR I = 1 TO LEN(S$) PRINT LEFT$(S$, I) NEXT I END SUB 252.  WAP to display L AL PAL EPAL NEPAL USING SUB PROCEDURE DECLARE SUB PATTERN (S$) CLS S$ = "NEPAL" CALL PATTERN(S$) END SUB PATTERN (S$) FOR I = 1 TO LEN(S$) PRINT RIGHT$(S$, I) NEXT I END SUB 253.  WAP to display NEPAL EPAL PAL AL L USING SUB PROCEDURE DECLARE SUB PATTERN (S$) CLS S$ = "NEPAL" CALL PATTERN(S$) END SUB PATTERN (S$) FOR I = LEN(S$) TO 1 STEP - 1 PRINT RIGHT$(S$, I) NEXT I END SUB 253.  WAP to display NEPAL NEPA NEP NE N USING SUB PROCEDURE DECLARE SUB PATTERN (S$) CLS S$ = "NEPAL" CALL PATTERN(S$) END SUB PATTERN (S$) FOR I = LEN(S$) TO 1 STEP - 1 PRINT LEFT$(S$, I) NEXT I ...
Read more