Solution of Sub Procedure

1.  write a program to declare a sub procedure to generate multiplication table of a number,where number is passed as a parameter.[Use SUB...END SUB].
DECLARE SUB mulTable (N)
CLS
INPUT "Enter a number"; N
CALL mulTable(N)
END

SUB mulTable (N)
FOR i = 1 TO 10
PRINT N; "*"; i; "="; N * i
NEXT
END SUB

2. write a program to define sub procedure to print prime numbers from 1 to 500 using sub procedure
DECLARE SUB prime ()
CLS
prime
END

SUB prime
FOR I = 2 TO 500
FOR j = 2 TO I / 2
flag = 0
r = I MOD j
IF r = 0 THEN
flag = 1
EXIT FOR
 END IF
NEXT j
IF flag = 0 THEN
PRINT I,
END IF

NEXT I
END SUB

3.  Write a progrm to test whether the given number is positive or negative using SUB.......END SUB
DECLARE SUB PN (n)
CLS
INPUT "Enter a number "; n
PN n
END

 SUB PN (n)
IF n > 0 THEN
PRINT n; " is positive number"
ELSE
PRINT n; " is negative number"
END IF
END SUB

4. write a program to read any digits of a number and display it in reverse order by using SUB...END SUB
DECLARE SUB reverse (N)
CLS
INPUT "Enter a number"; N
CALL reverse(N)

END

SUB reverse (N)
N$ = STR$(N)
FOR I = LEN(N$) TO 1 STEP -1
R$ = R$ + MID$(N$, I, 1)
NEXT
R = VAL(R$)
PRINT "The reverse number of "; N; " is"; R

END SUB

5.  write a program to print the following series 1,8,27,64 ,........upto 10  terms using sub procedures
DECLARE SUB seriesCube ()
CLS
seriesCube
END

SUB seriesCube
FOR i = 1 TO 10
PRINT i ^ 3; ",";
NEXT i
END SUB

6. write a program to display the series 111111,11111,1111,111,11,1 by using SUB...END SUB
DECLARE SUB series ()
CLS
series
END

SUB series
FOR i = 6 TO 1 STEP -1
k = 1
FOR j = 1 TO i
PRINT k;
NEXT j
PRINT
NEXT i
END SUB

Comments

Post a Comment

Popular posts from this blog

PROGRAM TO FIND SQUARE, CUBE, SQUARE ROOT AND CUBE ROOT OF GIVEN NUMBER

7. Display square of an input number. REM PROGRAM TO DISPLAY SQUARE OF AN INPUT NUMBER CLS INPUT “ENTER ANY NUMBER”; N S = N ^ 2 PRINT “SQUARE OF NUMBER ”; S END USING SUB PROCEDURE DECLARE SUB SQUARE (N) CLS INPUT “ENTER ANY NUMBER”; N CALL SQUARE(N) END SUB SQUARE (N) S = N ^ 2 PRINT “SQUARE OF NUMBER “; S END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION SQUARE (N) CLS INPUT “ENTER ANY NUMBER”; N S = SQUARE(N) PRINT “SQUARE OF NUMBER “; S END FUNCTION SQUARE (N) SQ= N ^ 2 SQUARE = SQ END FUNCTION 8. Display cube of an input number. REM PROGRAM TO DISPLAY CUBE OF AN INPUT NUMBER CLS INPUT “ENTER ANY NUMBER”; N C = N ^ 3 PRINT “CUBE OF NUMBER ”; C END USING SUB PROCEDURE DECLARE SUB CUBE (N) CLS INPUT “ENTER ANY NUMBER”; N CALL CUBE(N) END SUB CUBE (N) C = N ^ 3 PRINT “CUBE OF NUMBER “; C END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION CUBE (N) CLS INP...
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

PROGRAM TO DISPLAY SUM, PRODUCT, DIFFERENCE AND PRODUCT OF TWO / THREE NUMBERS

1. Enter any two numbers and display its sum. REM PROGRAM TO DISPLAY SUM OF TWO NUMBERS CLS INPUT “ENTER FIRST NUMBER”; A INPUT “ENTER SECOND NUMBER”; B S = A + B PRINT “SUM OF TWO NUMBERS”; S END USING SUB PROCEDURE DECLARE SUB SUM (A, B) CLS INPUT “ENTER FIRST NUMBER”; A INPUT “ENTER SECOND NUMBER”; B CALL SUM(A, B) END SUB SUM (A, B) S = A + B PRINT “SUM OF TWO NUMBERS”; S END SUB USING FUNCTION PROCEDURE DECLARE FUNCTION SUM (A, B) CLS INPUT “ENTER FIRST NUMBER”; A INPUT “ENTER SECOND NUMBER”; B S = SUM(A, B) PRINT “SUM OF TWO NUMBERS”; S END FUNCTION SUM (A, B) SU = A + B SUM = SU END FUNCTION 2. Enter any two numbers and display its difference. REM PROGRAM TO DISPLAY DIFFERENCE OF TWO NUMBERS CLS INPUT “ENTER FIRST NUMBER”; A INPUT “ENTER SECOND NUMBER”; B D = A - B PRINT “DIFFERENCE OF TWO NUMBERS”; D END USING SUB PROCEDURE DECLARE SUB DIFF (A, B) CLS INPUT “ENTER FIRST NUM...
Read more