MODULAR PROGRAMMING

#1. Enter any two numbers and display its sum.

 REM PROGRAM TO DISPLAY SUM OF TWO NUMBERS CLS

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

SIMILAR QUESTIONS

i.. Enter any two numbers and display its difference.

1. Enter any two numbers and display its product.

iii. Enter any two numbers and display its average.

1. Enter any two numbers and display its sum, difference, product and average.

2. Enter any three numbers and display its sum, product and average.

#2. 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

#3. Display Area of Four Wall

REM PROGRAM TO DISPLAY AREA OF FOUR WALL

CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
A = 2 * H * (L + B)
PRINT “AREA OF FOUR WALLS“; A
END

USING SUB PROCEDURE

DECLARE SUB AREA (L, B, H)
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
CALL AREA (L, B, H)
END
SUB AREA (L, B, H)
A = 2 * H * (L + B)
PRINT “AREA OF FOUR WALLS”; A
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION AREA (L, B, H)
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
AR = AREA(L, B, H)
PRINT “AREA OF FOUR WALLS”; AR
END
FUNCTION AREA (L, B, H)
A = 2 * H * (L + B)
AREA = A
END FUNCTION




#4. Display simple interest

REM PROGRAM TO DISPLAY SIMPLE INTEREST

CLS

INPUT “ENTER PRINCIPAL”; P

INPUT “ENTER TIME”; T

INPUT “ENTER RATE”;R

I = P* T * R / 100

PRINT “SIMPLE INTEREST =”; I

END




USING SUB PROCEDURE

DECLARE SUB INTEREST (P, T, R)

CLS

INPUT “ENTER PRINCIPAL”; P

INPUT “ENTER TIME”; T

INPUT “ENTER RATE”;R

CALL INTEREST(P, T, R)

END

SUB INTEREST (P, T, R)

I = P* T * R / 100

PRINT “SIMPLE INTEREST =”; I

END SUB




USING FUNCTION PROCEDURE

DECLARE FUNCTION INTEREST (P, T, R)

CLS

INPUT “ENTER PRINCIPAL”; P

INPUT “ENTER TIME”; T

INPUT “ENTER RATE”;R

PRINT “SIMPLE INTEREST=”; INTEREST(P, T, R)

END

FUNCTION INTEREST (P, T, R)

I = P* T * R / 100

INTEREST = I

END FUNCTION




#5. Solve a quadratic equation ax2+bx+c=0 on the basis of the coefficient values a, b, and c.

REM SOLVE A QUADRATIC EQUATION

CLS

INPUT “ENTER VALUE FOR A”; A

INPUT “ENTER VALUE FOR B”; B

INPUT “ENTER VALUE FOR C”; C

D = (B * B – 4 * A * C) ^ (1 / 2)

X = (-B + D) / 2 * A

Y = (-B – D) / 2 * A

PRINT “SOLUTION OF QUADRATIC EQUATION ARE”; X; Y

END




USING SUB PROCEDURE

DECLARE SUB EQUATION (A, B, C)

CLS

INPUT “ENTER VALUE FOR A”; A

INPUT “ENTER VALUE FOR B”; B

INPUT “ENTER VALUE FOR C”; C

CALL EQUATION(A, B, C)

END

SUB EQUATION (A, B, C)

D = (B * B – 4 * A * C) ^ (1 / 2)

X = (-B + D) / 2 * A

Y = (-B – D) / 2 * A

PRINT “SOLUTION OF QUADRATIC EQUATION ARE”; X; Y

END SUB




USING FUNCTION PROCEDURE

DECLARE FUNCTION EQUATION (A, B, C)

COMMON SHARED X

CLS

INPUT “ENTER VALUE FOR A”; A

INPUT “ENTER VALUE FOR B”; B

INPUT “ENTER VALUE FOR C”; C

PRINT “SOLUTION OF QUADRATIC EQUATION ARE”; X; EQUATION(A, B, C)

END

FUNCTION EQUATION (A, B, C)

D = (B * B – 4 * A * C) ^ (1 / 2)

X = (-B + D) / 2 * A

Y = (-B – D) / 2 * A

EQUATION =Y

END FUNCTION




#6. WAP to input any number and display whether it is odd or even.

REM DISPLAY WHETHER INPUTED NUMBER IS ODD OR EVEN

CLS

INPUT “ENTER ANY NUMBER”; N

IF N MOD 2 = 0 THEN

PRINT N; “IS EVEN NUMBER”

ELSE

PRINT N; “IS ODD NUMBER”

END IF

END




USING SUB PROCEDURE

DECLARE SUB CHECK (N)

CLS

INPUT “ENTER ANY NUMBER”; N

CALL CHECK (N)

END

SUB CHECK (N)

IF N MOD 2 = 0 THEN

PRINT N; “IS EVEN NUMBER”

ELSE

PRINT N; “IS ODD NUMBER”

END IF

END SUB

 

USING FUNCTION PROCEDURE

DECLARE FUNCTION CHECK$ (N)

CLS

INPUT “ENTER ANY NUMBER”; N

PRINT N; “IS “; CHECK$(N)

END

FUNCTION CHECK$ (N)

IF N MOD 2 = 0 THEN

CHECK$ = “EVEN NUMBER”

ELSE

CHECK$ = “ODD NUMBER”

END IF

END




#7. To divide a number by another number and find the quotient and remainder.

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

IF A > B THEN

R = A MOD B

Q = A \ B

ELSE

R = B MOD A

Q = B \ A

END IF

PRINT “QUOTIENT=”; Q

PRINT “REMAINDER =”; R

END




USING SUB PROCEDURE

DECLARE SUB DIVIDE (A, B)

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

CALL DIVIDE (A, B)

END

SUB DIVIDE (A, B)

IF A > B THEN

R = A MOD B

Q = A \ B

ELSE

R = B MOD A

Q = B \ A

END IF

PRINT “QUOTIENT=”; Q

PRINT “REMAINDER =”; R

END SUB




USING FUNCTION PROCEDURE

DECLARE FUNCTION DIVIDE (A, B)

CLS

INPUT “ENTER FIRST NUMBER”; A

INPUT “ENTER SECOND NUMBER”; B

PRINT “REMAINDER=”; DIVIDE (A, B)

END

FUNCTION DIVIDE (A, B)

IF A > B THEN

R = A MOD B

Q = A \ B

ELSE

R = B MOD A

Q = B \ A

END IF

PRINT “QUOTIENT=”; Q

DIVIDE = R

END FUNCTION

 

#8. WAP to enter any three numbers and display the greatest one.

REM DISPLAY THE GREATEST AMONG THREE NUMBER

CLS

INPUT “ENTER ANY THREE NUMBERS”; A, B, C

IF A > B AND A > C THEN

PRINT A; “IS GREATEST”

ELSEIF B > A AND B > C THEN

PRINT B; “IS GREATEST”

ELSE

PRINT C; “IS GREATEST”

END IF

END

 

USING SUB PROCEDURE

DECLARE SUB GREAT (A, B, C)

CLS

INPUT “ENTER ANY THREE NUMBERS”; A, B, C

CALL GREAT (A, B, C)

END

SUB GREAT (A, B, C)

IF A > B AND A > C THEN

PRINT A; “IS GREATEST”

ELSEIF B > A AND B > C THEN

PRINT B; “IS GREATEST”

ELSE

PRINT C; “IS GREATEST”

END IF

END SUB

 

USING FUNCTION PROCEDURE

DECLARE FUNCTION GREAT (A, B, C)

INPUT “ENTER ANY THREE NUMBERS”; A, B, C

PRINT “THE GREATEST NUMBER IS”; GREAT (A, B, C)

END

FUNCTION GREAT (A, B, C)

IF A > B AND A > C THEN

G = A

ELSEIF B > A AND B > C THEN

G = B

ELSE

G = C

END IF

GREAT = G

END FUNCTION

 

 

#9. WAP to enter any 20 numbers and display the smallest one using array.

REM DISPLAY THE GREATEST AMONG THREE NUMBER USING ARRAY

CLS

DIM N(20)

FOR I = 1 TO 20

INPUT “ENTER THE NUMBERS”; N(I)

NEXT I

S = N(1)

FOR I = 2 TO 20

IF N(I) < S THEN S = N(I)

NEXT I

PRINT “THE SMALLEST NUMBER IS”; S

END

 

USING SUB PROCEDURE

DECLARE SUB SMALL (N( ))

CLS

DIM N(20)

FOR I = 1 TO 20

INPUT “ENTER THE NUMBERS”; N(I)

NEXT I

CALL SMALL (N( ))

END

SUB SMALL (N( ))

S = N(1)

FOR I = 2 TO 20

IF N(I) < S THEN S = N(I)

NEXT I

PRINT “THE SMALLEST NUMBER IS”; S

END SUB

 

USING FUNCTION PROCEDURE

DECLARE FUNCTION SMALL (N( ))

CLS

DIM N(20)

FOR I = 1 TO 20

INPUT “ENTER THE NUMBERS”; N(I)

NEXT I

PRINT “THE SMALLEST NUMBER IS”; SMALL (N( ))

END

FUNCTION SMALL (N( ))

S = N(1)

FOR I = 2 TO 20

IF N(I) < S THEN S = N(I)

NEXT I

SMALL = S

END FUNCTION

 

 

 

#10. WAP to input number and count total no. of digits.

REM COUNT TOTAL NO. OF DIGITS

CLS

INPUT “ENTER ANY NUMBER”; N

C = 0

WHILE N < > 0

C = C + 1

N = N \ 10

WEND

PRINT “TOTAL NUMBER OF DIGITS”; C

END

 

USING SUB PROCEDURE

DECLARE SUB COUNT (N)

CLS

INPUT “ENTER ANY NUMBER”; N

CALL COUNT (N)

END

SUB COUNT (N)

C = 0

WHILE N < > 0

C = C + 1

N = N \ 10

WEND

PRINT “TOTAL NUMBER OF DIGITS”; C

END SUB

 

USING FUNCTION PROCEDURE

DECLARE FUNCTION COUNT (N)

CLS

INPUT “ENTER ANY NUMBER”; N

PRINT “TOTAL NUMBER OF DIGITS”; COUNT (N)

END

FUNCTION SUM (N)

C = 0

WHILE N < > 0

C = C + 1

N = N \ 10

WEND

COUNT = C

END FUNCTION

 

 

#11. 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

S = S * 10 + R

N = N \ 10

WEND

PALIN = S

END FUNCTION

 

 

 

#12. WAP to input any number and check whether the given no. is Armstrong or not.

CLS

INPUT “ENTER ANY NUMBER”; N

A = N

S = 0

WHILE N < > 0

R = N MOD 10

S = S + R ^ 3

N = N \ 10

WEND

IF A = S THEN

PRINT A; “IS ARMSTRONG”

ELSE

PRINT A; “IS NOT ARMSTRONG”

END IF

END

 

USING SUB PROCEDURE

DECLARE SUB ARM (N)

CLS

INPUT “ENTER ANY NUMBER”; N

CALL ARM (N)

END

SUB ARM (N)

A = N

S = 0

WHILE N < > 0

R = N MOD 10

S = S + R ^ 3

N = N \ 10

WEND

IF A = S THEN

PRINT A; “IS ARMSTRONG NUMBER”

ELSE

PRINT A; “IS NOT ARMSTRONG NUMBER”

END IF

END SUB

 

USING FUNCTION PROCEDURE

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

 

#13.  WAP to input number and check whether the given no. is prime or composite.

CLS

INPUT “ENTER ANY NUMBER”; N

C = 0

FOR I = 1 TO N

IF N MOD I = 0 THEN C = C + 1

NEXT I

IF C = 2 THEN

PRINT N; “IS PRIME NUMBER”

ELSE

PRINT N; “IS COMPOSITE NUMBER”

END IF

END

 

USING SUB PROCEDURE

DECLARE SUB PRIME (N)

INPUT “ENTER ANY NUMBER”; N

CALL PRIME (N)

END

SUB PRIME (N)

C = 0

FOR I = 1 TO N

IF N MOD I = 0 THEN C = C + 1

NEXT I

IF C = 2 THEN

PRINT N; “IS PRIME NUMBER”

ELSE

PRINT N; “IS COMPOSITE NUMBER”

END IF

END SUB

 

USING FUNCTION PROCEDURE

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

 

 

 

#14. WAP to input any number and display the factorial of a given number.

CLS

INPUT “ENTER ANY NUMBER”; N

F = 1

FOR I = 1 TO N

F = F * I

NEXT I

PRINT “FACTORIAL =”; F

END

 

USING SUB PROCEDURE

DECLARE SUB FACT (N)

CLS

INPUT “ENTER ANY NUMBER”; N

CALL FACT (N)

END

SUB FACT (N)

F = 1

FOR I = 1 TO N

F = F * I

NEXT I

PRINT “FACTORIAL =”; F

END SUB

 

USING FUNCTION PROCEDURE

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

 

 

#15. WAP TO DISPLAY H.C.F AND L.C.M OF A GIVEN ANY TWO NUMBERS.

CLS

INPUT “ENTER ANY TWO NUMBERS”; 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

PRINT “L.C.M=”; L

END

 

USING SUB PROCEDURE

DECLARE SUB HCFLCM(A, B)

CLS

INPUT “ENTER ANY TWO NUMBERS”; A, B

CALL HCFLCM (A, B)

END

SUB 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

PRINT “L.C.M=”; L

END SUB

 

USING FUNCTION PROCEDURE

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

---

Download All remaining Program Code Link Below

Download Now

use “RitNote” password to extract files