275 Most useful qbasic programs

  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 NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
CALL DIFF(A, B)
END

SUB DIFF (A, B)
D = A - B
PRINT “DIFFERENCE OF TWO NUMBERS”; D
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION DIFF (A, B)
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
DI = DIFF(A, B)
PRINT “DIFFERENCE OF TWO NUMBERS”; DI
END

FUNCTION DIFF (A, B)
D = A - B
DIFF = D
END FUNCTION

3. Enter any two numbers and display its product.

REM PROGRAM TO DISPLAY PRODUCT OF TWO NUMBERS
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
P = A * B
PRINT “PRODUCT OF TWO NUMBERS”; P
END

USING SUB PROCEDURE

DECLARE SUB PROD (A, B)
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
CALL PROD(A, B)
END

SUB PROD (A, B)
P = A * B
PRINT “PRODUCT OF TWO NUMBERS”; P
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION PROD (A, B)
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
PR = PROD(A, B)
PRINT “PRODUCT OF TWO NUMBERS”; PR
END

FUNCTION PROD (A, B)
P = A * B
PROD = P
END FUNCTION

4. Enter any two numbers and display its average.

REM PROGRAM TO DISPLAY AVERAGE OF TWO NUMBERS
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
AV = (A + B) / 2
PRINT “AVERAGE OF TWO NUMBERS”; AV
END

USING SUB PROCEDURE
DECLARE SUB AVERAGE (A, B)
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
CALL AVERAGE(A, B)
END

SUB AVERAGE (A, B)
AV = (A + B) / 2
PRINT “AVERAGE OF TWO NUMBERS”; AV
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION AVERAGE (A, B)
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
AVGR = AVERAGE(A, B)
PRINT “AVERAGE OF TWO NUMBERS”; AVGR
END

FUNCTION AVERAGE (A, B)
AV = (A + B) / 2
AVERAGE = AV
END FUNCTION

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

REM PROGRAM TO DISPLAY SUM, DIFFERENCE, PRODUCT AND AVERAGE  OF TWO NUMBERS
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
S = A + B
D = A – B
P = A * B
AV = (A + B) / 2
PRINT “SUM OF TWO NUMBERS”; S
PRINT “DIFFERENCE OF TWO NUMBERS”; D
PRINT “PRODUCT OF TWO NUMBERS”; P
PRINT “AVERAGE OF TWO NUMBERS”; AV
END

USING SUB PROCEDURE

DECLARE SUB SUM (A, B)
DECLARE SUB DIFF (A, B)
DECLARE SUB PROD (A, B)
DECLARE SUB AVERAGE (A, B)
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
CALL SUM(A, B)
CALL DIFF(A, B)
CALL PROD(A, B)
CALL AVERAGE(A, B)
END

SUB SUM (A, B)
S = A + B
PRINT “SUM OF TWO NUMBERS”; S
END SUB
SUB DIFF (A, B)
D = A - B
PRINT “DIFFERENCE OF TWO NUMBERS”; D
END SUB
SUB PROD (A, B)
P = A * B
PRINT “PRODUCT OF TWO NUMBERS”; P
END SUB

SUB AVERAGE (A, B)
AV = (A + B) / 2
PRINT “AVERAGE OF TWO NUMBERS”; AV
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION SUM (A, B)
DECLARE FUNCTION DIFF (A, B)
DECLARE FUNCTION PROD (A, B)
DECLARE FUNCTION AVERAGE (A, B)
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
S = SUM(A, B)
D = DIFF (A, B)
P = PROD(A, B)
AV = AVERAGE(A, B)
PRINT “SUM OF TWO NUMBERS”; S
PRINT “DIFFERENCE OF TWO NUMBERS”; D
PRINT “PRODUCT OF TWO NUMBERS”; P
PRINT “AVERAGE OF TWO NUMBERS”; AV
END

FUNCTION SUM (A, B)
SU = A + B
SUM = SU
END FUNCTION

FUNCTION DIFF (A, B)
D = A - B
DIFF = D
END FUNCTION

FUNCTION PROD (A, B)
P = A * B
PROD = P
END FUNCTION

FUNCTION AVERAGE (A, B)
AVGR = (A + B) / 2
AVERAGE = AVGR
END FUNCTION



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

REM PROGRAM TO DISPLAY SUM, PRODUCT AND AVERAGE  OF THREE NUMBERS
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
INPUT “ENTER THIRD NUMBER”; C
S = A + B + C
P = A * B * C
AV = (A + B + C) / 3
PRINT “SUM OF THREE NUMBERS”; S
PRINT “PRODUCT OF THREE NUMBERS”; P
PRINT “AVERAGE OF THREE NUMBERS”; AV
END

USING SUB PROCEDURE

DECLARE SUB SUM (A, B, C)
DECLARE SUB PROD (A, B, C)
DECLARE SUB AVERAGE (A, B, C)
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
INPUT “ENTER THREE NUMBERS”; C
CALL SUM(A, B, C)
CALL PROD(A, B, C)
CALL AVERAGE(A, B, C)
END

SUB SUM (A, B, C)
S = A + B + C
PRINT “SUM OF THREE NUMBERS”; S
END SUB

SUB PROD (A, B, C)
P = A * B * C
PRINT “PRODUCT OF THREE NUMBERS”; P
END SUB

SUB AVERAGE (A, B)
AV = (A + B + C) / 3
PRINT “AVERAGE OF THREE NUMBERS”; AV
END SUB
USING FUNCTION PROCEDURE

DECLARE FUNCTION SUM (A, B, C)
DECLARE FUNCTION PROD (A, B, C)
DECLARE FUNCTION AVERAGE (A, B, C)
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
INPUT “ENTER THIRD NUMBER”; C
S = SUM(A, B, C)
P = PROD(A, B, C)
AV = AVERAGE(A, B, C)
PRINT “SUM OF THREE NUMBERS”; S
PRINT “PRODUCT OF THREE NUMBERS”; P
PRINT “AVERAGE OF THREE NUMBERS”; AV

FUNCTION SUM (A, B, C)
SU = A + B + C
SUM = SU
END FUNCTION

FUNCTION PROD (A, B, C)
P = A * B * C
PROD = P
END FUNCTION

FUNCTION AVERAGE (A, B, C)
AVGR = (A + B + C) / 3
AVERAGE = AVGR
END FUNCTION

7. Display sum of half of any two given numbers.

REM PROGRAM TO DISPLAY SUM OF HALF OF ANY TWO GIVEN NUMBERS
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
S = A / 2 + B / 2
PRINT “SUM OF HALF 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 / 2 + B / 2
PRINT “SUM OF HALF 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 HALF OF TWO NUMBERS”; S
END

FUNCTION SUM (A, B)
SU =  A / 2 + B / 2
SUM = SU
END FUNCTION

8. Input n number and print the sum of first n natural numbers.
REM CALCULATE SUM OF FIRST N NATURAL NUMBERS
CLS
INPUT “ENTER THE NUMBER”; N
S = N * (N + 1) / 2
PRINT “SUM OF”; N; “NUMBERS=”; S
END

USING SUB PROCEDURE

DECLARE SUB SUM(N)
CLS
INPUT “ENTER THE NUMBER”; N
CALL SUM (N)
END

SUB SUM (N)
S = N * (N + 1) / 2
PRINT “SUM OF”; N; “NUMBERS=”; S
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION SUM(N)
CLS
INPUT “ENTER THE NUMBER”; N
PRINT “SUM OF”; N; “NUMBERS=”; SUM (N)
END
FUNCTION SUM (N)
S = N * (N + 1) / 2
SUM = S
END FUNCTION

9. Input n number and print the sum square of first n natural numbers.
REM CALCULATE SUM OF SQUARE OF FIRST N NATURAL NUMBERS
CLS
INPUT “ENTER THE NUMBER”; N
S = N * (N + 1) * (2 * N + 1) / 6
PRINT “SUM OF SQUARE OF ”; N; “NUMBERS=”; S
END

USING SUB PROCEDURE

DECLARE SUB SUMSQ(N)
CLS
INPUT “ENTER THE NUMBER”; N
CALL SUMSQ(N)
END

SUB SUMSQ (N)
S = N * (N + 1) * (2 * N + 1) / 6
PRINT “SUM OF SQUARE OF ”; N; “NUMBERS=”; S
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION SUMSQ(N)
CLS
INPUT “ENTER THE NUMBER”; N
PRINT “SUM OF SQUARE OF ”; N; “NUMBERS=”; SUMSQ (N)
END

FUNCTION SUMSQ (N)
S = N * (N + 1) * (2 * N + 1) / 6
SUMSQ = S
END FUNCTION

10. 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



11. 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
INPUT “ENTER ANY NUMBER”; N
C = CUBE(N)
PRINT “CUBE OF NUMBER “; C
END

FUNCTION CUBE (N)
CB = N ^ 3
CUBE = CB
END FUNCTION









12. Display square root of an input number.

REM PROGRAM TO DISPLAY SQUARE ROOT OF AN INPUT NUMBER
CLS
INPUT “ENTER ANY NUMBER”; N
S = N ^ (1 / 2)
PRINT “SQUARE ROOT OF NUMBER ”; S
END

USING SUB PROCEDURE

DECLARE SUB SQROOT (N)
CLS
INPUT “ENTER ANY NUMBER”; N
CALL SQROOT(N)
END

SUB SQROOT (N)
S = N ^ (1 / 2)
PRINT “SQUARE ROOT OF NUMBER “; S
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION SQROOT (N)
CLS
INPUT “ENTER ANY NUMBER”; N
S = SQROOT(N)
PRINT “SQUARE ROOT OF NUMBER “; S
END

FUNCTION SQROOT (N)
SQ= N ^ (1 / 2)
SQROOT = SQ
END FUNCTION









13. Display cube root of an input number.

REM PROGRAM TO DISPLAY CUBE ROOT OF AN INPUT NUMBER
CLS
INPUT “ENTER ANY NUMBER”; N
C = N ^ (1 / 3)
PRINT “CUBE ROOT OF NUMBER ”; C
END

USING SUB PROCEDURE

DECLARE SUB CBROOT (N)
CLS
INPUT “ENTER ANY NUMBER”; N
CALL CBROOT(N)
END

SUB CBROOT (N)
C = N ^ (1 / 3)
PRINT “CUBE ROOT OF NUMBER “; C
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION CBROOT (N)
CLS
INPUT “ENTER ANY NUMBER”; N
C = CBROOT(N)
PRINT “CUBE ROOT OF NUMBER “; C
END

FUNCTION CBROOT (N)
CB= N ^ (1 / 3)
CBROOT = CB
END FUNCTION









14. Display sum of square of any two input numbers.

REM PROGRAM TO DISPLAY SUM OF SQUARE OF ANY TWO INPUT NUMBERS
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
S = A ^ 2 + B ^ 2
PRINT “SUM OF SQUARE OF TWO NUMBERS ”; S
END

USING SUB PROCEDURE

DECLARE SUB SQUARE (A, B)
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
CALL SQUARE(A, B)
END

SUB SQUARE (A, B)
S = A ^ 2 + B ^ 2
PRINT “SUM OF SQUARE OF TWO NUMBERS “; S
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION SQUARE (A, B)
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
S = SQUARE(A, B)
PRINT “SUM OF SQUARE OF TWO NUMBERS “; S
END

FUNCTION SQUARE (N)
SQ= A ^ 2 + B ^ 2
SQUARE = SQ
END FUNCTION






15. Display sum of cube of any two input numbers.

REM PROGRAM TO DISPLAY SUM OF CUBE OF ANY TWO INPUT NUMBERS
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
C = A ^ 3 + B ^ 3
PRINT “SUM OF CUBE OF TWO NUMBERS ”; C
END

USING SUB PROCEDURE

DECLARE SUB CUBE (A, B)
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
CALL CUBE (A, B)
END

SUB CUBE (A, B)
C = A ^ 3 + B ^ 3
PRINT “SUM OF CUBE OF TWO NUMBERS “; C
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION CUBE (A, B)
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
C = CUBE (A, B)
PRINT “SUM OF CUBE OF TWO NUMBERS “; C
END

FUNCTION CUBE (N)
CB= A ^ 3 + B ^ 3
CUBE = CB
END FUNCTION






16. Display sum of square of any three input numbers.

REM PROGRAM TO DISPLAY SUM OF SQUARE OF ANY THREE INPUT NUMBERS
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
INPUT “ENTER THIRD NUMBER”; C
S = A ^ 2 + B ^ 2 + C ^ 2
PRINT “SUM OF SQUARE OF THREE NUMBERS ”; S
END

USING SUB PROCEDURE

DECLARE SUB SQUARE (A, B, C)
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
INPUT “ENTER THIRD NUMBER”; C
CALL SQUARE(A, B, C)
END
SUB SQUARE (A, B, C)
S = A ^ 2 + B ^ 2 + C ^ 2
PRINT “SUM OF SQUARE OF THREE NUMBERS “; S
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION SQUARE (A, B, C)
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
INPUT “ENTER THIRD NUMBER”; C
S = SQUARE(A, B, C)
PRINT “SUM OF SQUARE OF THREE NUMBERS “; S
END
FUNCTION SQUARE (N)
SQ= A ^ 2 + B ^ 2 + C ^ 2
SQUARE = SQ
END FUNCTION


17. Display sum of cube of any three input numbers.

REM PROGRAM TO DISPLAY SUM OF CUBE OF ANY THREE INPUT NUMBERS
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
INPUT “ENTER THIRD NUMBER”; C
S = A ^ 3 + B ^ 3 + C ^ 3
PRINT “SUM OF CUBE OF THREE NUMBERS ”; S
END

USING SUB PROCEDURE

DECLARE SUB CUBE (A, B, C)
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
INPUT “ENTER THIRD NUMBER”; C
CALL CUBE (A, B, C)
END

SUB CUBE  (A, B, C)
C = A ^ 3 + B ^ 3 + C ^ 3
PRINT “SUM OF CUBE OF THREE NUMBERS “; C
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION CUBE (A, B, C)
CLS
INPUT “ENTER FIRST NUMBER”; A
INPUT “ENTER SECOND NUMBER”; B
INPUT “ENTER THIRD NUMBER”; C
C = CUBE (A, B, C)
PRINT “SUM OF CUBE OF THREE NUMBERS “; C
END
FUNCTION CUBE (N)
CB= A ^ 3 + B ^ 3 + C ^ 3
CUBE = CB
END FUNCTION


18. Display area of rectangle.

REM PROGRAM TO DISPLAY AREA OF RECTANGLE
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
A = L * B
PRINT “AREA OF RECTANGLE ”; A
END

USING SUB PROCEDURE

DECLARE SUB AREA (L, B)
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
CALL AREA(L, B)
END

SUB AREA (L, B)
A = L * B
PRINT “AREA OF RECTANGLE ”; A
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION AREA (L, B)
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
AR = AREA(L, B)
PRINT “AREA OF RECTANGLE ”; AR
END

FUNCTION AREA (L, B)
A = L * B
AREA = A
END FUNCTION






19. Display area of square.

REM PROGRAM TO DISPLAY AREA OF SQUARE
CLS
INPUT “ENTER LENGTH”; L
A = L ^ 2
PRINT “AREA OF SQUARE ”; A
END

USING SUB PROCEDURE

DECLARE SUB AREA (L)
CLS
INPUT “ENTER LENGTH”; L
CALL AREA(L)
END

SUB AREA (L)
A = L ^ 2
PRINT “AREA OF SQUARE”; A
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION AREA (L)
CLS
INPUT “ENTER LENGTH”; L
AR = AREA(L)
PRINT “AREA OF SQUARE ”; AR
END

FUNCTION AREA (L)
A = L ^ 2
AREA = A
END FUNCTION










20. Display area of circle.

REM PROGRAM TO DISPLAY AREA OF CIRCLE
CLS
INPUT “ENTER RADIUS”; R
A = 3.14 * R ^ 2
PRINT “AREA OF CIRCLE ”; A
END

USING SUB PROCEDURE

DECLARE SUB AREA (R)
CLS
INPUT “ENTER RADIUS”; R
CALL AREA(R)
END

SUB AREA (R)
A = 3.14 * R ^ 2
PRINT “AREA OF CIRCLE ”; A
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION AREA (R)
CLS
INPUT “ENTER RADIUS”; R
AR = AREA(R)
PRINT “AREA OF CIRCLE ”; AR
END

FUNCTION AREA (L, B)
A = 3.14 * R ^ 2
AREA = A
END FUNCTION


21. Display perimeter of rectangle.

REM PROGRAM TO DISPLAY PERIMETER OF RECTANGLE
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
P = 2 * (L + B)
PRINT “PERIMETER OF RECTANGLE ”; P
END

USING SUB PROCEDURE

DECLARE SUB PERIMETER (L, B)
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
CALL PERIMETER(L, B)
END

SUB PERIMETER (L, B)
P = 2 * (L + B)
PRINT “PERIMETER OF RECTANGLE ”; P
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION PERIMETER (L, B)
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
PR = PERIMETER(L, B)
PRINT “PERIMETER OF RECTANGLE ”; PR
END

FUNCTION PERIMETER (L, B)
P = 2 * (L + B)
PERIMETER = P
END FUNCTION






22. Display perimeter of square.

REM PROGRAM TO DISPLAY PERIMETER OF SQUARE
CLS
INPUT “ENTER LENGTH”; L
P = 4 * L
PRINT “PERIMETER OF SQUARE ”; P
END

USING SUB PROCEDURE

DECLARE SUB PERIMETER (L)
CLS
INPUT “ENTER LENGTH”; L
CALL PERIMETER (L)
END

SUB PERIMETER (L)
P = 4 * L
PRINT “PERIMETER OF SQUARE”; P
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION PERIMETER (L)
CLS
INPUT “ENTER LENGTH”; L
PR = PERIMETER (L)
PRINT “PERIMETER OF SQUARE ”; PR
END

FUNCTION PERIMETER (L)
P = 4 * L
PERIMETER = P
END FUNCTION









23. Display circumference of circle.

REM PROGRAM TO DISPLAY CIRCUMFERENCE OF CIRCLE
CLS
INPUT “ENTER RADIUS”; R
C = 2 * 3.14 * R
PRINT “CIRCUMFERENCE OF CIRCLE ”; A
END

USING SUB PROCEDURE

DECLARE SUB CIRCUM (R)
CLS
INPUT “ENTER RADIUS”; R
CALL CIRCUM (R)
END

SUB CIRCUM (R)
C = 2 * 3.14 * R
PRINT “CIRCUMFERENCE OF CIRCLE ”; C
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION CIRCUM (R)
CLS
INPUT “ENTER RADIUS”; R
CR = CIRCUM(R)
PRINT “CIRCUMFERENCE OF CIRCLE ”; CR
END

FUNCTION CIRCUMFERENCE (L, B)
C = 2 * 3.14 * R
CIRCUM  = C
END FUNCTION









24. Display area and perimeter of rectangle.

REM PROGRAM TO DISPLAY AREA AND PERIMETER OF RECTANGLE
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
A= L * B
P = 2 * (L + B)
PRINT “AREA OF RECTANGLE “; A
PRINT “PERIMETER OF RECTANGLE ”; P
END

USING SUB PROCEDURE

DECLARE SUB AREA (L, B)
DECLARE SUB PERIMETER (L, B)
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
CALL AREA (L, B)
CALL PERIMETER(L, B)
END

SUB AREA (L, B)
A = L * B
PRINT “AREA OF RECTANGLE ”; A
END SUB

SUB PERIMETER (L, B)
P = 2 * (L + B)
PRINT “PERIMETER OF RECTANGLE ”; P
END SUB


USING FUNCTION PROCEDURE

DECLARE FUNCTION AREA (L, B)
DECLARE FUNCTION PERIMETER (L, B)
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
AR = AREA(L, B)
PR = PERIMETER(L, B)
PRINT “AREA OF RECTANGLE”; AR
PRINT “PERIMETER OF RECTANGLE ”; PR
END

FUNCTION AREA (L, B)
A = L * B
AREA = A
END FUNCTION


FUNCTION PERIMETER (L, B)
P = 2 * (L + B)
PERIMETER = P
END FUNCTION

25. Display area and perimeter of square.

REM PROGRAM TO DISPLAY AREA AND PERIMETER OF SQUARE
CLS
INPUT “ENTER LENGTH”; L
A= L ^ 2
P = 4 * L
PRINT “AREA OF SQUARE “; A
PRINT “PERIMETER OF SQUARE ”; P
END

USING SUB PROCEDURE

DECLARE SUB AREA (L)
DECLARE SUB PERIMETER (L)
CLS
INPUT “ENTER LENGTH”; L
CALL AREA (L)
CALL PERIMETER(L)
END

SUB AREA (L)
A = L ^ 2
PRINT “AREA OF SQUARE”; A
END SUB

SUB PERIMETER (L)
P = 4 * L
PRINT “PERIMETER OF SQUARE ”; P
END SUB


USING FUNCTION PROCEDURE

DECLARE FUNCTION AREA (L)
DECLARE FUNCTION PERIMETER (L)
CLS
INPUT “ENTER LENGTH”; L
PRINT “AREA OF SQUARE ”; AREA(L)
PRINT “PERIMETER OF RECTANGLE ”; PERIMETER(L)
END

FUNCTION AREA (L)
AREA = L ^ 2
END FUNCTION

FUNCTION PERIMETER (L)
PERIMETER =  4 * L
END FUNCTION

26. Display area and circumference of circle.

REM PROGRAM TO DISPLAY AREA AND CIRCUMFERENCE OF CIRCLE.
CLS
INPUT “ENTER RADIUS ”; R
A= 3.14 * R ^ 2
C = 2 * 3.14 * R
PRINT “AREA OF CIRCLE “; A
PRINT “CIRCUMFERENCE OF CIRCLE ”; C
END

USING SUB PROCEDURE

DECLARE SUB AREA (R)
DECLARE SUB CIRCUM (R)
CLS
INPUT “ENTER RADIUS”; R
CALL AREA(R)
CALL CIRCUM(R)
END

SUB AREA (R)

A= 3.14 * R ^ 2
PRINT “AREA OF CIRCLE”; A
END SUB

SUB CIRCUM (R)
C = 2 * 3.14 * R
PRINT “CIRCUMFERENCE OF CIRCLE”; C
END SUB


USING FUNCTION PROCEDURE

DECLARE FUNCTION AREA (R)
DECLARE FUNCTION CIRCUM (R)
CLS
INPUT “ENTER RADIUS”; R
PRINT “AREA OF SQUARE ”; AREA(R)
PRINT “CIRCLE OF CIRCUMFERENCE”; CIRCUM (R)
END

FUNCTION AREA (R)
AREA = 3.14 * R ^ 2
END FUNCTION

FUNCTION CIRCUM (R)
CIRCUM = 2 * 3.14 * R
END FUNCTION

27. Display area of 4 walls.

REM PROGRAM TO DISPLAY AREA OF 4 WALLS
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




28. Display area of triangle.

REM PROGRAM TO DISPLAY AREA OF TRIANGLE
CLS
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
A = 1 / 2  * (B * H)
PRINT “AREA OF TRIANGLE “; A
END

USING SUB PROCEDURE

DECLARE SUB AREA (B, H)
CLS
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
CALL AREA (B, H)
END

SUB AREA (B, H)
A = 1 / 2  * (B * H)
PRINT “AREA OF TRIANGLE”; A
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION AREA (B, H)
CLS
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
AR = AREA( B, H)
PRINT “AREA OF TRIANGLE ”; AR
END

FUNCTION AREA (B, H)
A = 1 / 2 * (B * H)
AREA = A
END FUNCTION







29. Display area of parallelogram.

REM PROGRAM TO DISPLAY AREA OF PARALLELOGRAM
CLS
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
A = B * H
PRINT “AREA OF PARALLELOGRAM “; A
END

USING SUB PROCEDURE

DECLARE SUB AREA (B, H)
CLS
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
CALL AREA (B, H)
END

SUB AREA (B, H)
A = B * H
PRINT “AREA OF PARALLELOGRAM ”; A
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION AREA (B, H)
CLS
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
AR = AREA( B, H)
PRINT “AREA OF PARALLELOGRAM ”; AR
END

FUNCTION AREA (B, H)
A = B * H
AREA = A
END FUNCTION






30. Display area of triangle when three sides are given.

REM PROGRAM TO DISPLAY AREA OF TRIANGLE WHEN THREE SIDES ARE GIVEN
CLS
INPUT “ENTER VALUE FOR FIRST SIDE ”; A
INPUT “ENTER VALUE FOR SECOND SIDE ”; B
INPUT “ENTER VALUE FOR THIRD SIDE ”; C
S = (A + B + C) / 2
AR = (S * (S – A) * (S – B) * (S – C)) ^ (1 / 2)
PRINT “AREA OF TRIANGLE “; AR
END

USING SUB PROCEDURE

DECLARE SUB AREA (A, B, C)
CLS
INPUT “ENTER VALUE FOR FIRST SIDE ”; A
INPUT “ENTER VALUE FOR SECOND SIDE ”; B
INPUT “ENTER VALUE FOR THIRD SIDE ”; C
CALL AREA (A, B, C)
END

SUB AREA (A, B, C)
S = (A + B + C) / 2
AR = (S * (S – A) * (S – B) * (S – C)) ^ (1 / 2)
PRINT “AREA OF TRIANGLE”; AR
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION AREA (A, B, C)
CLS
INPUT “ENTER VALUE FOR FIRST SIDE ”; A
INPUT “ENTER VALUE FOR SECOND SIDE ”; B
INPUT “ENTER VALUE FOR THIRD SIDE ”; C
PRINT “AREA OF TRIANGLE ”; AREA(A, B, C)
END

FUNCTION AREA (A, B, C)
S = (A + B + C) / 2
AR = (S * (S – A) * (S – B) * (S – C)) ^ (1 / 2)
AREA = AR
END FUNCTION




31. Display total surface area of sphere.

REM PROGRAM TO DISPLAY TOTAL SURFACE AREA OF SPHERE.
CLS
INPUT “ENTER RADIUS ”; R
A= 4 * 3.14 * R ^ 2
PRINT “TOTAL SURFACE AREA OF SPHERE “; A
END

USING SUB PROCEDURE

DECLARE SUB TSAREA (R)
CLS
INPUT “ENTER RADIUS”; R
CALL TSAREA(R)
END

SUB TSAREA (R)
A= 4 * 3.14 * R ^ 2
PRINT “TOTAL SURFACE AREA OF SPHERE “; A
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION TSAREA (R)
CLS
INPUT “ENTER RADIUS”; R
PRINT “TOTAL SURFACE AREA OF SPHERE ”; TSAREA(R)
END

FUNCTION TSAREA (R)
TSAREA = 4 * 3.14 * R ^ 2
END FUNCTION










32. Display volume of sphere.

REM PROGRAM TO DISPLAY VOLUME OF SPHERE.
CLS
INPUT “ENTER RADIUS ”; R
V = (4 / 3) * 3.14 * R ^ 3
PRINT “VOLUME OF SPHERE ”; V
END

USING SUB PROCEDURE

DECLARE SUB VOLUME(R)
CLS
INPUT “ENTER RADIUS”; R
CALL VOLUME(R)
END

SUB VOLUME (R)
V = (4 / 3) * 3.14 * R ^ 3
PRINT “VOLUME OF SPHERE ”; V
END SUB


USING FUNCTION PROCEDURE

DECLARE FUNCTION VOLUME (R)
CLS
INPUT “ENTER RADIUS”; R
PRINT “VOLUME OF SPHERE ”; VOLUME(R)
END

FUNCTION VOLUME (R)
VOLUME = (4 / 3) * 3.14 * R ^ 3
END FUNCTION










33. Display total surface area and volume of sphere.

REM PROGRAM TO DISPLAY TOTAL SURFACE AREA AND VOLUME OF SPHERE.
CLS
INPUT “ENTER RADIUS ”; R
A= 4 * 3.14 * R ^ 2
V = (4 / 3) * 3.14 * R ^ 3
PRINT “TOTAL SURFACE AREA OF SPHERE “; A
PRINT “VOLUME OF SPHERE ”; V
END

USING SUB PROCEDURE

DECLARE SUB TSAREA (R)
DECLARE SUB VOLUME(R)
CLS
INPUT “ENTER RADIUS”; R
CALL TSAREA(R)
CALL VOLUME(R)
END

SUB TSAREA (R)
A= 4 * 3.14 * R ^ 2
PRINT “TOTAL SURFACE AREA OF SPHERE “; A
END SUB

SUB VOLUME (R)
V = (4 / 3) * 3.14 * R ^ 3
PRINT “VOLUME OF SPHERE ”; V
END SUB


USING FUNCTION PROCEDURE

DECLARE FUNCTION TSAREA (R)
DECLARE FUNCTION VOLUME (R)
CLS
INPUT “ENTER RADIUS”; R
PRINT “TOTAL SURFACE AREA OF SPHERE ”; TSAREA(R)
PRINT “VOLUME OF SPHERE ”; VOLUME(R)
END

FUNCTION TSAREA (R)
TSAREA = 4 * 3.14 * R ^ 2
END FUNCTION

FUNCTION VOLUME (R)
VOLUME = (4 / 3) * 3.14 * R ^ 3
END FUNCTION

34. Display total surface area of hemisphere.

REM PROGRAM TO DISPLAY TOTAL SURFACE AREA OF HEMISPHERE.
CLS
INPUT “ENTER RADIUS ”; R
A= 3 * 3.14 * R ^ 2
PRINT “TOTAL SURFACE AREA OF HEMISPHERE “; A
END

USING SUB PROCEDURE

DECLARE SUB TSAREA (R)
CLS
INPUT “ENTER RADIUS”; R
CALL TSAREA(R)
END

SUB TSAREA (R)
A= 3 * 3.14 * R ^ 2
PRINT “TOTAL SURFACE AREA OF HEMISPHERE “; A
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION TSAREA (R)
CLS
INPUT “ENTER RADIUS”; R
PRINT “TOTAL SURFACE AREA OF HEMISPHERE ”; TSAREA(R)
END

FUNCTION TSAREA (R)
TSAREA = 3 * 3.14 * R ^ 2
END FUNCTION

35. Display volume of hemisphere.

REM PROGRAM TO DISPLAY VOLUME OF HEMISPHERE.
CLS
INPUT “ENTER RADIUS ”; R
V = (2 / 3) * 3.14 * R ^ 3
PRINT “VOLUME OF HEMISPHERE ”; V
END

USING SUB PROCEDURE

DECLARE SUB VOLUME(R)
CLS
INPUT “ENTER RADIUS”; R
CALL VOLUME(R)
END

SUB VOLUME (R)
V = (2 / 3) * 3.14 * R ^ 3
PRINT “VOLUME OF HEMISPHERE ”; V
END SUB


USING FUNCTION PROCEDURE

DECLARE FUNCTION VOLUME (R)
CLS
INPUT “ENTER RADIUS”; R
PRINT “VOLUME OF HEMISPHERE ”; VOLUME(R)
END

FUNCTION VOLUME (R)
VOLUME = (2 / 3) * 3.14 * R ^ 3
END FUNCTION


36. Display total surface area and volume of hemisphere.

REM PROGRAM TO DISPLAY TOTAL SURFACE AREA AND VOLUME OF HEMISPHERE.
CLS
INPUT “ENTER RADIUS ”; R
A= 3 * 3.14 * R ^ 2
V = (2 / 3) * 3.14 * R ^ 3
PRINT “TOTAL SURFACE AREA OF HEMISPHERE “; A
PRINT “VOLUME OF HEMISPHERE ”; V
END

USING SUB PROCEDURE

DECLARE SUB TSAREA (R)
DECLARE SUB VOLUME(R)
CLS
INPUT “ENTER RADIUS”; R
CALL TSAREA(R)
CALL VOLUME(R)
END

SUB TSAREA (R)
A= 3 * 3.14 * R ^ 2
PRINT “TOTAL SURFACE AREA OF HEMISPHERE “; A
END SUB

SUB VOLUME (R)
V = (2 / 3) * 3.14 * R ^ 3
PRINT “VOLUME OF HEMISPHERE ”; V
END SUB


USING FUNCTION PROCEDURE

DECLARE FUNCTION TSAREA (R)
DECLARE FUNCTION VOLUME (R)
CLS
INPUT “ENTER RADIUS”; R
PRINT “TOTAL SURFACE AREA OF HEMISPHERE ”; TSAREA(R)
PRINT “VOLUME OF HEMISPHERE ”; VOLUME(R)
END

FUNCTION TSAREA (R)
TSAREA = 3 * 3.14 * R ^ 2
END FUNCTION

FUNCTION VOLUME (R)
VOLUME = (2 / 3) * 3.14 * R ^ 3
END FUNCTION

37. Display total surface area of cylinder.

REM PROGRAM TO DISPLAY TOTAL SURFACE AREA OF CYLINDER
CLS
INPUT “ENTER RADIUS ”; R
INPUT “ENTER HEIGHT”; H
A= 2 * 3.14 * R * (R + H)
PRINT “TOTAL SURFACE AREA OF CYLINDER “; A
END

USING SUB PROCEDURE

DECLARE SUB TSAREA (R, H)
CLS
INPUT “ENTER RADIUS”; R
INPUT “ENTER HEIGHT”; H
CALL TSAREA(R, H)
END

SUB TSAREA (R, H)
A= 2 * 3.14 * R * (R + H)
PRINT “TOTAL SURFACE AREA OF CYLINDER “; A
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION TSAREA (R, H)
CLS
INPUT “ENTER RADIUS”; R
INPUT “ENTER HEIGHT”; H
PRINT “TOTAL SURFACE AREA OF CYLINDER”; TSAREA(R, H)
END

FUNCTION TSAREA (R, H)
TSAREA = 2 * 3.14 * R * (R + H)
END FUNCTION



38. Display volume of cylinder.

REM PROGRAM TO DISPLAY VOLUME OF CYLINDER.
CLS
INPUT “ENTER RADIUS ”; R
INPUT “ENTER HEIGHT”; H
V = 3.14 * R ^ 2 * H
PRINT “VOLUME OF CYLINDER ”; V
END

USING SUB PROCEDURE

DECLARE SUB VOLUME(R, H)
CLS
INPUT “ENTER RADIUS”; R
INPUT “ENTER HEIGHT”; H
CALL VOLUME(R, H)
END

SUB VOLUME (R, H)
V = 3.14 * R ^ 2 * H
PRINT “VOLUME OF CYLINDER ”; V
END SUB


USING FUNCTION PROCEDURE

DECLARE FUNCTION VOLUME (R, H)
CLS
INPUT “ENTER RADIUS”; R
INPUT “ENTER HEIGHT”; H
PRINT “VOLUME OF CYLINDER ”; VOLUME(R, H)
END

FUNCTION VOLUME (R, H)
VOLUME = 3.14 * R ^ 2 * H
END FUNCTION







39. Display total surface area and volume of cylinder.

REM PROGRAM TO DISPLAY TOTAL SURFACE AREA AND VOLUME OF CYLINDER
CLS
INPUT “ENTER RADIUS ”; R
INPUT “ENTER HEIGHT”; H
A= 2 * 3.14 * R * (R + H)
V = 3.14 * R ^ 2 * H
PRINT “TOTAL SURFACE AREA OF CYLINDER “; A
PRINT “VOLUME OF CYLINDER ”; V
END

USING SUB PROCEDURE

DECLARE SUB TSAREA (R, H)
DECLARE SUB VOLUME(R, H)
CLS
INPUT “ENTER RADIUS”; R
INPUT “ENTER HEIGHT”; H
CALL TSAREA(R, H)
CALL VOLUME(R, H)
END

SUB TSAREA (R, H)
A= 2 * 3.14 * R * (R + H)
PRINT “TOTAL SURFACE AREA OF CYLINDER “; A
END SUB

SUB VOLUME (R, H)
V = 3.14 * R ^ 2 * H
PRINT “VOLUME OF CYLINDER ”; V
END SUB


USING FUNCTION PROCEDURE

DECLARE FUNCTION TSAREA (R, H)
DECLARE FUNCTION VOLUME (R, H)
CLS
INPUT “ENTER RADIUS”; R
INPUT “ENTER HEIGHT”; H
PRINT “TOTAL SURFACE AREA OF CYLINDER ”; TSAREA(R, H)
PRINT “VOLUME OF CYLINDER ”; VOLUME(R, H)
END

FUNCTION TSAREA (R, H)
TSAREA = 2 * 3.14 * R * (R + H)
END FUNCTION

FUNCTION VOLUME (R, H)
VOLUME = 3.14 * R ^ 2 * H
END FUNCTION


40. Display total surface area of cuboid / box.

REM PROGRAM TO DISPLAY TOTAL SURFACE AREA OF CUBOID / BOX
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
T= 2 * (L * B + B * H + H * L)
PRINT “TOTAL SURFACE AREA OF CUBOID“; T
END

USING SUB PROCEDURE

DECLARE SUB TSAREA (L, B, H)
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
CALL TSAREA(L, B, H)
END

SUB TSAREA (L, B, H)
T= 2 * (L * B + B * H + H * L)
PRINT “TOTAL SURFACE AREA OF CUBOID “; T
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION TSAREA (L, B, H)
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
PRINT “TOTAL SURFACE AREA OF CUBOID”; TSAREA(L, B, H)
END

FUNCTION TSAREA (L, B, H)
TSAREA = 2 * (L * B + B * H + H * L)
END FUNCTION



41. Display volume of cuboid / box.

REM PROGRAM TO DISPLAY VOLUME OF CUBOID.
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
V = L * B * H
PRINT “VOLUME OF CUBOID ”; V
END

USING SUB PROCEDURE

DECLARE SUB VOLUME(L, B, H)
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
CALL VOLUME(L, B, H)
END

SUB VOLUME (L, B, H)
V = L * B* H
PRINT “VOLUME OF CUBOID ”; V
END SUB


USING FUNCTION PROCEDURE

DECLARE FUNCTION VOLUME (L, B, H)
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
PRINT “VOLUME OF CUBOID  ”; VOLUME(L, B, H)
END

FUNCTION VOLUME (L, B, H)
VOLUME = L * B * H
END FUNCTION


42. Display total surface area and volume of cuboid.

REM PROGRAM TO DISPLAY TOTAL SURFACE AREA AND VOLUME OF CUBOID
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
A= 2 * (L * B + B * H + H * L)
V = L * B * H
PRINT “TOTAL SURFACE AREA OF CUBOID “; A
PRINT “VOLUME OF CUBOID ”; V
END

USING SUB PROCEDURE

DECLARE SUB TSAREA (L, B, H)
DECLARE SUB VOLUME(L, B, H)
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
CALL TSAREA(L, B, H)
CALL VOLUME(L, B, H)
END

SUB TSAREA (L, B, H)
A= 2 * (L * B + B * H + H * L)
PRINT “TOTAL SURFACE AREA OF CUBOID “; A
END SUB

SUB VOLUME (L, B, H)
V = L * B * H
PRINT “VOLUME OF CUBOID ”; V
END SUB


USING FUNCTION PROCEDURE

DECLARE FUNCTION TSAREA (L, B, H)
DECLARE FUNCTION VOLUME (L, B, H)
CLS
INPUT “ENTER LENGTH”; L
INPUT “ENTER BREADTH”; B
INPUT “ENTER HEIGHT”; H
PRINT “TOTAL SURFACE AREA OF CUBOID ”; TSAREA(L, B, H)
PRINT “VOLUME OF CUBOID ”; VOLUME(L, B, H)
END

FUNCTION TSAREA (L, B, H)
TSAREA = 2 * (L * B + B * H + H * L)
END FUNCTION

FUNCTION VOLUME (L, B, H)
VOLUME = L * B * H
END FUNCTION


43. Display total surface area of cube.

REM PROGRAM TO DISPLAY TOTAL SURFACE AREA OF CUBE
CLS
INPUT “ENTER SIDE OF A CUBE”; L
T= 6 * L ^ 2
PRINT “TOTAL SURFACE AREA OF CUBE“; T
END

USING SUB PROCEDURE

DECLARE SUB TSAREA (L)
CLS
INPUT “ENTER SIDE OF A CUBE”; L
CALL TSAREA(L)
END

SUB TSAREA (L)
T= 6 * L ^ 2
PRINT “TOTAL SURFACE AREA OF CUBE “; T
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION TSAREA (L)
CLS
INPUT “ENTER LENGTH”; L
PRINT “TOTAL SURFACE AREA OF CUBE”; TSAREA(L)
END

FUNCTION TSAREA (L)
TSAREA = 6 * L ^ 2
END FUNCTION

44. Display volume of cube

REM PROGRAM TO DISPLAY VOLUME OF CUBE
CLS
INPUT “ENTER LENGTH”; L
V = L ^ 3
PRINT “VOLUME OF CUBE ”; V
END

USING SUB PROCEDURE

DECLARE SUB VOLUME(L)
CLS
INPUT “ENTER LENGTH”; L
CALL VOLUME(L)
END

SUB VOLUME (L)
V = L ^ 3
PRINT “VOLUME OF CUBE ”; V
END SUB


USING FUNCTION PROCEDURE

DECLARE FUNCTION VOLUME (L)
CLS
INPUT “ENTER LENGTH”; L
PRINT “VOLUME OF CUBE  ”; VOLUME(L)
END

FUNCTION VOLUME (L)
VOLUME = L ^ 3
END FUNCTION


45. Display total surface area and volume of cube.

REM PROGRAM TO DISPLAY TOTAL SURFACE AREA AND VOLUME OF CUBE
CLS
INPUT “ENTER LENGTH”; L
A= 6 * L ^ 2
V = L ^ 3
PRINT “TOTAL SURFACE AREA OF CUBE “; A
PRINT “VOLUME OF CUBE ”; V
END

USING SUB PROCEDURE

DECLARE SUB TSAREA (L)
DECLARE SUB VOLUME(L)
CLS
INPUT “ENTER LENGTH”; L
CALL TSAREA(L)
CALL VOLUME(L)
END

SUB TSAREA (L)
A= 6 * L ^ 2
PRINT “TOTAL SURFACE AREA OF CUBE “; A
END SUB

SUB VOLUME (L)
V = L ^ 3
PRINT “VOLUME OF CUBE ”; V
END SUB


USING FUNCTION PROCEDURE

DECLARE FUNCTION TSAREA (L)
DECLARE FUNCTION VOLUME (L)
CLS
INPUT “ENTER LENGTH”; L
PRINT “TOTAL SURFACE AREA OF CUBE ”; TSAREA(L)
PRINT “VOLUME OF CUBE  ”; VOLUME(L)
END

FUNCTION TSAREA (L)
TSAREA = 6 * L ^ 2
END FUNCTION

FUNCTION VOLUME (L)
VOLUME = L ^ 3
END FUNCTION

46. 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





47. Input principal, rate, time and display total amount.
REM PROGRAM TO DISPLAY TOTAL AMOUNT
CLS
INPUT “ENTER PRINCIPAL”; P
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
I = P* T * R / 100
A = P + I
PRINT “TOTAL AMOUNT=”; A
END
USING SUB PROCEDURE
DECLARE SUB AMOUNT (P, T, R)
CLS
INPUT “ENTER PRINCIPAL”; P
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
CALL AMOUNT(P, T, R)
END
SUB AMOUNT (P, T, R)
I = P* T * R / 100
A = P + I
PRINT “TOTAL AMOUNT=”; A
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION AMOUNT (P, T, R)
CLS
INPUT “ENTER PRINCIPAL”; P
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
PRINT “TOTAL AMOUNT=”; AMOUNT(P, T, R)
END
FUNCTION AMOUNT (P, T, R)
I = P* T * R / 100
A = P + I
AMOUNT = A
END FUNCTION








48. Input principal, rate, time and display simple interest and total amount.
CLS
INPUT “ENTER PRINCIPAL”; P
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
I = P* T * R / 100
A = P + I
PRINT “SIMPLE INTEREST=”;I
PRINT “TOTAL AMOUNT=”; A
END
USING SUB PROCEDURE
DECLARE SUB INTEREST (P, T, R)
DECLARE SUB AMOUNT (P)
COMMON SHARED I
CLS
INPUT “ENTER PRINCIPAL, TIME, RATE”; P, T, R
CALL AMOUNT(P)
CALL INTEREST(P, T, R)
END
SUB INTEREST (P, T, R)
I = P* T * R / 100
PRINT “SIMPLE INTEREST =”; I
END SUB
SUB AMOUNT (P)
A = P + I
PRINT “TOTAL AMOUNT=”; A
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION INTEREST (P, T, R)
DECLARE FUNCTION AMOUNT (P)
COMMON SHARED I
CLS
INPUT “ENTER PRINCIPAL, TIME, RATE”; P, T, R
PRINT “SIMPLE INTEREST =”; INTEREST(P, T, R)
PRINT “TOTAL AMOUNT=”; AMOUNT(P)
END
FUNCTION INTEREST (P, T, R)
I = P* T * R / 100
INTEREST = I
END FUNCTION
FUNCTION AMOUNT (P)
A = P + I
AMOUNT = A : END FUNCTION
49. Input amount, rate, time and display principal.

REM PROGRAM TO INPUT AMOUNT, RATE AND TIME AND DISPLAY PRINCIPAL
CLS
INPUT “ENTER AMOUNT”; A
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
P = (100 * A) / (R * T + 100)
PRINT “PRINCIPAL AMOUNT=”; P
END
USING SUB PROCEDURE
DECLARE SUB PRINCIPAL (A, T, R)
CLS
INPUT “ENTER AMOUNT”; A
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
CALL PRINCIPAL(A, T, R)
END
SUB PRINCIPAL (A, T, R)
P = (100 * A) / (R * T + 100)
PRINT “PRINCIPAL AMOUNT=”; P
END SUB


USING FUNCTION PROCEDURE

DECLARE FUNCTION PRINCIPAL (A, T, R)
CLS
INPUT “ENTER AMOUNT”; A
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
PRINT “PRINCIPAL AMOUNT=”; PRINCIPAL(A, T, R)
END

FUNCTION PRINCIPAL (A, T, R)
P = (100 * A) / (R * T + 100)
PRINCIPAL = P
END FUNCTION



50. Input simple interest, rate, time and display principal.

REM PROGRAM TO INPUT SIMPLE INEREST, RATE AND TIME AND DISPLAY PRINCIPAL
CLS
INPUT “ENTER INTEREST”; I
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
P = (100 * I) / (R * T)
PRINT “PRINCIPAL AMOUNT=”; P
END

USING SUB PROCEDURE

DECLARE SUB PRINCIPAL (I, T, R)
CLS
INPUT “ENTER INTEREST”; I
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
CALL PRINCIPAL(I, T, R)
END

SUB PRINCIPAL (I, T, R)
P = (100 * I) / (R * T)
PRINT “PRINCIPAL AMOUNT=”; P
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION PRINCIPAL (I, T, R)
CLS
INPUT “ENTER INTEREST”; I
INPUT “ENTER TIME”; T
INPUT “ENTER RATE”;R
PRINT “PRINCIPAL AMOUNT=”; PRINCIPAL(I, T, R)
END
FUNCTION PRINCIPAL (I, T, R)
P = (100 * I) / (R * T)
PRINCIPAL = P
END FUNCTION


51. calculate profit

REM PROGRAM TO CALCULATE PROFIT
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
P = SP - CP
PRINT “PROFIT AMOUNT=”; P
END

USING SUB PROCEDURE

DECLARE SUB PROFIT (CP, SP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
CALL PROFIT(CP, SP)
END

SUB PROFIT(CP, SP)
P = SP - CP
PRINT “PROFIT AMOUNT=”; P
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION PROFIT (CP, SP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
PRINT “PROFIT AMOUNT=”; PROFIT(CP, SP)
END

FUNCTION PROFIT(CP, SP)
P = SP – CP
PROFIT = P
END FUNCTION








52. calculate loss

REM PROGRAM TO CALCULATE LOSS
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
L = CP - SP
PRINT “LOSS AMOUNT=”; L
END

USING SUB PROCEDURE

DECLARE SUB LOSS (CP, SP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
CALL LOSS(CP, SP)
END

SUB LOSS (CP, SP)
L = CP - SP
PRINT “LOSS AMOUNT=”; L
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION LOSS (CP, SP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
PRINT “LOSS AMOUNT=”; LOSS(CP, SP)
END

FUNCTION LOSS (CP, SP)
L = CP – SP
LOSS = P
END FUNCTION








53. calculate profit percentage

REM PROGRAM TO CALCULATE PROFIT PERCENTAGE
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
PP = ((SP – CP) / CP) * 100
PRINT “PROFIT PERCENTAGE=”; PP
END

USING SUB PROCEDURE

DECLARE SUB PROFITP (CP, SP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
CALL PROFITP(CP, SP)
END

SUB PROFITP (CP, SP)
PP = ((SP – CP) / CP) * 100
PRINT “PROFIT PERCENTAGE=”; PP
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION PROFITP (CP, SP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
PRINT “PROFIT PERCENTAGE=”; PROFITP(CP, SP)
END

FUNCTION PROFITP(CP, SP)
PP = ((SP – CP) / CP) * 100
PROFIT = PP
END FUNCTION







54. calculate loss percentage

REM PROGRAM TO CALCULATE LOSS PERCENTAGE
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
LP = ((CP – SP) / CP) * 100
PRINT “LOSS PERCENTAGE=”; LP
END

USING SUB PROCEDURE

DECLARE SUB LOSSP (CP, SP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
CALL LOSSP(CP, SP)
END

SUB LOSSP (CP, SP)
LP = ((CP – SP) / CP) * 100
PRINT “LOSS PERCENTAGE=”; LP
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION LOSSP (CP, SP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
PRINT “LOSS PERCENTAGE=”; LOSSP(CP, SP)
END

FUNCTION LOSSP (CP, SP)
LP = ((CP – SP) / CP) * 100
LOSS = LP
END FUNCTION






55. calculate selling price  where profit percentage and cost price is given

REM PROGRAM TO CALCULATE SELLING PRICE WHERE PROFIT PERCENTAGE AND COST PRICE IS GIVEN
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER PROFIT PERCENTAGE”; PP
SP = CP * (100 + PP) / 100
PRINT “SELLING PRICE=”; SP
END

USING SUB PROCEDURE

DECLARE SUB SELLINGP (CP, PP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER PROFIT PERCENTAGE”; PP
CALL SELLINGP(CP, PP)
END

SUB SELLINGP(CP, PP)
SP = CP * (100 + PP) / 100
PRINT “SELLING PRICE=”; SP
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION SELLINGP (CP, PP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER PROFIT PERCENTAGE”; PP
PRINT “SELLING PRICE=”; SELLINGP(CP, PP)
END

FUNCTION SELLINGP(CP, PP)
SP = CP * (100 + PP) / 100
SELLINGP = SP
END FUNCTION





56. calculate selling price  where loss percentage and cost price is given

REM PROGRAM TO CALCULATE SELLING PRICE WHERE LOSS PERCENTAGE AND COST PRICE IS GIVEN
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER LOSS PERCENTAGE”; LP
SP = CP * (100 - LP) / 100
PRINT “SELLING PRICE=”; SP
END

USING SUB PROCEDURE

DECLARE SUB SELLINGP (CP, LP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER LOSS PERCENTAGE”; LP
CALL SELLINGP(CP, LP)
END

SUB SELLINGP(CP, LP)
SP = CP * (100 - LP) / 100
PRINT “SELLING PRICE=”; SP
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION SELLINGP (CP, LP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER LOSS PERCENTAGE”; LP
PRINT “SELLING PRICE=”; SELLINGP(CP, LP)
END

FUNCTION SELLINGP(CP, LP)
SP = CP * (100 - LP) / 100
SELLINGP = SP
END FUNCTION




57. calculate cost price  where loss percentage and selling price is given

REM PROGRAM TO CALCULATE COST PRICE WHERE LOSS PERCENTAGE AND SELLING PRICE IS GIVEN
CLS
INPUT “ENTER SELLING PRICE”; SP
INPUT “ENTER LOSS PERCENTAGE”; LP
CP = (SP * 100) / (100 – LP)
PRINT “COST PRICE=”; CP
END

USING SUB PROCEDURE

DECLARE SUB COSTP (SP, LP)
CLS
INPUT “ENTER SELLING PRICE”; SP
INPUT “ENTER LOSS PERCENTAGE”; LP
CALL COSTP(SP, LP)
END

SUB COSTP(SP, LP)
CP = (SP * 100) / (100 – LP)
PRINT “COST PRICE=”; CP
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION COSTP (SP, LP)
CLS
INPUT “ENTER SELLING PRICE”; SP
INPUT “ENTER LOSS PERCENTAGE”; LP
PRINT “COST PRICE=”; COSTP(SP, LP)
END

FUNCTION COSTP(SP, LP)
CP = (SP * 100) / (100 – LP)
COSTP = CP
END FUNCTION




58. calculate cost price  where profit percentage and selling price is given
REM PROGRAM TO CALCULATE COST PRICE WHERE PROFIT PERCENTAGE AND SELLING PRICE IS GIVEN
CLS
INPUT “ENTER SELLING PRICE”; SP
INPUT “ENTER PROFIT PERCENTAGE”; PP
CP = (SP * 100) / (100 + PP)
PRINT “COST PRICE=”; CP
END

USING SUB PROCEDURE

DECLARE SUB COSTP (SP, PP)
CLS
INPUT “ENTER SELLING PRICE”; SP
INPUT “ENTER PROFIT PERCENTAGE”; PP
CALL COSTP(SP, LP)
END

SUB COSTP(SP, PP)
CP = (SP * 100) / (100 + PP)
PRINT “COST PRICE=”; CP
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION COSTP (SP, PP)
CLS
INPUT “ENTER SELLING PRICE”; SP
INPUT “ENTER PROFIT PERCENTAGE”; PP
PRINT “COST PRICE=”; COSTP(SP, PP)
END

FUNCTION COSTP(SP, PP)
CP = (SP * 100) / (100 + PP)
COSTP = CP
END FUNCTION



59. Input selling price and cost price calculate profit or loss percentage.
CLS
INPUT “ENTER COST PRICE&SELLING PRICE”; CP, SP
IF CP > SP THEN
LP = ((CP - SP)/CP) * 100
PRINT "LOSS PERCENTAGE="; LP
ELSEIF SP > CP THEN
PP = ((SP - CP)/CP) * 100
PRINT "PROFIT PERCENTAGE"; PP
ELSE
PRINT "NEITHER PROFIT NOR LOSS"
END IF : END
USING SUB PROCEDURE
DECLARE SUB PP(SP, CP)
CLS
INPUT “ENTER COST PRICE&SELLING PRICE”; CP, SP
CALL PP(SP, CP)
END
SUB PP (SP, CP)
IF CP > SP THEN
LP = ((CP - SP)/CP) * 100
PRINT "LOSS PERCENTAGE="; LP
ELSEIF SP > CP THEN
PP = ((SP - CP)/CP) * 100
PRINT "PROFIT PERCENTAGE"; PP
ELSE
PRINT "NEITHER PROFIT NOR LOSS"
END IF : END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION PP(SP, CP)
CLS
INPUT “ENTER COST PRICE”; CP
INPUT “ENTER SELLING PRICE”; SP
C = PP(SP, CP) : END
FUNCTION PP (SP, CP)
IF CP > SP THEN
LP = ((CP - SP)/CP) * 100
PRINT "LOSS PERCENTAGE="; LP
ELSEIF SP > CP THEN
PP = ((SP - CP)/CP) * 100
PRINT "PROFIT PERCENTAGE"; PP
ELSE
PRINT "NEITHER PROFIT NOR LOSS"
END IF : END FUNCTION

60. to accept temperature in Fahrenheit  from user and convert into the Celsius.

REM PROGRAM TO CONVERT TEMPERATURE IN FARENHEIT TO CELCIUS
CLS
INPUT “ENTER TEMPERATURE IN FARENHEIT”; F
C = (F – 32) * (5 / 9)
PRINT “TEMPERATURE IN CELCIUS=”; C
END

USING SUB PROCEDURE

DECLARE SUB CONVERT (F)
CLS
INPUT “ENTER TEMPERATURE IN FARENHEIT”; F
CALL CONVERT (F)
END

SUB CONVERT (F)
C = (F – 32) * (5 / 9)
PRINT “TEMPERATURE IN CELCIUS=”; C
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION CONVERT (F)
CLS
INPUT “ENTER TEMPERATURE IN FARENHEIT”; F
PRINT “TEMPERATURE IN CELCIUS=”; CONVERT (F)
END

FUNCTION  CONVERT (F)
C = (F – 32) * (5 / 9)
CONVERT = C
END FUNCTION


61. to accept temperature in Celcius from user and convert into the Farenheit.

REM PROGRAM TO CONVERT TEMPERATURE IN CELCIUS TO FARENHEIT
CLS
INPUT “ENTER TEMPERATURE IN CELCIUS”; C
F = C * (9 / 5) + 32
PRINT “TEMPERATURE IN FARENHEIT=”; F
END

USING SUB PROCEDURE

DECLARE SUB CONVERT (C)
CLS
INPUT “ENTER TEMPERATURE IN CELCIUS”; C
CALL CONVERT (C)
END

SUB CONVERT (C)
F = C * (9 / 5) + 32
PRINT “TEMPERATURE IN FARENHEIT=”; F
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION CONVERT (C)
CLS
INPUT “ENTER TEMPERATURE IN CELCIUS”; C
PRINT “TEMPERATURE IN FARENHEIT=”; CONVERT (C)
END

FUNCTION CONVERT (C)
F = C * (9 / 5) + 32
CONVERT = F
END FUNCTION







62. to accept currency value in Nepalese Rupees and convert into Indian Currency

REM PROGRAM TO CONVERT NC VALUE INTO IC VALUE
CLS
INPUT “ENTER VALUE IN NEPALESE RUPEES”; NC
IC = NC / 1.6
PRINT “INDIAN CURRENCY VALUE=”; IC
END

USING SUB PROCEDURE

DECLARE SUB CONVERT (NC)
CLS
INPUT “ENTER VALUE IN NEPALESE RUPEES”; NC
CALL CONVERT (NC)
END

SUB CONVERT (NC)
IC = NC / 1.6
PRINT “INDIAN CURRENCY VALUE=”; IC
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION CONVERT (NC)
CLS
INPUT “ENTER VALUE IN NEPALESE RUPEES”; NC
PRINT “INDIAN CURRENCY VALUE=”; CONVERT (NC)
END

FUNCTION CONVERT (NC)
IC = NC / 1.6
CONVERT = IC
END FUNCTION






63. to accept currency value in Indian Currency and convert into Nepalese Rupees

REM PROGRAM TO CONVERT IC VALUE INTO NC VALUE
CLS
INPUT “ENTER VALUE IN INDIAN VALUE”; IC
NC = IC * 1.6
PRINT “NEPALESE CURRENCY VALUE=”; NC
END

USING SUB PROCEDURE

DECLARE SUB CONVERT (IC)
CLS
INPUT “ENTER VALUE IN INDIAN VALUE”; IC
CALL CONVERT (IC)
END

SUB CONVERT (IC)
NC = IC * 1.6
PRINT “NEPALESE CURRENCY VALUE=”; NC
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION CONVERT (IC)
CLS
INPUT “ENTER VALUE IN INDIAN VALUE”; IC
PRINT “NEPALESE CURRENCY VALUE=”; CONVERT (IC)
END

FUNCTION CONVERT (IC)
NC = IC * 1.6
CONVERT = NC
END FUNCTION






64. to accept currency value in dollar and convert into Nepalese Rupees

REM PROGRAM TO CONVERT DOLLAR INTO NC VALUE
CLS
INPUT “ENTER CURRENCY VALUE IN DOLLAR”; D
NC = D * 90
PRINT “NEPALESE CURRENCY VALUE=”; NC
END

USING SUB PROCEDURE

DECLARE SUB CONVERT (D)
CLS
INPUT “ENTER CURRENCY VALUE IN DOLLAR”; D
CALL CONVERT (D)
END

SUB CONVERT (D)
NC = D * 90
PRINT “NEPALESE CURRENCY VALUE=”; NC
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION CONVERT (D)
CLS
INPUT “ENTER CURRENCY VALUE IN DOLLAR”; D
PRINT “NEPALESE CURRENCY VALUE=”; CONVERT (D)
END

FUNCTION CONVERT (D)
NC = D * 90
CONVERT = NC
END FUNCTION






65. to accept currency value in Nepalese Rupees and convert into dollar.

REM PROGRAM TO CONVERT NC VALUE INTO DOLLAR
CLS
INPUT “ENTER VALUE IN NEPALESE RUPEES”; NC
D = NC / 90
PRINT “DOLLAR CURRENCY VALUE=”; D
END

USING SUB PROCEDURE

DECLARE SUB CONVERT (NC)
CLS
INPUT “ENTER VALUE IN NEPALESE RUPEES”; NC
CALL CONVERT (NC)
END

SUB CONVERT (NC)
D = NC / 90
PRINT “DOLLAR CURRENCY VALUE=”; D
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION CONVERT (NC)
CLS
INPUT “ENTER VALUE IN NEPALESE RUPEES”; NC
PRINT “DOLLAR CURRENCY VALUE=”;  CONVERT (NC)
END

FUNCTION CONVERT (NC)
D = NC / 90
CONVERT = D
END FUNCTION




66. Input number as paise and convert into rupees only.

REM PROGRAM TO CONVERT PAISE INTO RUPEES
CLS
INPUT “ENTER VALUE IN PAISE”; P
R = P / 100
PRINT P; “PAISE =”; “RS.”; R
END

USING SUB PROCEDURE

DECLARE SUB CONVERT (P)
CLS
INPUT “ENTER VALUE IN PAISE”; P
CALL CONVERT (P)
END

SUB CONVERT (P)
R = P / 100
PRINT P; “PAISE =”; “RS.”; R
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION CONVERT (P)
CLS
INPUT “ENTER VALUE IN PAISE”; P
PRINT P; “PAISE =”; “RS.”; CONVERT(P)
END

FUNCTION CONVERT (IC)
R = P / 100
CONVERT = R
END FUNCTION


67. Input days and convert into years, months and days.

REM PROGRAM TO INPUT DAYS AND CONVERT INTO YEARS, MONTHS AND DAYS
CLS
INPUT “ENTER DAYS”; D
Y = D \ 365
MO = D MOD 365
M = MO \ 30
D = MO MOD 30
PRINT Y; “YEARS ” ; M; “MONTHS”; D; “DAYS”
END
USING SUB PROCEDURE
DECLARE SUB CONVERT(D)
CLS
INPUT “ENTER DAYS”; D
CALL CONVERT(D)
END
SUB CONVERT (D)
Y = D \ 365
MO = D MOD 365
M = MO \ 30
D = MO MOD 30
PRINT Y; “YEARS ” ; M; “MONTHS”; D; “DAYS”
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION CONVERT(D)
COMMON SHARED Y, M
CLS
INPUT “ENTER DAYS”; D
DD = CONVERT (D)
PRINT Y; “YEARS ” ; M; “MONTHS”; DD; “DAYS”
END
FUNCTION CONVERT (D)
Y = D \ 365
MO = D MOD 365
M = MO \ 30
D S= MO MOD 30
CONVERT = DS
END FUNCTION



68. Input seconds and convert into hours minutes and seconds.
REM PROGRAM TO INPUT SECONDS AND CONVERT INTO HOURS AND MINUTES AND SECONDS
CLS
INPUT “ENTER TIME IN SECONDS”; S
H = S \ 3600
MI = S MOD 3600
M = MI \ 60
S = MI MOD 60
PRINT H; “HOURS”; M; “MINUTES”;  S; “SECONDS”
END

USING SUB PROCEDURE
DECLARE SUB CONVERT(S)
CLS
INPUT “ENTER TIME IN SECONDS”; S
CALL CONVERT(S)
END
SUB CONVERT (S)
H = S \ 3600
MI = S MOD 3600
M = MI \ 60
S = MI MOD 60
PRINT H; “HOURS”; M; “MINUTES”;  S; “SECONDS”
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION CONVERT(S)
COMMON SHARED H, M
CLS
INPUT “ENTER TIME IN SECONDS”; S
SS = CONVERT (S)
PRINT H; “HOURS”; M; “MINUTES”;  SS; “SECONDS”
END
FUNCTION CONVERT (S)
H = S \ 3600
MI = S MOD 3600
M = MI \ 60
S E= MI MOD 60
CONVERT = SE
END FUNCTION


69. Input distance in kilometer and convert into
meter.
REM PROGRAM TO CONVERT KILOMETER TO METER
CLS
INPUT”ENTER DISTANCE IN KILOMETER”; K
M = K * 1000
PRINT “DISTANCE IN METER=”; M
END

USING SUB PROCEDURE
DECLARE SUB CONVERT(K)
CLS
INPUT”ENTER DISTANCE IN KILOMETER”; K
CALL CONVERT(K)
END

SUB CONVERT (K)
M = K * 1000
PRINT “DISTANCE IN METER=”; M
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION CONVERT(K)
CLS
INPUT”ENTER DISTANCE IN KILOMETER”; K
PRINT “DISTANCE IN METER=”; CONVERT(K)
END

FUNCTION CONVERT (K)
M = K * 1000
CONVERT = M
END FUNCTION












70. Input distance in meter and convert into kilometer and meter.
REM PROGRAM TO CONVERT METER TO KILOMETER
CLS
INPUT”ENTER DISTANCE IN METER”; M
K = M \ 1000
MM = M MOD 1000
PRINT K; “KILOMETER”; MM; “METER”
END

USING SUB PROCEDURE
DECLARE SUB CONVERT(M)
CLS
INPUT”ENTER DISTANCE IN METER”; M
CALL CONVERT(M)
END

SUB CONVERT (M)
K = M \ 1000
MM = K MOD 1000
PRINT K; “KILOMETER”; MM; ”METER”
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION CONVERT(M)
COMMON SHARED K
CLS
INPUT”ENTER DISTANCE IN METER”; M
KK = CONVERT(M)
PRINT K; “KILOMETER”; KK; ”METER”
END

FUNCTION CONVERT (M)
K = M \ 1000
MM = K MOD 1000
CONVERT = MM
END FUNCTION




71. Input distance in kilometer and convert into miles.
REM PROGRAM TO CONVERT KILOMETER TO MILES
CLS
INPUT”ENTER DISTANCE IN KILOMETER”; K
M = K * 0.62
PRINT “DISTANCE IN MILES=”; M
END

USING SUB PROCEDURE
DECLARE SUB CONVERT(K)
CLS
INPUT”ENTER DISTANCE IN KILOMETER”; K
CALL CONVERT(K)
END

SUB CONVERT (K)
M = K * 0.62
PRINT “DISTANCE IN MILES=”; M
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION CONVERT(K)
CLS
INPUT”ENTER DISTANCE IN KILOMETER”; K
PRINT “DISTANCE IN MILES=”; CONVERT(K)
END

FUNCTION CONVERT (K)
M = K * 0.62
CONVERT = M
END FUNCTION













72. Input value in kilogram and convert into grams.
REM PROGRAM TO CONVERT VALUE IN KILOGRAM TO GRAMS
CLS
INPUT”ENTER VALUE IN KILOGRAM”; K
G = K * 1000
PRINT “VALUE IN GRAMS=”; G
END

USING SUB PROCEDURE
DECLARE SUB CONVERT(K)
CLS
INPUT”ENTER VALUE IN KILOGRAM”; K
CALL CONVERT(K)
END

SUB CONVERT (K)
G = K * 1000
PRINT “VALUE IN GRAMS=”; G
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION CONVERT(K)
CLS
INPUT”ENTER VALUE IN KILOGRAM”; K
PRINT “VALUE IN GRAMS=”; CONVERT(K)
END

FUNCTION CONVERT (K)
G = K * 1000
CONVERT = G
END FUNCTION













73. Input value in meter and convert into inch.
REM PROGRAM TO CONVERT VALUE IN METER TO INCH
CLS
INPUT”ENTER VALUE IN METER”; M
I = M * 39.37
PRINT “VALUE IN INCH=”; I
END

USING SUB PROCEDURE
DECLARE SUB CONVERT(M)
CLS
INPUT”ENTER VALUE IN METER”; M
CALL CONVERT(M)
END

SUB CONVERT (M)
I = M * 39.37
PRINT “VALUE IN INCH=”; I
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION CONVERT(M)
CLS
INPUT”ENTER VALUE IN METER”; M
PRINT “VALUE IN INCH=”; CONVERT(M)
END

FUNCTION CONVERT (M)
I = M * 39.37
CONVERT = I
END FUNCTION

74.  Calculate distance.[S=UT+1/2(AT2)]
REM CALCULATE DISTANCE
CLS
INPUT “ENTER INITIAL VELOCITY”; U
INPUT “ENTER TIME”; T
INPUT “ENTER ACCELARATION”; A
S = U * T + 1 / 2 * A * T ^ 2
PRINT “DISTANCE TRAVELLED = “; S
END

USING SUB PROCEDURE

DECLARE SUB DISTANCE (U, T, A)
CLS
INPUT “ENTER INITIAL VELOCITY”; U
INPUT “ENTER TIME”; T
INPUT “ENTER ACCELARATION”; A
CALL DISTANCE (U, T, A)
END

SUB DISTANCE (U, T, A)
S = U * T + 1 / 2 * A * T ^ 2
PRINT “DISTANCE TRAVELLED = “; S
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION DISTANCE (U, T, A)
CLS
INPUT “ENTER INITIAL VELOCITY”; U
INPUT “ENTER TIME”; T
INPUT “ENTER ACCELARATION”; A
PRINT “DISTANCE TRAVELLED = “;DISTANCE (U, T, A)
END

FUNCTION DISTANCE (U, T, A)
DISTANCE = U * T + 1 / 2 * A * T ^ 2
END FUNCTION





75.   Calculate potential energy of body. [PE=MGH where G=9.8]

REM CALCULATE POTENTIAL ENERGY OF BODY
CLS
INPUT “ ENTER MASS”; M
INPUT “ENTER HEIGHT”; H
P = M * 9.8 * H
PRINT “POTENTIAL ENERGY OF BODY”; P
END

USING SUB PROCEDURE
DECLARE SUB CALULATE(M, H)
CLS
INPUT “ ENTER MASS”; M
INPUT “ENTER HEIGHT”; H
CALL CALULATE (M, H)
END

SUB CALULATE (M, H)
P = M * 9.8 * H
PRINT “POTENTIAL ENERGY OF BODY”; P
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION CALCULATE (M, H)
CLS
INPUT “ ENTER MASS”; M
INPUT “ENTER HEIGHT”; H
PRINT “POTENTIAL ENERGY OF BODY”; CALCULATE (M, H)
END

FUNCTION CALCULATE (M, H)
CALULATE = M * 9.8 * H
END FUNCTION







76. Ask quantity of pen, copy and pencil and their rate and find out the total amount.
CLS
INPUT “ENTER QUANTITY OF PEN”;QP
INPUT “ENTER RATE OF PEN”; RP
INPUT “ENTER QUANTITY OF COPY”; QC
INPUT “ENTER RATE OF COPY”; RC
INPUT “ENTER QUANTITY OF PENCIL”; QPC
INPUT” ENTER RATE OF PENCIL”; RPC
TA = (QP * RP) + (QC * RC) + (QPC * RPC)
PRINT “TOTAL AMOUNT =”; TA
END
USING SUB PROCEDURE
DECLARE SUB TOTAL ()
COMMON SHARED QP, RP, QC, RC, QPC, RPC
CLS
INPUT “ENTER QUANTITY OF PEN”;QP
INPUT “ENTER RATE OF PEN”; RP
INPUT “ENTER QUANTITY OF COPY”; QC
INPUT “ENTER RATE OF COPY”; RC
INPUT “ENTER QUANTITY OF PENCIL”; QPC
INPUT” ENTER RATE OF PENCIL”; RPC
CALL TOTAL
END
SUB TOTAL
TA = (QP * RP) + (QC * RC) + (QPC * RPC)
PRINT “TOTAL AMOUNT =”; TA
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION TOTAL ()
COMMON SHARED QP, RP, QC, RC, QPC, RPC
CLS
INPUT “ENTER QUANTITY OF PEN”;QP
INPUT “ENTER RATE OF PEN”; RP
INPUT “ENTER QUANTITY OF COPY”; QC
INPUT “ENTER RATE OF COPY”; RC
INPUT “ENTER QUANTITY OF PENCIL”; QPC
INPUT” ENTER RATE OF PENCIL”; RPC
PRINT “TOTAL AMOUNT =”; TOTAL
END
FUNCTION  TOTAL
TA = (QP * RP) + (QC * RC) + (QPC * RPC)
TOTAL = TA
END FUNCTION

77. Calculate total saving of a man if he earns Rs. 10,000 per month and spends 20% on food, 15% on children’s education, 10% on entertainment and 20% on rent.
REM CALCULATE TOTAL SAVINGS OF A MAN
CLS
LET S = 10000
F = 20 / 100 * S
C = 15 / 100 * S
E = 10 / 100 * S
R = 20 / 100 * S
T = S – (F + C + E + R)
PRINT “ TOTAL SAVING =”; T
END
USING SUB PROCEDURE
DECLARE SUB SAVING ( S)
COMMON SHARED F, C, E, R
CLS
F = 20 / 100 * S
C = 15 / 100 * S
E = 10 / 100 * S
R = 20 / 100 * S
CALL SAVING(S)
END
SUB SAVING(10000 )
T = S – (F + C + E + R)
PRINT “ TOTAL SAVING =”; T
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION SAVING ( S)
COMMON SHARED F, C, E, R
CLS
LET S = 10000
F = 20 / 100 * S : C = 15 / 100 * S
E = 10 / 100 * S
R = 20 / 100 * S
PRINT SAVING(S)
END
FUNCTION SAVING( S)
T = S – (F + C + E + R)
SAVING = T
 END FUNCTION



78. Input sales amount and rate of commission then calculate commission and return nt sales. [ns=sa-c)
REM PROGRAM TO CALCULATE NET SALES
CLS
INPUT “ENTER SALES AMOUNT”; A
INPUT “ENTER COMMISSION RATE”; R
C = R / 100 * A
NS = A - C
PRINT “NET SALES=”; NS
END
USING SUB PROCEDURE
DECLARE SUB SALES(A, R)
CLS
INPUT “ENTER SALES AMOUNT”; A
INPUT “ENTER COMMISSION RATE”; R
CALL SALES (A, R)
END
SUB SALES(A, R)
C = R / 100 * A
NS = A - C
PRINT “NET SALES=”; NS : END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION SALES(A, R)
CLS
INPUT “ENTER SALES AMOUNT”; A
INPUT “ENTER COMMISSION RATE”; R
PRINT “NET SALES=”; SALES (A, R)
END
FUNCTION SALES(A, R)
C = R / 100 * A
NS = A - C
SALES = NS
END FUNCTION










79. An organization pays its employees allowance at the rate of 10% of basic salary. WAP to input the salary of the employees and calculate the allowances.

CLS
INPUT “ENTER BASIC SALARY”; S
A = 10 / 100 * S
PRINT “ALLOWANCE=”; A
END

USING SUB PROCEDURE
DECLARE SUB ALLOWANCE (S)
CLS
INPUT “ENTER BASIC SALARY”; S
CALL ALLOWANCE (S)
END
SUB ALLOWANCE (S)
A = 10 / 100 * S
PRINT “ALLOWANCE=”; A
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION ALLOWANCE (S)
CLS
INPUT “ENTER BASIC SALARY”; S
PRINT “NET SALES=”; ALLOWANCE (S)
END

FUNCTION ALLOWANCE (S)
A = 10 / 100 * S
ALLOWANCE = S
END FUNCTION














80. 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



81. WAP to input any number and check whether the given no. is divisible by 5 or not.
REM
CLS
INPUT “ENTER ANY NUMBER”; N
IF N MOD 5 = 0 THEN
PRINT N; "IS DIVISIBLE BY 5”
ELSE
PRINT N; "IS NOT DIVISIBLE BY 5”
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 5 = 0 THEN
PRINT N; "IS DIVISIBLE BY 5”
ELSE
PRINT N; "IS NOT DIVISIBLE BY 5”
END IF
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION CHECK$ (N)
CLS
INPUT “ENTER ANY NUMBER”; N
PRINT N; “IS “; CHECK$(N) ; “BY 5”
END
FUNCTION CHECK$ (N)
IF N MOD 5 = 0 THEN
CHECK$ = “DIVISIBLE”
ELSE
CHECK$ = “NOT DIVISIBLE”
END IF : END FUNCTION




82.   WAP to input any number and check whether the given no. is divisible by 3 and 7 or not.
REM
CLS
INPUT “ENTER ANY NUMBER”; N
IF N MOD 3 = 0 AND N MOD 7 = 0 THEN
PRINT N; "IS COMPLETELY DIVISIBLE BY 3 AND 7”
ELSE
PRINT N; "IS NOT COMPLETELY DIVISIBLE BY 3 AND 7”
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 3 = 0 AND N MOD 7 = 0 THEN
PRINT N; "IS COMPLETELY DIVISIBLE BY 3 AND 7”
ELSE
PRINT N; "IS NOT COMPLETELY DIVISIBLE BY 3 AND 7”
END IF
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION CHECK$ (N)
CLS
INPUT “ENTER ANY NUMBER”; N
PRINT N; “IS “; CHECK$(N) ; “BY 3 AND 7”
END
FUNCTION CHECK$ (N)
IF N MOD 3 = 0 AND N MOD 7 = 0 THEN
CHECK$ = “DIVISIBLE”
ELSE
CHECK$ = “NOT DIVISIBLE”
END IF : END FUNCTION
83.   WAP to input any number and check whether the given no. is positive, negative or zero.
CLS
INPUT “ENTER ANY NUMBER”; N
IF N > 0 THEN
PRINT N; "IS POSITIVE NUMBER”
ELSEIF N < 0 THEN
PRINT N; "IS NEGATIVE NUMBER”
ELSE
PRINT N; "IS ZERO”
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 > 0 THEN
PRINT N; "IS POSITIVE NUMBER”
ELSEIF N < 0 THEN
PRINT N; "IS NEGATIVE NUMBER”
ELSE
PRINT N; "IS ZERO”
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 > 0 THEN
CHECK$ = “POSITIVE NUMBER”
ELSEIF N < 0 THEN
CHECK$ = “NEGATIVE NUMBER”
ELSE
CHECK$ = “ZERO”
END IF : END FUNCTION
84.   WAP to input a year and display whether that year is a leap year or not. [divisible by 4 but not 100]
REM
CLS
INPUT “ENTER YEAR”; Y
IF Y MOD 4 = 0 AND Y MOD 100 <> 0 OR Y MOD 400 = 0 THEN
PRINT Y; "IS LEAP YEAR”
ELSE
PRINT Y; "IS NOT LEAP YEAR”
END IF
END
USING SUB PROCEDURE
DECLARE SUB CHECK (Y)
CLS
INPUT “ENTER YEAR”; Y
CALL CHECK (Y)
END
SUB CHECK (Y)
IF Y MOD 4 = 0 AND Y MOD 100 <> 0 OR Y MOD 400 = 0 THEN
PRINT Y; "IS LEAP YEAR”
ELSE
PRINT Y; "IS NOT LEAP YEAR”
END IF
END SUB

DECLARE FUNCTION CHECK$ (Y)
CLS
INPUT “ENTER YEAR”; Y
PRINT Y; CHECK$(Y)
END
FUNCTION CHECK$ (Y)
IF Y MOD 4 = 0 AND Y MOD 100 <> 0 OR Y MOD 400 = 0 THEN
CHECK$ = “IS LEAP YEAR”
ELSE
CHECK$ = “IS NOT LEAP YEAR”
END IF
END FUNCTION
85.   WAP to input any number and display whether it is odd or even.
      REM
      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

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

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

86. 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




87.   WAP to input any number and check whether the given no. is positive or negative.

REM
CLS
INPUT “ENTER ANY NUMBER”; N
IF N > 0 THEN
PRINT N; IS POSITIVE NUMBER”
ELSEIF N < 0 THEN
PRINT N; IS NEGATIVE 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 > 0 THEN
PRINT N; "IS POSITIVE NUMBER”
ELSEIF N < 0 THEN
PRINT N; "IS NEGATIVE 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 > 0 THEN
CHECK$ = “POSITIVE NUMBER”
ELSEIF N < 0 THEN
CHECK$ = “NEGATIVE NUMBER”
END IF
END FUNCTION
88. Input a mark in a subject of a student and check if the student is pass or nor. [Pass Mark >=40]

REM
CLS
INPUT “ENTER MARKS”; M
IF M >= 40 THEN
PRINT “YOU ARE PASS”
ELSE
PRINT “ YOU ARE FAIL”
END IF
END

USING SUB PROCEDURE
DECLARE SUB CHECK (M)
CLS
INPUT “ENTER MARKS”; M
CALL CHECK (M)
END
SUB CHECK (N)
IF M >= 40 THEN
PRINT “YOU ARE PASS”
ELSE
PRINT “ YOU ARE FAIL”
END IF
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION CHECK$ (M)
CLS
INPUT “ENTER MARKS”; M
PRINT “YOU ARE “;CHECK$(M)
END

FUNCTION CHECK$ (M)
IF M >= 40 THEN
CHECK$ =“PASS”
ELSE
CHECK$ = “FAIL”
END IF
END FUNCTION
89. Input the age of a person and find out whether the person is eligible to drive or not. [age >=16]

REM
CLS
INPUT “ENTER YOUR AGE”; A
IF A >= 16 THEN
PRINT “YOU ARE ELIGIBLE TO DRIVE”
ELSE
PRINT “ YOU ARE NOT ELIGIBLE TO DRIVE”
END IF
END
USING SUB PROCEDURE

DECLARE SUB CHECK (A)
CLS
INPUT “ENTER YOUR AGE”; A
CALL CHECK (A)
END

SUB CHECK (A)
IF A >= 16 THEN
PRINT “YOU ARE ELIGIBLE TO DRIVE”
ELSE
PRINT “ YOU ARE NOT ELIGIBLE TO DRIVE”
END IF
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION CHECK$ (A)
CLS
INPUT “ENTER YOUR AGE”; A
PRINT “YOU ARE “;CHECK$(A)
END
FUNCTION CHECK$ (A)
IF A >= 16 THEN
CHECK$ = “ELIGIBLE TO DRIVE”
ELSE
CHECK$ = “ NOT ELIGIBLE TO DRIVE”
END IF
END FUNCTION
90. Input the age of a person and find out whether the person is eligible to vote or not. [age >=18]
REM
CLS
INPUT “ENTER YOUR AGE”; A
IF A >= 18 THEN
PRINT “YOU ARE ELIGIBLE TO VOTE”
ELSE
PRINT “ YOU ARE NOT ELIGIBLE TO VOTE”
END IF
END

USING SUB PROCEDURE

DECLARE SUB CHECK (A)
CLS
INPUT “ENTER YOUR AGE”; A
CALL CHECK (A)
END

SUB CHECK (A)
IF A >= 18 THEN
PRINT “YOU ARE ELIGIBLE TO VOTE”
ELSE
PRINT “ YOU ARE NOT ELIGIBLE TO VOTE”
END IF
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION CHECK$ (A)
CLS
INPUT “ENTER YOUR AGE”; A
PRINT “YOU ARE “;CHECK$(A)
END
FUNCTION CHECK$ (A)
IF A >= 18 THEN
CHECK$ = “ELIGIBLE TO VOTE”
ELSE
CHECK$ = “ NOT ELIGIBLE TO VOTE”
END IF
END FUNCTION
91. WAP to enter any 15 numbers and display only those numbers which are divisible by 5.

CLS
DIM N(15)
FOR I = 1 TO 15
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
PRINT "THE NUMBERS WHICH ARE DIVISIBLE BY 5 ARE"
FOR I = 1 TO 15
IF N(I) MOD 5 = 0 THEN PRINT N(I)
NEXT I
END

USING SUB PROCEDURE
DECLARE SUB DIVISIBLE (N( ))
CLS
DIM N(15)
FOR I = 1 TO 15
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
CALL DIVISIBLE (N ( ))
END
SUB DIVISIBLE (N ( ))
PRINT "THE NUMBERS WHICH ARE DIVISIBLE BY 5 ARE"
FOR I = 1 TO 15
IF N(I) MOD 5 = 0 THEN PRINT N(I)
NEXT I
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION DIVISIBLE (N( ))
CLS
DIM N(15)
FOR I = 1 TO 15
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
D = DIVISIBLE(N())
END

FUNCTION DIVISIBLE (N())
PRINT "THE NUMBERS DIVISIBLE BY 5 ARE";
FOR I = 1 TO 15
IF N(I) MOD 5 = 0 THEN PRINT N(I)
NEXT I

END FUNCTION

92.   WAP to enter any 15 numbers and display only those numbers which are divisible by 5 and 7.
CLS
DIM N(15)
FOR I = 1 TO 15
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
PRINT "THE NUMBERS WHICH ARE DIVISIBLE BY 5 AND 7 ARE"
FOR I = 1 TO 15
IF N(I) MOD 5 = 0 AND N(I) MOD 7 = 0 THEN PRINT N(I)
NEXT I
END
USING SUB PROCEDURE
DECLARE SUB DIVISIBLE (N( ))
CLS
DIM N(15)
FOR I = 1 TO 15
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
CALL DIVISIBLE (N ( ))
END
SUB DIVISIBLE (N ( ))
PRINT "THE NUMBERS WHICH ARE DIVISIBLE BY 5 AND 7 ARE"
FOR I = 1 TO 15
IF N(I) MOD 5 = 0 AND N(I) MOD 7 = 0 THEN PRINT N(I)
NEXT I
END SUB
USING FUNCTION PROCEDURE

DECLARE FUNCTION DIVISIBLE (N( ))
CLS
DIM N(15)
FOR I = 1 TO 15
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
D = DIVISIBLE(N( ))
END

FUNCTION DIVISIBLE (N( ))
PRINT "THE NUMBERS DIVISIBLE BY 5 AND 7 ARE";
FOR I = 1 TO 15
IF N(I) MOD 5 = 0 AND N(I) MOD 7 = 0 THEN PRINT N(I)
NEXT I

END FUNCTION

93. WAP to enter any two numbers and display the greater one.
REM
CLS
INPUT “ENTER ANY TWO NUMBERS”; A, B
IF A > B THEN
PRINT A; “IS GREATER”
ELSE
PRINT B; “IS GREATER”
END IF
END

USING SUB PROCEDURE

DECLARE SUB GREAT (A, B)
CLS
INPUT “ENTER ANY TWO NUMBERS”; A, B
CALL GREAT (A, B)
END
SUB GREAT (A, B)
IF A > B THEN
PRINT A; “IS GREATER”
ELSE
PRINT B; “IS GREATER”
END IF
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION GREAT (A, B)
INPUT “ENTER ANY TWO NUMBERS”; A, B
PRINT “THE GREATER NUMBER IS”; GREAT (A, B)
END
FUNCTION GREAT (A, B)
IF A > B THEN
GREAT = A
ELSE
GREAT = B
END IF
END FUNCTION
94.   WAP to enter any two numbers and display the smaller one.

REM
CLS
INPUT “ENTER ANY TWO NUMBERS”; A, B
IF A < B THEN
PRINT A; “IS SMALLER”
ELSE
PRINT B; “IS SMALLER”
END IF
END

USING SUB PROCEDURE

DECLARE SUB SMALL (A, B)
CLS
INPUT “ENTER ANY TWO NUMBERS”; A, B
CALL SMALL (A, B)
END

SUB SMALL (A, B)
IF A < B THEN
PRINT A; “IS SMALLER”
ELSE
PRINT B; “IS SMALLER”
END IF
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION SMALL (A, B)
INPUT “ENTER ANY TWO NUMBERS”; A, B
PRINT “THE SMALLER NUMBER IS”; SMALL (A, B)
END
FUNCTION SMALL (A, B)
IF A < B THEN
SMALL = A
ELSE
SMALL = B
END IF
END FUNCTION
95.   WAP to enter any three numbers and display the greatest one.
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
96.   WAP to enter any three numbers and display the smallest one.
CLS
INPUT “ENTER ANY THREE NUMBERS”; A, B, C
IF A < B AND A < C THEN
PRINT A; “IS SMALLEST”
ELSEIF B < A AND B < C THEN
PRINT B; “IS SMALLEST”
ELSE
PRINT C; “IS SMALLEST”
END IF : END
USING SUB PROCEDURE
DECLARE SUB SMALL(A, B, C)
CLS
INPUT “ENTER ANY THREE NUMBERS”; A, B, C
CALL SMALL (A, B, C)
END
SUB SMALL (A, B, C)
IF A < B AND A < C THEN
S = A
ELSEIF B < A AND B < C THEN
S = B
ELSE
S = C
END IF
PRINT “THE SMALLEST NUMBER IS “; S
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION SMALL (A, B, C)
INPUT “ENTER ANY THREE NUMBERS”; A, B, C
PRINT “THE SMALLEST NUMBER IS”; SMALL (A, B, C)
END
FUNCTION SMALL (A, B, C)
IF A < B AND A < C THEN
S = A
ELSEIF B < A AND B < C THEN
S = B
ELSE
S = C
END IF : SMALL = S
END FUNCTION
97.   WAP to enter any three numbers and display the middle number.
CLS
INPUT “ENTER ANY THREE NUMBERS”; A, B, C
IF A > B AND A < C OR A < B AND A > C THEN
PRINT A; “IS MIDDLE NUMBER”
ELSEIF B > A AND B < C OR B < A AND B > C THEN
PRINT B; “IS MIDDLE NUMBER”
ELSE
PRINT C; “IS MIDDLE NUMBER”
END IF : END
USING SUB PROCEDURE
DECLARE SUB MIDDLE(A, B, C)
CLS
INPUT “ENTER ANY THREE NUMBERS”; A, B, C
CALL MIDDLE (A, B, C)
END
SUB MIDDLE (A, B, C)
IF A > B AND A < C OR A < B AND A > C THEN
PRINT A; “IS MIDDLE NUMBER”
ELSEIF B > A AND B < C OR B < A AND B > C THEN
PRINT B; “IS MIDDLE NUMBER”
ELSE
PRINT C; “IS MIDDLE NUMBER”
END IF : END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION MIDDLE (A, B, C)
INPUT “ENTER ANY THREE NUMBERS”; A, B, C
PRINT “THE MIDDLE NUMBER IS”; MIDDLE (A, B, C)
END
FUNCTION MIDDLE (A, B, C)
IF A > B AND A < C OR A < B AND A > C THEN
M = A
ELSEIF B > A AND B < C OR B < A AND B > C THEN
M = B
ELSE
M = C
END IF : MIDDLE = M : END FUNCTION
98. WAP to enter any three numbers and display the greatest, smallest and the middle number.
USING SUB PROCEDURE

DECLARE SUB GREAT (A, B, C)
DECLARE SUB MIDDLE(A, B, C)
DECLARE SUB SMALL (A, B, C)
CLS
INPUT “ENTER ANY THREE NUMBERS”; A, B, C
CALL GREAT (A, B, C)
CALL MIDDLE (A, B, C)
CALL SMALL (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

SUB SMALL (A, B, C)
IF A < B AND A < C THEN
S = A
ELSEIF B < A AND B < C THEN
S = B
ELSE
S = C
END IF
PRINT “THE SMALLEST NUMBER IS “; S
END SUB
SUB MIDDLE (A, B, C)
IF A > B AND A < C OR A < B AND A > C THEN
PRINT A; “IS MIDDLE NUMBER”
ELSEIF B > A AND B < C OR B < A AND B > C THEN
PRINT B; “IS MIDDLE NUMBER”
ELSE
PRINT C; “IS MIDDLE NUMBER”
END IF
END SUB

USING FUNCTION  PROCEDURE

DECLARE FUNCTION GREAT (A, B, C)
DECLARE FUNCTION MIDDLE(A, B, C)
DECLARE FUNCTION SMALL (A, B, C)
CLS
INPUT “ENTER ANY THREE NUMBERS”; A, B, C
GR = GREAT (A, B, C)
MI = MIDDLE (A, B, C)
SM = SMALL (A, B, C)
PRINT “THE GREATEST NUMBER IS “; GR
PRINT “THE MIDDLE NUMBER IS “; MI
PRINT “THE SMALLEST NUMBER IS “; SM
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




FUNCTION MIDDLE (A, B, C)
IF A > B AND A < C OR A < B AND A > C THEN
M = A
ELSEIF B > A AND B < C OR B < A AND B > C THEN
M = B
ELSE
M = C
END IF
MIDDLE = M
END FUNCTION

FUNCTION SMALL (A, B, C)
IF A < B AND A < C THEN
S = A
ELSEIF B < A AND B < C THEN
S = B
ELSE
S = C
END IF
SMALL = S
END FUNCTION



99.   WAP to enter any 10 numbers and display the greatest one.
REM
CLS
INPUT "ENTER FIRST NUMBER"; N
FOR I = 2 TO 10
INPUT "ENTER NEXT NUMBER"; G
IF G > N THEN N = G
NEXT I
PRINT “THE GREATEST NUMBER IS “; N
END

USING SUB PROCEDURE

DECLARE SUB GREAT (N)
CLS
INPUT "ENTER FIRST NUMBER"; N
CALL GREAT (N)
END

SUB GREAT (N)
FOR I = 2 TO 10
INPUT "ENTER NEXT NUMBER"; G
IF G > N THEN N = G
NEXT I
PRINT “THE GREATEST NUMBER IS “; N
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION GREAT (N)
CLS
INPUT "ENTER FIRST NUMBER"; N
PRINT “THE GREATEST NUMBER IS “; GREAT (N)
END
FUNCTION  GREAT (N)
FOR I = 2 TO 10
INPUT "ENTER NEXT NUMBER"; G
IF G > N THEN N = G
NEXT I
GREAT = N
END FUNCTION
100.   WAP to enter any 10 numbers and display the smallest one.

CLS
INPUT "ENTER FIRST NUMBER"; N
FOR I = 2 TO 10
INPUT "ENTER NEXT NUMBER"; S
IF S < N THEN N = S
NEXT I
PRINT “THE SMALLEST NUMBER IS “; N
END
USING SUB PROCEDURE
DECLARE SUB SMALL (N)
CLS
INPUT "ENTER FIRST NUMBER"; N
CALL SMALL (N)
END
 SUB SMALL (N)
FOR I = 2 TO 10
INPUT "ENTER NEXT NUMBER"; S
IF S < N THEN N = S
NEXT I
PRINT “THE SMALLEST NUMBER IS “; N
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION SMALL (N)
CLS
INPUT "ENTER FIRST NUMBER"; N
PRINT “THE SMALLEST NUMBER IS “; SMALL (N)
END

FUNCTION  SMALL (N)
FOR I = 2 TO 10
INPUT "ENTER NEXT NUMBER"; S
IF S < N THEN N = S
NEXT I
SMALL = N
END FUNCTION


101. WAP to enter any 20 numbers and display the greatest one using array.

REM
CLS
DIM N(20)
FOR I = 1 TO 20
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
G = N(1)
FOR I = 2 TO 20
IF N(I) > G THEN G = N(I)
NEXT I
PRINT “THE GREATEST NUMBER IS”; G
END

USING SUB PROCEDURE

DECLARE SUB GREAT (N( ))
CLS
DIM N(20)
FOR I = 1 TO 20
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
CALL GREAT (N( ))
END

SUB GREAT (N( ))
G = N(1)
FOR I = 2 TO 20
IF N(I) > G THEN G = N(I)
NEXT I
PRINT “THE GREATEST NUMBER IS”; G
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION GREAT (N( ))
CLS
DIM N(20)
FOR I = 1 TO 20
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
PRINT “THE GREATEST NUMBER IS”; GREAT (N( ))
END

FUNCTION GREAT (N( ))
G = N(1)
FOR I = 2 TO 20
IF N(I) > G THEN G = N(I)
NEXT I
GREAT = G
END FUNCTION

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

REM
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



103. WAP to enter any 20 numbers and display the greatest and smallest one using array

USING SUB PROCEDURE

DECLARE SUB GREAT ()
DECLARE SUB SMALL ()
DIM SHARED N(20)
CLS
FOR I = 1 TO 20
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
CALL GREAT
CALL SMALL
END

SUB GREAT
G = N(1)
FOR I = 2 TO 20
IF N(I) > G THEN G = N(I)
NEXT I
PRINT "GREATEST NUMBER"; G
END SUB

SUB SMALL
S = N(1)
FOR I = 2 TO 20
IF N(I) < S THEN S = N(I)
NEXT I
PRINT "SMALLEST NUMBER"; S
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION GREAT ()
DECLARE FUNCTION SMALL ()
DIM SHARED N(20)
CLS
FOR I = 1 TO 20
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
PRINT "GREATEST NUMBER"; GREAT
PRINT "SMALLEST NUMBER"; SMALL
END

FUNCTION GREAT
G = N(1)
FOR I = 2 TO 20
IF N(I) > G THEN G = N(I)
NEXT I
GREAT = G
END FUNCTION

FUNCTION SMALL
S = N(1)
FOR I = 2 TO 20
IF N(I) < S THEN S = N(I)
NEXT I
SMALL = S

END FUNCTION

\104. WAP to input number and find sum of digits.
CLS
INPUT "ENTER ANY NUMBER"; N
S = 0
WHILE N < > 0
R = N MOD 10
S = S + R
N = N \ 10
WEND
PRINT "SUM OF DIGITS"; S
END
USING SUB PROCEDURE
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
USING FUNCTION PROCEDURE
DECLARE FUNCTION SUM (N)
CLS
INPUT "ENTER ANY NUMBER"; N
SU = SUM (N)
PRINT "SUM OF DIGITS"; SU
END
FUNCTION SUM (N)
S = 0
WHILE N < > 0
R = N MOD 10
S = S + R
N = N \ 10
WEND
SUM = S : END FUNCTION
105.   WAP to input number and find sum of odd digits.
CLS
INPUT "ENTER ANY NUMBER"; N
S = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 1 THEN S = S + R
N = N \ 10
WEND
PRINT "SUM OF ODD DIGITS"; S
END
USING SUB PROCEDURE
DECLARE SUB SUMODD (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL SUMODD (N)
END
SUB SUMODD (N)
S = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 1 THEN S = S + R
N = N \ 10
WEND
PRINT "SUM OF ODD DIGITS"; S
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION SUMODD (N)
CLS
INPUT "ENTER ANY NUMBER"; N
SU = SUMODD (N)
PRINT "SUM OF ODD DIGITS"; SU
END
FUNCTION SUMODD (N)
S = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 1 THEN S = S + R
N = N \ 10
WEND
SUMODD = S : END FUNCTION
106.   WAP to input number and find sum of even digits.
CLS
INPUT "ENTER ANY NUMBER"; N
S = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 0 THEN S = S + R
N = N \ 10
WEND
PRINT "SUM OF EVEN DIGITS"; S
END
USING SUB PROCEDURE
DECLARE SUB SUMEVEN (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL SUMEVEN (N)
END
SUB SUMEVEN (N)
S = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 0 THEN S = S + R
N = N \ 10
WEND
PRINT "SUM OF EVEN DIGITS"; S
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION SUMEVEN (N)
CLS
INPUT "ENTER ANY NUMBER"; N
SU = SUMEVEN (N)
PRINT "SUM OF EVEN DIGITS"; SU
END
FUNCTION SUMEVEN (N)
S = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 0 THEN S = S + R
N = N \ 10
WEND
SUMEVEN = S : END FUNCTION
107. WAP to input number and find sum square of digits.
CLS
INPUT "ENTER ANY NUMBER"; N
S = 0
WHILE N < > 0
R = N MOD 10
S = S + R ^ 2
N = N \ 10
WEND
PRINT "SUM OF SQUARE OF DIGITS"; S
END
USING SUB PROCEDURE
DECLARE SUB SUMSQ (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL SUMSQ (N)
END
SUB SUMSQ (N)
S = 0
WHILE N < > 0
R = N MOD 10
S = S + R ^ 2
N = N \ 10
WEND
PRINT "SUM OF SQUARE OF  DIGITS"; S
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION SUMSQ (N)
CLS
INPUT "ENTER ANY NUMBER"; N
SU = SUMSQ (N)
PRINT "SUM OF SQUARE OF DIGITS"; SU
END
FUNCTION SUMSQ (N)
S = 0
WHILE N < > 0
R = N MOD 10
S = S + R ^ 2
N = N \ 10
WEND
SUMSQ = S : END FUNCTION
108.   WAP to input number and find sum of square of odd digits.
CLS
INPUT "ENTER ANY NUMBER"; N
S = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 1 THEN S = S + R ^ 2
N = N \ 10
WEND
PRINT "SUM OF SQUARE OF ODD DIGITS"; S
END
USING SUB PROCEDURE
DECLARE SUB SUMODD (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL SUMODD (N)
END
SUB SUMODD (N)
S = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 1 THEN S = S + R ^ 2
N = N \ 10
WEND
PRINT "SUM OF SQUARE OF ODD DIGITS"; S
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION SUMODD (N)
CLS
INPUT "ENTER ANY NUMBER"; N
SU = SUMODD (N)
PRINT "SUM OF SQUARE OF ODD DIGITS"; SU
END
FUNCTION SUMODD (N)
S = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 1 THEN S = S + R ^ 2
N = N \ 10
WEND
SUMODD = S : END FUNCTION

109.   WAP to input number and find sum of square of even digits.
CLS
INPUT "ENTER ANY NUMBER"; N
S = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 0 THEN S = S + R ^ 2
N = N \ 10
WEND
PRINT "SUM OF SQUARE OF EVEN DIGITS"; S
END
USING SUB PROCEDURE
DECLARE SUB SUMEVEN (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL SUMEVEN (N)
END
SUB SUMEVEN (N)
S = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 0 THEN S = S + R ^ 2
N = N \ 10
WEND
PRINT "SUM OF SQUARE OF EVEN DIGITS"; S
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION SUMEVEN (N)
CLS
INPUT "ENTER ANY NUMBER"; N
SU = SUMEVEN (N)
PRINT "SUM OF SQUARE OF EVEN DIGITS"; SU
END
FUNCTION SUMEVEN (N)
S = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 0 THEN S = S + R ^ 2
N = N \ 10
WEND
SUMEVEN = S : END FUNCTION
110. WAP to input number and find sum of cube of digits.
CLS
INPUT "ENTER ANY NUMBER"; N
S = 0
WHILE N < > 0
R = N MOD 10
S = S + R ^ 3
N = N \ 10
WEND
PRINT "SUM OF CUBE OF DIGITS"; S
END
USING SUB PROCEDURE
DECLARE SUB SUMCB (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL SUMCB (N)
END
SUB SUMCB (N)
S = 0
WHILE N < > 0
R = N MOD 10
S = S + R ^ 3
N = N \ 10
WEND
PRINT "SUM OF CUBE OF  DIGITS"; S
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION SUMCB (N)
CLS
INPUT "ENTER ANY NUMBER"; N
SU = SUMCB (N)
PRINT "SUM OF CUBE OF DIGITS"; SU
END
FUNCTION SUMCB (N)
S = 0
WHILE N < > 0
R = N MOD 10
S = S + R ^ 3
N = N \ 10
WEND
SUMCB = S : END FUNCTION
111.   WAP to input number and find sum of cube of odd digits.
CLS
INPUT "ENTER ANY NUMBER"; N
S = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 1 THEN S = S + R ^ 3
N = N \ 10
WEND
PRINT "SUM OF CUBE OF ODD DIGITS"; S
END
USING SUB PROCEDURE
DECLARE SUB SUMODD (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL SUMODD (N)
END
SUB SUMODD (N)
S = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 1 THEN S = S + R ^ 3
N = N \ 10
WEND
PRINT "SUM OF CUBE OF ODD DIGITS"; S
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION SUMODD (N)
CLS
INPUT "ENTER ANY NUMBER"; N
SU = SUMODD (N)
PRINT "SUM OF CUBE OF ODD DIGITS"; SU
END
FUNCTION SUMODD (N)
S = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 1 THEN S = S + R ^ 3
N = N \ 10
WEND
SUMODD = S : END FUNCTION
112.   WAP to input number and find sum of cube of even digits.
CLS
INPUT "ENTER ANY NUMBER"; N
S = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 0 THEN S = S + R ^ 3
N = N \ 10
WEND
PRINT "SUM OF CUBE OF EVEN DIGITS"; S
END
USING SUB PROCEDURE
DECLARE SUB SUMEVEN (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL SUMEVEN (N)
END
SUB SUMEVEN (N)
S = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 0 THEN S = S + R ^ 3
N = N \ 10
WEND
PRINT "SUM OF CUBE OF EVEN DIGITS"; S
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION SUMEVEN (N)
CLS
INPUT "ENTER ANY NUMBER"; N
SU = SUMEVEN (N)
PRINT "SUM OF CUBE OF EVEN DIGITS"; SU
END
FUNCTION SUMEVEN (N)
S = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 0 THEN S = S + R ^ 3
N = N \ 10
WEND
SUMEVEN = S : END FUNCTION
113.   WAP to input number and 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
114.   WAP to input number and count total no. of odd digits.
CLS
INPUT "ENTER ANY NUMBER"; N
C = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 1 THEN C = C + 1
N = N \ 10
WEND
PRINT "TOTAL NUMBER OF ODD 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
R = N MOD 10
IF R MOD 2 = 1 THEN C = C + 1
N = N \ 10
WEND
PRINT "TOTAL NUMBER OF ODD DIGITS"; C
END SUB
USING FUNCTION PROCEDURE
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
115.   WAP to input number and count total no. of even digits.
CLS
INPUT "ENTER ANY NUMBER"; N
C = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 0 THEN C = C + 1
N = N \ 10
WEND
PRINT "TOTAL NUMBER OF EVEN 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
R = N MOD 10
IF R MOD 2 = 0 THEN C = C + 1
N = N \ 10
WEND
PRINT "TOTAL NUMBER OF EVEN DIGITS"; C
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION COUNT (N)
CLS
INPUT "ENTER ANY NUMBER"; N
PRINT "TOTAL NUMBER OF EVEN DIGITS"; COUNT (N)
END
FUNCTION SUM (N)
C = 0
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 0 THEN C = C + 1
N = N \ 10
WEND
COUNT = C : END FUNCTION
116. WAP TO ENTER ANY DIGIT AND DISPLAY EVEN DIGITS
CLS
INPUT "ENTER ANY NUMBER"; 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
USING SUB PROCEDURE
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
USING FUNCTION PROCEDURE
DECLARE FUNCTION EVEN (N)
CLS
INPUT "ENTER ANY NUMBER"; N
PRINT "EVEN DIGITS ARE ";
D = EVEN(N)
END

FUNCTION EVEN (N)
WHILE N <> 0
R = N MOD 10
IF R MOD 2 = 0 THEN PRINT R;
N = N \ 10
WEND

END FUNCTION
117. WAP TO ENTER ANY DIGIT AND DISPLAY ODD DIGITS
CLS
INPUT "ENTER ANY NUMBER"; N
PRINT "ODD DIGITS ARE ";
WHILE N <> 0
R = N MOD 10
IF R MOD 2 = 1 THEN PRINT R;
N = N \ 10
WEND
END
USING SUB PROCEDURE
DECLARE SUB ODD (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL ODD (N)
END
SUB ODD (N)
PRINT "ODD DIGITS ARE ";
WHILE N <> 0
R = N MOD 10
IF R MOD 2 = 1 THEN PRINT R;
N = N \ 10
WEND
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION ODD (N)
REM
CLS
INPUT "ENTER ANY NUMBER"; N
PRINT " ODD DIGITS ARE ";
D = ODD(N)
END
FUNCTION ODD (N)
WHILE N <> 0
R = N MOD 10
IF R MOD 2 = 1 THEN PRINT R;
N = N \ 10
WEND
END FUNCTION

118. WAP TO ENTER ANY DIGIT AND DISPLAY SQUARE OF EVEN DIGITS
CLS
INPUT "ENTER ANY NUMBER"; N
PRINT "SQUARE OF EVEN DIGITS ARE ";
WHILE N <> 0
R = N MOD 10
IF R MOD 2 = 0 THEN PRINT R ^ 2;
N = N \ 10
WEND
END
USING SUB PROCEDURE
DECLARE SUB EVEN (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL EVEN (N)
END
SUB EVEN (N)
PRINT "SQUARE OF EVEN DIGITS ARE ";
WHILE N <> 0
R = N MOD 10
IF R MOD 2 = 0 THEN PRINT R ^ 2;
N = N \ 10
WEND
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION EVEN (N)
REM
CLS
INPUT "ENTER ANY NUMBER"; N
PRINT "SQUARE OF EVEN DIGITS";
D = EVEN(N)
END
FUNCTION EVEN (N)
WHILE N <> 0
R = N MOD 10
IF R MOD 2 = 0 THEN PRINT R ^ 2;
N = N \ 10
WEND
END FUNCTION

119. WAP TO ENTER ANY DIGIT AND DISPLAY SQUARE OF ODD
 DIGITS
CLS
INPUT "ENTER ANY NUMBER"; N
PRINT "SQUARE OF ODD DIGITS ARE ";
WHILE N <> 0
R = N MOD 10
IF R MOD 2 = 1 THEN PRINT R;
N = N \ 10
WEND
END
USING SUB PROCEDURE
DECLARE SUB ODD (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL ODD (N)
END
SUB ODD (N)
PRINT " SQUARE OF ODD DIGITS ARE ";
WHILE N <> 0
R = N MOD 10
IF R MOD 2 = 1 THEN PRINT R;
N = N \ 10
WEND
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION ODD (N)
REM
CLS
INPUT "ENTER ANY NUMBER"; N
PRINT "SQUARE OF ODD DIGITS";
D = ODD(N)
END
FUNCTION ODD (N)
WHILE N <> 0
R = N MOD 10
IF R MOD 2 = 1 THEN PRINT R ^ 2;
N = N \ 10
WEND
END FUNCTION
120. WAP TO ENTER ANY DIGIT AND DISPLAY CUBE OF EVEN DIGITS
CLS
INPUT "ENTER ANY NUMBER"; N
PRINT "CUBE OF EVEN DIGITS ARE ";
WHILE N <> 0
R = N MOD 10
IF R MOD 2 = 0 THEN PRINT R ^ 3;
N = N \ 10
WEND
END
USING SUB PROCEDURE
DECLARE SUB EVEN (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL EVEN (N)
END
SUB EVEN (N)
PRINT "SQUARE OF EVEN DIGITS ARE ";
WHILE N <> 0
R = N MOD 10
IF R MOD 2 = 0 THEN PRINT R ^ 3;
N = N \ 10
WEND
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION EVEN (N)
REM
CLS
INPUT "ENTER ANY NUMBER"; N
PRINT "CUBE OF EVEN DIGITS";
D = EVEN(N)
END
FUNCTION EVEN (N)
WHILE N <> 0
R = N MOD 10
IF R MOD 2 = 0 THEN PRINT R ^ 3;
N = N \ 10
WEND
END FUNCTION

121. WAP TO ENTER ANY DIGIT AND DISPLAY CUBE OF ODD DIGITS
REM
CLS
INPUT "ENTER ANY NUMBER"; N
PRINT "CUBE OF ODD DIGITS ARE ";
WHILE N <> 0
R = N MOD 10
IF R MOD 2 = 1 THEN PRINT R ^ 3;
N = N \ 10
WEND
END
USING SUB PROCEDURE
DECLARE SUB ODD (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL ODD (N)
END
SUB ODD (N)
PRINT "CUBE OF ODD DIGITS ARE ";
WHILE N <> 0
R = N MOD 10
IF  MOD 2 = 1 THEN PRINT R ^ 3;
N = N \ 10
WEND
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION ODD (N)
REM
CLS
INPUT "ENTER ANY NUMBER"; N
PRINT "CUBE OF ODD DIGITS";
D = ODD(N)
END
FUNCTION ODD (N)
WHILE N <> 0
R = N MOD 10
IF R MOD 2 = 1 THEN PRINT R ^ 3;
N = N \ 10
WEND
END FUNCTION
122.  WAP to enter any 10 numbers and find the sum of numbers.

CLS
FOR I = 1 TO 10
INPUT "ENTER THE NUMBERS"; N(I)
S = S + N(I)
NEXT I
PRINT "SUM OF 10 NUMBERS"; S
END

USING SUB PROCEDURE
DECLARE SUB SUM (N( ))
CLS
FOR I = 1 TO 10
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
CALL SUM(N( ))
END

SUB SUM (N())
FOR I = 1 TO 10
S = S + N(I)
NEXT I
PRINT "SUM OF 10 NUMBERS"; S
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION SUM (N( ))
CLS
FOR I = 1 TO 10
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
PRINT "SUM OF 10 NUMBERS"; SUM(N( ))
END
FUNCTION SUM (N())
FOR I = 1 TO 10
S = S + N(I)
NEXT I
SUM = S
END FUNCTION
123.   WAP to enter any 10 numbers and find the sum of odd numbers.
CLS
FOR I = 1 TO 10
INPUT "ENTER THE NUMBERS"; N(I)
IF N(I) MOD 2 = 1 THEN S = S + N(I)
NEXT I
PRINT "SUM OF 10 ODD NUMBERS"; S
END
USING SUB PROCEDURE
DECLARE SUB SUM (N( ))
CLS
FOR I = 1 TO 10
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
CALL SUM(N( ))
END
SUB SUM (N())
FOR I = 1 TO 10
IF N(I) MOD 2 = 1 THEN S = S + N(I)
NEXT I
PRINT "SUM OF 10 ODD NUMBERS"; S
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION SUM (N( ))
CLS
FOR I = 1 TO 10
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
PRINT "SUM OF 10 ODD NUMBERS"; SUM(N( ))
END


FUNCTION SUM (N())
FOR I = 1 TO 10
IF N(I) MOD 2 = 1 THEN S = S + N(I)
NEXT I
SUM = S
END FUNCTION
124. WAP to enter any 10 numbers and find the sum of even numbers.
CLS
FOR I = 1 TO 10
INPUT "ENTER THE NUMBERS"; N(I)
IF N(I) MOD 2 = 0 THEN S = S + N(I)
NEXT I
PRINT "SUM OF 10 EVENNUMBERS"; S
END

USING SUB PROCEDURE
DECLARE SUB SUM (N( ))
CLS
FOR I = 1 TO 10
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
CALL SUM(N( ))
END

SUB SUM (N())
FOR I = 1 TO 10
IF N(I) MOD 2 = 0 THEN S = S + N(I)
NEXT I
PRINT "SUM OF 10 EVENNUMBERS"; S
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION SUM (N( ))
CLS
FOR I = 1 TO 10
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
PRINT "SUM OF 10 EVEN NUMBERS"; SUM(N( ))
END
FUNCTION SUM (N())
FOR I = 1 TO 10
IF N(I) MOD 2 = 0 THEN S = S + N(I)
NEXT I
SUM = S
END FUNCTION


125. WAP TO ENTER ANY DIGIT AND DISPLAY ITS REVERSED FORM
CLS
INPUT "ENTER ANY NUMBER"; N
S = 0
WHILE N < > 0
R = N MOD 10
S = S * 10 + R
N = N \ 10
WEND
PRINT "REVERSED DIGITS="; S
END
USING SUB PROCEDURE
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
USING FUNCTION PROCEDURE
DECLARE FUNCTION REV (N)
CLS
INPUT "ENTER ANY NUMBER"; N
PRINT " REVERSED DIGITS="; REV (N)
END
FUNCTION REV (N)
S = 0
WHILE N < > 0
R = N MOD 10
S = S * 10 + R
N = N \ 10
WEND
REV = S : END FUNCTION

126. 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


















127. WAP to display first 20 palindrome numbers.
CLS
N = 1 : CNT = 1
TOP:
A = N
S = 0
WHILE A < > 0
R = A MOD 10
S = S * 10 + R
A = A \ 10
WEND
IF N = S THEN
PRINT N,
CNT = CNT + 1
END IF
N = N + 1
IF CNT <= 20 THEN GOTO TOP
END
USING SUB PROCEDURE
DECLARE SUB PALIN ( )
CLS
CALL PALIN
END
SUB PALIN
N = 1
CNT = 1
TOP:
A = N : S = 0
WHILE A < > 0
R = A MOD 10
S = S * 10 + R
A = A \ 10
WEND
IF N = S THEN
PRINT N,
CNT = CNT + 1
END IF
N = N + 1
IF CNT <= 20 THEN GOTO TOP
END SUB
128.   WAP to display all palindrome numbers from 1 to 200.

CLS
N = 1
FOR I = 1 TO 200
A = N
S = 0
WHILE A < > 0
R = A MOD 10
S = S * 10 + R
A = A \ 10
WEND
IF N = S THEN PRINT N,
N = N + 1
NEXT I
END

USING SUB PROCEDURE

DECLARE SUB PALIN ( )
CLS
CALL PALIN
END

SUB PALIN
N = 1
FOR I = 1 TO 200
A = N
S = 0
WHILE A < > 0
R = A MOD 10
S = S * 10 + R
A = A \ 10
WEND
IF N = S THEN PRINT N,
N = N + 1
NEXT I
END SUB

129. 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


















130. WAP to display first 5 Armstrong numbers.
CLS
N = 1
CNT = 1
TOP:
A = N
S = 0
WHILE A < > 0
R = A MOD 10
S = S + R ^ 3
A = A \ 10
WEND
IF N = S THEN
PRINT N,
CNT = CNT + 1
END IF
N = N + 1
IF CNT <= 5 THEN GOTO TOP
END
USING SUB PROCEDURE
DECLARE SUB ARM ( )
CLS
CALL ARM
END
SUB ARM
N = 1 : CNT = 1
TOP:
A = N
S = 0
WHILE A < > 0
R = A MOD 10
S = S + R ^ 3
A = A \ 10
WEND
IF N = S THEN
PRINT N,
CNT = CNT + 1
END IF
N = N + 1
IF CNT <= 5 THEN GOTO TOP
END SUB
131.   WAP to display all Armstrong numbers from 1 to 500.

CLS
N = 1
FOR I = 1 TO 500
A = N
S = 0
WHILE A <> 0
R = A MOD 10
S = S + R ^ 3
A = A \ 10
WEND
IF N = S THEN PRINT N,
N = N + 1
NEXT I
END

USING SUB PROCEDURE

DECLARE SUB ARM ( )
CLS
CALL ARM
END

SUB ARM
N = 1
FOR I = 1 TO 500
A = N
S = 0
WHILE A <> 0
R = A MOD 10
S = S + R ^ 3
A = A \ 10
WEND
IF N = S THEN PRINT N,
N = N + 1
NEXT I
END SUB

132. 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


133.   WAP to display all prime numbers from 1 to 100.

CLS

FOR N = 1 TO 100
C = 0
FOR I = 1 TO N
IF N MOD I = 0 THEN C = C + 1
NEXT I
IF C = 2 THEN PRINT N,
NEXT N
END






USING SUB PROCEDURE

DECLARE SUB PRIME ( )
CLS
CALL PRIME
END

SUB PRIME
FOR N = 1 TO 100
C = 0
FOR I = 1 TO N
IF N MOD I = 0 THEN C = C + 1
NEXT I
IF C = 2 THEN PRINT N,
NEXT N
END SUB

134.   WAP to display first 15 prime numbers
CLS

N = 1
CNT = 1
TOP:
C = 0
FOR I = 1 TO N
IF N MOD I = 0 THEN C = C + 1
NEXT I
IF C = 2 THEN
PRINT N,
CNT = CNT + 1
END IF
N = N + 1
IF CNT <= 20 THEN GOTO TOP
END







USING SUB PROCEDURE

DECLARE SUB PRIME ( )
CLS
CALL PRIME
END

SUB PRIME
N = 1
CNT = 1
TOP:
C = 0
FOR I = 1 TO N
IF N MOD I = 0 THEN C = C + 1
NEXT I
IF C = 2 THEN
PRINT N,
CNT = CNT + 1
END IF
N = N + 1
IF CNT <= 20 THEN GOTO TOP
END SUB

135. WAP to input number and check whether the given no. is prime or not.

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 NOT PRIME 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 NOT PRIME 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 NOT PRIME 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

136.   WAP to input number and check whether the given no. composite or not.
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 COMPOSITE NUMBER"
ELSE
PRINT N; "IS NOT COMPOSITE NUMBER"
END IF
END

USING SUB PROCEDURE

DECLARE SUB COMPOSITE (N)
INPUT "ENTER ANY NUMBER"; N
CALL COMPOSITE (N)
END

SUB COMPOSITE (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 COMPOSITE NUMBER"
ELSE
PRINT N; "IS NOT COMPOSITE NUMBER"
END IF
END SUB







USING FUNCTION PROCEDURE

DECLARE FUNCTION COMPOSITE (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CO = COMPOSITE (N)
IF CO < > 2 THEN
PRINT N; "IS COMPOSITE NUMBER"
ELSE
PRINT N; "IS NOT COMPOSITE NUMBER"
END IF
END

FUNCTION COMPOSITE (N)
C = 0
FOR I = 1 TO N
IF N MOD I = 0 THEN C = C + 1
NEXT I
COMPOSITE = C
END FUNCTION

137. WAP to input any number and display the factors.
CLS
INPUT "ENTER ANY NUMBER"; N
PRINT "FACTORS OF"; N; "=";
FOR I = 1 TO N
IF N MOD I = 0 THEN PRINT I;
NEXT I
END

USING SUB PROCEDURE

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


138. WAP to input any number and display the prime factors.

CLS
INPUT "ENTER ANY NUMBER"; N
PRINT "PRIME FACTORS OF"; N; "=";
FOR I = 1 TO N
C = 0
FOR J = 1 TO I
IF I MOD J = 0 THEN C = C + 1
NEXT J
IF N MOD I = 0 AND C = 2 THEN PRINT I;
NEXT I
END

USING SUB PROCEDURE

DECLARE SUB FACT (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL FACT (N)
END

SUB FACT (N)
PRINT "PRIME FACTORS OF"; N; "=";
FOR I = 1 TO N
C = 0
FOR J = 1 TO I
IF I MOD J = 0 THEN C = C + 1
NEXT J
IF N MOD I = 0 AND C = 2 THEN PRINT I;
NEXT I
END SUB

139. WAP to input any number and find sum of factors.
CLS
INPUT "ENTER ANY NUMBER"; N
S = 0
FOR I = 1 TO N
IF N MOD I = 0 THEN S = S + I
NEXT I
PRINT "SUM OF FACTORS="; S
END
USING SUB PROCEDURE

DECLARE SUB FACT (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL FACT (N)
END





SUB FACT (N)
S = 0
FOR I = 1 TO N
IF N MOD I = 0 THEN S = S + I
NEXT I
PRINT "SUM OF FACTORS="; S
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION FACT (N)
CLS
INPUT "ENTER ANY NUMBER"; N
PRINT "SUM OF FACTORS=";  FACT (N)
END

FUNCTION FACT (N)
S = 0
FOR I = 1 TO N
IF N MOD I = 0 THEN S = S + I
NEXT I
FACT = S
END FUNCTION

140. 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









141. WAP to input any number and display the prime factorial of a given number.

CLS
INPUT "ENTER ANY NUMBER"; N
F = 1
FOR I = 1 TO N
C = 0
FOR J = 1 TO I
IF I MOD J = 0 THEN C = C + 1
NEXT J
IF C = 2 THEN F = F * I
NEXT I
PRINT "PRIME 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
C = 0
FOR J = 1 TO I
IF I MOD J = 0 THEN C = C + 1
NEXT J
IF C = 2 THEN F = F * I
NEXT I
PRINT "PRIME FACTORIAL ="; F
END SUB






USING FUNCTION PROCEDURE

DECLARE FUNCTION FACT (N)
CLS
INPUT "ENTER ANY NUMBER"; N
PRINT "PRIME FACTORIAL ="; FACT (N)
END

FUNCTION FACT (N)
F = 1
FOR I = 1 TO N
C = 0
FOR J = 1 TO I
IF I MOD J = 0 THEN C = C + 1
NEXT J
IF C = 2 THEN F = F * I
NEXT I
FACT = F
END FUNCTION

142. WAP TO CHECK WHETHER THE INPUT NUMBER IS PERFECT NUMBER OR NOT.

CLS
INPUT "ENTER ANY NUMBER"; N
S = 0
FOR I = 1 TO N - 1
IF N MOD I = 0 THEN S = S + I
NEXT I
IF S = N THEN
PRINT "PERFECT NUMBER"
ELSE
PRINT "NOT PERFECT NUMBER"
END IF
END

USING SUB PROCEDURE

DECLARE SUB PERFECT (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL PERFECT (N)
END

SUB PERFECT (N)
S = 0
FOR I = 1 TO N - 1
IF N MOD I = 0 THEN S = S + I
NEXT I
IF S = N THEN
PRINT "PERFECT NUMBER"
ELSE
PRINT "NOT PERFECT NUMBER"
END IF
END SUB





USING FUNCTION PROCEDURE

DECLARE FUNCTION PERFECT (N)
CLS
INPUT "ENTER ANY NUMBER"; N
PR = PERFECT (N)
IF PR = N THEN
PRINT "PERFECT NUMBER"
ELSE
PRINT "NOT PERFECT NUMBER"
END IF
END
FUNCTION PERFECT (N)
S = 0
FOR I = 1 TO N - 1
IF N MOD I = 0 THEN S = S + I
NEXT I
PERFECT = S
END FUNCTION

143. WAP TO CHECK WHETHER THE INPUT NUMBER IS PERFECT SQUARE NUMBER OR NOT.

CLS
INPUT "ENTER ANY NUMBER"; N
S = SQR(N)
IF S = INT(S) THEN
PRINT "PERFECT SQUARE"
ELSE
PRINT "NOT PERFECT SQUARE"
END IF
END

USING SUB PROCEDURE

DECLARE SUB PERFECT (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL PERFECT (N)
END
SUB PERFECT (N)
S = SQR(N)
IF S = INT(S) THEN
PRINT "PERFECT SQUARE"
ELSE
PRINT "NOT PERFECT SQUARE"
END IF
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION PERFECT (S)
CLS
INPUT "ENTER ANY NUMBER"; N
S = SQR(N)
PR = PERFECT (S)
IF PR = S THEN
PRINT "PERFECT SQUARE"
ELSE
PRINT "NOT PERFECT SQUARE"
END IF
END
FUNCTION PERFECT (S)
PERFECT = INT (S)
END FUNCTION



144. WAP TO DISPLAY MULTIPLICATION TABLE OF A GIVEN NUMBER.

CLS
INPUT "ENTER ANY NUMBER"; N
FOR I = 1 TO 10
PRINT N; "X"; I; "="; N * I
NEXT I
END




USING SUB PROCEDURE

DECLARE SUB MUL (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL MUL (N)
END
SUB MUL (N)
FOR I = 1 TO 10
PRINT N; "X"; I; "="; N * I
NEXT I
END SUB

USING FUNCTION  PROCEDURE
DECLARE FUNCTION MUL (N)
CLS
INPUT "ENTER ANY NUMBER"; N
M = MUL(N)
END

FUNCTION MUL (N)
FOR I = 1 TO 10
PRINT N; "X"; I; "="; N * I
NEXT I
END FUNCTION

145. 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
WEND
L = C * D / B
PRINT "H.C.F="; B
HCFLCM = L
END FUNCTION
146. WAP TO DISPLAY H.C.F OF A GIVEN ANY TWO NUMBERS.

CLS
INPUT "ENTER ANY TWO NUMBERS"; A, B
WHILE A MOD B < > 0
T = A MOD B
A = B
B = T
WEND
PRINT "H.C.F="; B
END


USING SUB PROCEDURE


DECLARE SUB HCF(A, B)
CLS
INPUT "ENTER ANY TWO NUMBERS"; A, B
CALL HCF (A, B)
END

SUB HCF (A, B)
WHILE A MOD B < > 0
T = A MOD B
A = B
B = T
WEND
PRINT "H.C.F="; B
END SUB

USING FUNCTION PROCEDURE


DECLARE FUNCTION HCF(A, B)
CLS
INPUT "ENTER ANY TWO NUMBERS"; A, B
PRINT “H.C.F=”; HCF (A, B)
END

FUNCTION HCF (A, B)
WHILE A MOD B < > 0
T = A MOD B
A = B
B = T
WEND
HCF = B
END FUNCTION


147. WAP TO DISPLAY 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 "L.C.M="; L
END
USING SUB PROCEDURE
DECLARE SUB LCM(A, B)
CLS
INPUT "ENTER ANY TWO NUMBERS"; A, B
CALL LCM (A, B)
END
SUB LCM (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 "L.C.M="; L
END SUB
USING FUNCTION PROCEDURE


DECLARE FUNCTION LCM(A, B)
CLS
INPUT "ENTER ANY TWO NUMBERS"; A, B
PRINT “L.C.M=”; LCM (A, B)
END

FUNCTION LCM (A, B)
C = A
D = B
WHILE A MOD B < > 0
T = A MOD B
A = B
B = T
WEND
L = C * D / B
LCM = L
END FUNCTION

148. WAP to input number and find product of digits.
REM
CLS
INPUT "ENTER ANY NUMBER"; N
P = 1
WHILE N < > 0
R = N MOD 10
P = P * R
N = N \ 10
WEND
PRINT "PRODUCT OF DIGITS"; P
END

USING SUB PROCEDURE

DECLARE SUB PROD (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL PROD (N)
END

SUB PROD (N)
P = 1
WHILE N < > 0
R = N MOD 10
P = P * R
N = N \ 10
WEND
PRINT "PRODUCT OF DIGITS"; P
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION PROD (N)
CLS
INPUT "ENTER ANY NUMBER"; N
PR = PROD (N)
PRINT "PRODUCT OF DIGITS"; PR
END

FUNCTION PROD (N)
P = 1
WHILE N < > 0
R = N MOD 10
P = P * R
N = N \ 10
WEND
PROD = P
END FUNCTION

149. WAP to input number and find product of odd digits.
REM
CLS
INPUT "ENTER ANY NUMBER"; N
P = 1
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 1 THEN P = P * R
N = N \ 10
WEND
PRINT "PRODUCT OF ODD DIGITS"; P
END

USING SUB PROCEDURE

DECLARE SUB PROD (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL PROD (N)
END

SUB PROD (N)
P = 1
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 1 THEN P = P * R
N = N \ 10
WEND
PRINT "PRODUCT OF ODD DIGITS"; P
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION PROD (N)
CLS
INPUT "ENTER ANY NUMBER"; N
PR = PROD (N)
PRINT "PRODUCT OF ODD DIGITS"; PR
END

FUNCTION PROD (N)
P = 1
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 1 THEN P = P * R
N = N \ 10
WEND
PROD = P
END FUNCTION

150. WAP to input number and find product of even digits.
REM
CLS
INPUT "ENTER ANY NUMBER"; N
P = 1
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 0 THEN P = P * R
N = N \ 10
WEND
PRINT "PRODUCT OF EVEN DIGITS"; P
END

USING SUB PROCEDURE

DECLARE SUB PROD (N)
CLS
INPUT "ENTER ANY NUMBER"; N
CALL PROD (N)
END

SUB PROD (N)
P = 1
WHILE N < > 0
R = N MOD 10
IF R MOD 2 = 0 THEN P = P * R
N = N \ 10
WEND
PRINT "PRODUCT OF EVEN DIGITS"; P
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION PROD (N)
CLS
INPUT "ENTER ANY NUMBER"; N
PR = PROD (N)
PRINT "PRODUCT OF EVEN DIGITS"; PR
END

FUNCTION PROD (N)
P = 1
WHILE N < > 0
 R = N MOD 10
IF R MOD 2 = 0 THEN P = P * R
N = N \ 10
WEND
PROD = P
END FUNCTION


151. WAP to enter any 5 numbers and display its product.
CLS
P = 1
FOR I = 1 TO 5
INPUT "ENTER THE NUMBERS"; N(I)
P = P * N(I)
NEXT I
PRINT "PRODUCT OF 5 NUMBERS"; P
END

USING SUB PROCEDURE
DECLARE SUB PRODUCT (N( ))
CLS
FOR I = 1 TO 5
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
CALL PRODUCT (N( ))
END


SUB PRODUCT (N())
P = 1
FOR I = 1 TO 5
P = P * N(I)
NEXT I
PRINT "PRODUCT OF 5 NUMBERS"; P
END SUB


USING FUNCTION PROCEDURE
DECLARE FUNCTION PRODUCT (N( ))
CLS
FOR I = 1 TO 5
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
PRINT "PRODUCT OF 5 NUMBERS"; PRODUCT (N( ))
END


FUNCTION PRODUCT (N())
FOR I = 1 TO 5
P = P * N(I)
NEXT I
PRODUCT = P
END FUNCTION

152. WAP to input three sides of a triangle and determine whether a triangle can be formed or not.

CLS
INPUT “ENTER THREE SIDES OF A TRIANGLE”; A,B,C
IF (A + B) > C AND (B + C) > A AND (A + C) > B THEN
PRINT “THE TRIANGLE CAN BE FORMED”
ELSE
PRINT “THE TRIANGLE CANNOT  BE FORMED”
END IF
END

USING SUB PROCEDURE

DECLARE SUB CHECK (A, B, C)
CLS
INPUT “ENTER THREE SIDES OF A TRIANGLE”; A,B,C
CALL CHECK (A, B, C)
END

SUB CHECK (A, B, C)
IF (A + B) > C AND (B + C) > A AND (A + C) > B THEN
PRINT “THE TRIANGLE CAN BE FORMED”
ELSE
PRINT “THE TRIANGLE CANNOT  BE FORMED”
END IF
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION CHECK$ (A, B, C)
CLS
INPUT “ENTER THREE SIDES OF A TRIANGLE”; A,B,C
PRINT CHECK$ (A,B,C)
END
FUNCTION CHECK$ (A, B, C)
IF (A + B) > C AND (B + C) > A AND (A + C) > B THEN
CHECK$ =  “THE TRIANGLE CAN BE FORMED”
ELSE
CHECK$ = “THE TRIANGLE CANNOT  BE FORMED”
END IF
END FUNCTION

153. WAP to input three sides of a triangle and determine whether a triangle is right angled triangle or not.
CLS
INPUT “ENTER HEIGHT, BASE AND PERPENDICULAR”; H, B, P
IF H ^ 2 = (B ^ 2 + P ^ 2) THEN
PRINT “IT IS A RIGHT ANGLED TRIANGLE”
ELSE
PRINT “IT IS NOT A RIGHT ANGLED TRIANGLE”
END IF
END
USING SUB PROCEDURE

DECLARE SUB CHECK (H, B, P)
CLS
INPUT “ENTER HEIGHT, BASE AND PERPENDICULAR”; H, B, P
CALL CHECK (H, B, P)
END
SUB CHECK (H, B, P)
IF H ^ 2 = (B ^ 2 + P ^ 2) THEN
PRINT “IT IS A RIGHT ANGLED TRIANGLE”
ELSE
PRINT “IT IS NOT A RIGHT ANGLED TRIANGLE”
END IF
END SUB

USING FFUNCTION PROCEDURE

DECLARE FUNCTION CHECK$ (H, B, P)
CLS
INPUT “ENTER HEIGHT, BASE AND PERPENDICULAR”; H, B, P
PRINT CHECK$ (H, B, P)
END

FUNCTION CHECK$ (H, B, P)
IF H ^ 2 = (B ^ 2 + P ^ 2) THEN
CHECK$  = “IT IS A RIGHT ANGLED TRIANGLE”
ELSE
CHECK$  = “IT IS NOT A RIGHT ANGLED TRIANGLE”
END IF
END FUNCTION

154. WAP to input three angles of a triangle and determine whether a triangle is right angled triangle or not.

CLS
INPUT “ENTER THREE ANGLES OF A TRIANGLE”; A,B,C
IF A = 90 OR B = 90 OR C = 90 THEN
PRINT “IT IS A RIGHT ANGLED TRIANGLE”
ELSE
PRINT “IT IS NOT A RIGHT ANGLED TRIANGLE”
END IF
END

USING SUB PROCEDURE
DECLARE SUB CHECK (A, B, C)
CLS
INPUT “ENTER THREE SIDES OF A TRIANGLE”; A,B,C
CALL CHECK (A, B, C)
END
SUB CHECK (A, B, C)
IF A = 90 OR B = 90 OR C = 90 THEN
PRINT “IT IS A RIGHT ANGLED TRIANGLE”
ELSE
PRINT “IT IS NOT A RIGHT ANGLED TRIANGLE”
END IF
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION CHECK$ (A, B, C)
CLS
INPUT “ENTER THREE SIDES OF A TRIANGLE”; A,B,C
PRINT CHECK$ (A,B,C)
END
FUNCTION CHECK$ (A, B, C)
IF A = 90 OR B = 90 OR C = 90 THEN
CHECK$ =  “IT IS A RIGHT ANGLED TRIANGLE”
ELSE
CHECK$ =  “IT IS NOT A RIGHT ANGLED TRIANGLE”
END IF
END FUNCTION

155. WAP to input three sides of a triangle and determine whether a triangle is equilateral triangle or
not.

CLS
INPUT “ENTER THREE SIDES OF A TRIANGLE”; A,B,C
IF A = B AND B = C THEN
PRINT “IT IS A EQUILATERAL TRIANGLE”
ELSE
PRINT “IT IS NOT A EQUILATERAL TRIANGLE”
END IF
USING SUB PROCEDURE

DECLARE SUB CHECK (A, B, C)
CLS
INPUT “ENTER THREE SIDES OF A TRIANGLE”; A,B,C
CALL CHECK (A, B, C)
END

SUB CHECK (A, B, C)
IF A = B AND B = C THEN
PRINT “IT IS A EQUILATERAL TRIANGLE”
ELSE
PRINT “IT IS NOT A EQUILATERAL TRIANGLE”
END IF
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION CHECK$ (A, B, C)
CLS
INPUT “ENTER THREE SIDES OF A TRIANGLE”; A,B,C
PRINT CHECK$ (A,B,C)
END

FUNCTION CHECK$ (A, B, C)
IF A = B AND B = C THEN
CHECK$ =  “IT IS A EQUILATERAL TRIANGLE”
ELSE
CHECK$ = “IT IS NOT A EQUILATERAL TRIANGLE”
END IF
END FUNCTION



156. WAP to input three sides of a triangle and determine whether a triangle is equilateral, isosceles or scalene triangle or not.

CLS
INPUT “ENTER THREE SIDES OF A TRIANGLE”; A,B,C
IF A = B AND B = C THEN
PRINT “IT IS A EQUILATERAL TRIANGLE”
ELSEIF A = B OR B = C OR C = A THEN
PRINT “IT IS ISOSCELES TRIANGLE”
ELSEIF A < > B AND B < > C THEN
PRINT “ IT IS A SCALENE TRIANGLE”
END IF
END

USING SUB PROCEDURE

DECLARE SUB CHECK (A, B, C)
CLS
INPUT “ENTER THREE SIDES OF A TRIANGLE”; A,B,C
CALL CHECK (A, B, C)
END

SUB CHECK (A, B, C)
IF A = B AND B = C THEN
PRINT “IT IS A EQUILATERAL TRIANGLE”
ELSEIF A = B OR B = C OR C = A THEN
PRINT “IT IS ISOSCELES TRIANGLE”
ELSEIF A < > B AND B < > C THEN
PRINT “ IT IS A SCALENE TRIANGLE”
END IF
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION CHECK$ (A, B, C)
CLS
INPUT “ENTER THREE SIDES OF A TRIANGLE”; A,B,C
PRINT CHECK$ (A,B,C)
END

FUNCTION CHECK$ (A, B, C)
IF A = B AND B = C THEN
CHECK$ = “IT IS A EQUILATERAL TRIANGLE”
ELSEIF A = B OR B = C OR C = A THEN
CHECK$ =  “IT IS ISOSCELES TRIANGLE”
ELSEIF A < > B AND B < > C THEN
CHECK$ =  “ IT IS A SCALENE TRIANGLE”
END IF
END FUNCTION

157. WAP to enter any 10 numbers and sort in ascending order.
CLS
DIM N(10)
FOR I = 1 TO 10
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
FOR I = 1 TO 10
FOR J = 1 TO 10 - I
IF N(J) > N(J + 1) THEN SWAP N(J), N(J + 1)
NEXT J
NEXT I
PRINT "NUMBERS ARRANGED IN ASCENDING ORDER"
FOR I = 1 TO 10
PRINT N(I)
NEXT I
END
USING SUB PROCEDURE
DECLARE SUB SORT (N())
CLS
DIM N(10)
FOR I = 1 TO 10
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
CALL SORT(N())
PRINT "NUMBERS ARRANGED IN ASCENDING ORDER"
FOR I = 1 TO 10
PRINT N(I)
NEXT I
END

SUB SORT (N())
FOR I = 1 TO 10
FOR J = 1 TO 10 - I
IF N(J) > N(J + 1) THEN SWAP N(J), N(J + 1)
NEXT J
NEXT I

END SUB
158.   WAP to enter any 10 numbers and sort in descending order.
CLS
DIM N(10)
FOR I = 1 TO 10
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
FOR I = 1 TO 10
FOR J = 1 TO 10 - I
IF N(J) < N(J + 1) THEN SWAP N(J), N(J + 1)
NEXT J
NEXT I
PRINT "NUMBERS ARRANGED IN DESCENDING ORDER"
FOR I = 1 TO 10
PRINT N(I)
NEXT I
END SUB
USING SUB PROCEDURE
DECLARE SUB SORT (N())
CLS
DIM N(10)
FOR I = 1 TO 10
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
CALL SORT(N())
PRINT "NUMBERS ARRANGED IN DESCENDING ORDER"
FOR I = 1 TO 10
PRINT N(I)
NEXT I
END

SUB SORT (N())
FOR I = 1 TO 10
FOR J = 1 TO 10 - I
IF N(J) < N(J + 1) THEN SWAP N(J), N(J + 1)
NEXT J
NEXT I

END SUB

159. 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
160.  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
IF S$ = W$ THEN
PRINT  S$; “IS PALINDROME”
ELSE
PRINT S$; “IS NOT PALINDROME”
END IF
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
IF S$ = W$ THEN
PRINT  S$; “IS PALINDROME”
ELSE
PRINT S$; “IS NOT PALINDROME”
END IF
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION REV$ (S$)
CLS
INPUT "ENTER ANY STRING"; S$
C$ = REV$(S$)
IF S$ = C$ THEN
PRINT  S$; “IS PALINDROME”
ELSE
PRINT S$; “IS NOT PALINDROME”
END IF
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

161. WAP to input any string and count total no. of vowels.
CLS
INPUT "ENTER ANY STRING"; S$
VC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN
VC = VC + 1
END IF
NEXT I
PRINT "TOTAL NO. OF VOWELS= "; VC
END

USING SUB PROCEDURE

DECLARE SUB COUNT (S$)
CLS
INPUT "ENTER ANY STRING"; S$
CALL COUNT(S$)
END

SUB COUNT (S$)
VC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN
VC = VC + 1
END IF
NEXT I
PRINT "TOTAL NO. OF VOWELS= "; VC
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION COUNT (S$)
CLS
INPUT "ENTER ANY STRING"; S$
PRINT "TOTAL NO. OF VOWELS= "; COUNT(S$)
END

FUNCTION COUNT (S$)
VC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN
VC = VC + 1
END IF
NEXT I
COUNT = VC
END FUNCTION


162. WAP to input any string and display only vowels.
CLS
INPUT "ENTER ANY STRING"; S$
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN
PRINT B$
END IF
NEXT I
END

USING SUB PROCEDURE

DECLARE SUB DISPV (S$)
CLS
INPUT "ENTER ANY STRING"; S$
CALL DISPV(S$)
END

SUB DISPV(S$)
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN
PRINT B$
END IF
NEXT I
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION DISPV (S$)
CLS
INPUT "ENTER ANY STRING"; S$
VC = DISPV(S$)
END

FUNCTION DISPV(S$)
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN
PRINT B$
END IF
NEXT I
END FUNCTION

163.  WAP to input any string and count total no. of consonants.
CLS
INPUT "ENTER ANY STRING"; S$
CC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ <> "A" AND C$ <> "E" AND C$ <> "I" AND C$ <> "O"
AND C$ <> "U" AND C$ <> " " AND C$ <> "." THEN
CC = CC + 1
END IF
NEXT I
PRINT "TOTAL NO. OF CONSONANTS= "; CC
END SUB



USING SUB PROCEDURE

DECLARE SUB COUNT (S$)
CLS
INPUT "ENTER ANY STRING"; S$
CALL COUNT(S$)
END

SUB COUNT (S$)
CC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ <> "A" AND C$ <> "E" AND C$ <> "I" AND C$ <> "O"
AND C$ <> "U" AND C$ <> " " AND C$ <> "." THEN
CC = CC + 1
END IF
NEXT I
PRINT "TOTAL NO. OF CONSONANTS= "; CC
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION COUNT (S$)
CLS
INPUT "ENTER ANY STRING"; S$
PRINT "TOTAL NO. OF CONSONANTS= "; COUNT(S$)
END

FUNCTION COUNT (S$)
CC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ <> "A" AND C$ <> "E" AND C$ <> "I" AND C$ <> "O" AND C$ <> "U" AND C$ <> " " AND C$ <> "." THEN
CC = CC + 1
END IF
NEXT I
COUNT = CC
END FUNCTION

164.  WAP to input any string and display only consonants.
CLS
INPUT "ENTER ANY STRING"; S$
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ <> "A" AND C$ <> "E" AND C$ <> "I" AND C$ <> "O"
AND C$ <> "U" AND C$ <> " " AND C$ <> "." THEN
PRINT B$
END IF
NEXT I
END

USING SUB PROCEDURE

DECLARE SUB DISPC (S$)
CLS
INPUT "ENTER ANY STRING"; S$
CALL DISPC(S$)
END

SUB DISPC(S$)
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ <> "A" AND C$ <> "E" AND C$ <> "I" AND C$ <> "O"
AND C$ <> "U" AND C$ <> " " AND C$ <> "." THEN
PRINT B$
END IF
NEXT I
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION DISPC (S$)
CLS
INPUT "ENTER ANY STRING"; S$
CC = DISPC(S$)
END

FUNCTION DISPC(S$)
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ <> "A" AND C$ <> "E" AND C$ <> "I" AND C$ <> "O"
AND C$ <> "U" AND C$ <> " " AND C$ <> "." THEN
PRINT B$
END IF
NEXT I
END FUNCTION

165.  WAP to input any string and count total no. of vowels and consonants.

CLS
INPUT "ENTER ANY STRING"; S$
VC = 0
CC = 0
WC = 1
SC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN
VC = VC + 1
ELSEIF B$ = " " THEN
WC = WC + 1
ELSEIF B$ = "." THEN
SC = SC + 1
ELSE
CC = CC + 1
END IF
NEXT I
PRINT "TOTAL NO. OF VOWELS= "; VC
PRINT "TOTAL NO. OF CONSONANTS="; CC
END

USING SUB PROCEDURE
DECLARE SUB COUNT (S$)
CLS
INPUT "ENTER ANY STRING"; S$
CALL COUNT(S$)
END

SUB COUNT (S$)
VC = 0
CC = 0
WC = 1
SC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN
VC = VC + 1
ELSEIF B$ = " " THEN
WC = WC + 1
ELSEIF B$ = "." THEN
SC = SC + 1
ELSE
CC = CC + 1
END IF
NEXT I
PRINT "TOTAL NO. OF VOWELS= "; VC
PRINT "TOTAL NO. OF CONSONANTS="; CC
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION COUNT (S$)
CLS
INPUT "ENTER ANY STRING"; S$
PRINT "TOTAL NO. OF CONSONANTS= "; COUNT(S$)
END

FUNCTION COUNT (S$)
VC = 0
CC = 0
WC = 1
SC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN
VC = VC + 1
ELSEIF B$ = " " THEN
WC = WC + 1
ELSEIF B$ = "." THEN
SC = SC + 1
ELSE
CC = CC + 1
END IF
NEXT I
PRINT "TOTAL NO. OF VOWELS="; CC
COUNT = CC
END FUNCTION





166. WAP to input any word and count total no. of vowels and consonants.
CLS
INPUT "ENTER ANY WORD"; S$
VC = 0
CC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN
VC = VC + 1
ELSE
CC = CC + 1
END IF
NEXT I
PRINT "TOTAL NO. OF VOWELS= "; VC
PRINT "TOTAL NO. OF CONSONANTS="; CC
END

USING SUB PROCEDURE
DECLARE SUB COUNT (S$)
CLS
INPUT "ENTER ANY WORD"; S$
CALL COUNT(S$)
END

SUB COUNT (S$)
VC = 0
CC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN
VC = VC + 1
ELSE
CC = CC + 1
END IF
NEXT I
PRINT "TOTAL NO. OF VOWELS= "; VC
PRINT "TOTAL NO. OF CONSONANTS="; CC
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION COUNT (S$)
CLS
INPUT "ENTER ANY WORD"; S$
PRINT "TOTAL NO. OF CONSONANTS= "; COUNT(S$)
END

FUNCTION COUNT (S$)
VC = 0
CC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN
VC = VC + 1
ELSE
CC = CC + 1
END IF
NEXT I
PRINT "TOTAL NO. OF VOWELS="; CC
COUNT = CC
END FUNCTION

167.  WAP to input any string and count total no. of words.

CLS
INPUT "ENTER ANY STRING"; S$
WC = 1
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
IF B$ = " " THEN
WC = WC + 1
END IF
NEXT I
PRINT "TOTAL NO. OF WORDS= "; WC
END SUB


USING SUB PROCEDURE
DECLARE SUB COUNT (S$)
CLS
INPUT "ENTER ANY STRING"; S$
CALL COUNT(S$)
END

SUB COUNT (S$)
WC = 1
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
IF B$ = " " THEN
WC = WC + 1
END IF
NEXT I
PRINT "TOTAL NO. OF WORDS= "; WC
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION COUNT (S$)
CLS
INPUT "ENTER ANY STRING"; S$
PRINT "TOTAL NO. OF WORDS= "; COUNT(S$)
END

FUNCTION COUNT (S$)
WC = 1
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
IF B$ = " " THEN
WC = WC + 1
END IF
NEXT I
COUNT = WC
END FUNCTION


168.  WAP to input any string and count total no. of vowels , consonants and words.
CLS
INPUT "ENTER ANY STRING"; S$
VC = 0
CC = 0
WC = 1
SC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN
VC = VC + 1
ELSEIF B$ = " " THEN
WC = WC + 1
ELSEIF B$ = "." THEN
SC = SC + 1
ELSE
CC = CC + 1
END IF
NEXT I
PRINT "TOTAL NO. OF VOWELS= "; VC
PRINT "TOTAL NO. OF CONSONANTS="; CC
PRINT "TOTAL NO. OF WORDS="; WC
END

USING SUB PROCEDURE
DECLARE SUB COUNT (S$)
CLS
INPUT "ENTER ANY STRING"; S$
CALL COUNT(S$)
END

SUB COUNT (S$)
VC = 0
CC = 0
WC = 1
SC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN
VC = VC + 1
ELSEIF B$ = " " THEN
WC = WC + 1
ELSEIF B$ = "." THEN
SC = SC + 1
ELSE
CC = CC + 1
END IF
NEXT I
PRINT "TOTAL NO. OF VOWELS= "; VC
PRINT "TOTAL NO. OF CONSONANTS="; CC
PRINT "TOTAL NO. OF WORDS="; WC
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION COUNT (S$)
CLS
INPUT "ENTER ANY STRING"; S$
PRINT "TOTAL NO. OF CONSONANTS= "; COUNT(S$)
END

FUNCTION COUNT (S$)
VC = 0
CC = 0
WC = 1
SC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN
VC = VC + 1
ELSEIF B$ = " " THEN
WC = WC + 1
ELSEIF B$ = "." THEN
SC = SC + 1
ELSE
CC = CC + 1
END IF
NEXT I
PRINT "TOTAL NO. OF VOWELS="; CC
PRINT "TOTAL NO. OF WORDS="; WC
COUNT = CC
END FUNCTION

169. WAP to input any string and count total no. of sentences.
CLS
INPUT "ENTER ANY STRING"; S$
SC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
IF B$ = " " THEN
SC = SC + 1
END IF
NEXT I
PRINT "TOTAL NO. OF SENTENCES= "; SC
END SUB


USING SUB PROCEDURE
DECLARE SUB COUNT (S$)
CLS
INPUT "ENTER ANY STRING"; S$
CALL COUNT(S$)
END

SUB COUNT (S$)
SC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
IF B$ = " " THEN
SC = SC + 1
END IF
NEXT I
PRINT "TOTAL NO. OF SENTENCES= "; SC
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION COUNT (S$)
CLS
INPUT "ENTER ANY STRING"; S$
PRINT "TOTAL NO. OF SENTENCES= "; COUNT(S$)
END

FUNCTION COUNT (S$)
SC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
IF B$ = " " THEN
SC = SC + 1
END IF
NEXT I
COUNT = SC
END FUNCTION




170.  WAP to input any string and count total no. of vowels , consonants, words and sentences.
CLS
INPUT "ENTER ANY STRING"; S$
VC = 0
CC = 0
WC = 1
SC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN
VC = VC + 1
ELSEIF B$ = " " THEN
WC = WC + 1
ELSEIF B$ = "." THEN
SC = SC + 1
ELSE
CC = CC + 1
END IF
NEXT I
PRINT "TOTAL NO. OF VOWELS= "; VC
PRINT "TOTAL NO. OF CONSONANTS="; CC
PRINT "TOTAL NO. OF WORDS="; WC
PRINT "TOTAL NO. OF SENTENCES="; SC
END

USING SUB PROCEDURE
DECLARE SUB COUNT (S$)
CLS
INPUT "ENTER ANY STRING"; S$
CALL COUNT(S$)
END

SUB COUNT (S$)
VC = 0
CC = 0
WC = 1
SC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN
VC = VC + 1
ELSEIF B$ = " " THEN
WC = WC + 1
ELSEIF B$ = "." THEN
SC = SC + 1
ELSE
CC = CC + 1
END IF
NEXT I
PRINT "TOTAL NO. OF VOWELS= "; VC
PRINT "TOTAL NO. OF CONSONANTS="; CC
PRINT "TOTAL NO. OF WORDS="; WC
PRINT "TOTAL NO. OF SENTENCES="; SC
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION COUNT (S$)
CLS
INPUT "ENTER ANY STRING"; S$
PRINT "TOTAL NO. OF CONSONANTS= "; COUNT(S$)
END

FUNCTION COUNT (S$)
VC = 0
CC = 0
WC = 1
SC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN
VC = VC + 1
ELSEIF B$ = " " THEN
WC = WC + 1
ELSEIF B$ = "." THEN
SC = SC + 1
ELSE
CC = CC + 1
END IF
NEXT I
PRINT "TOTAL NO. OF VOWELS="; CC
PRINT "TOTAL NO. OF WORDS="; WC
PRINT "TOTAL NO. OF SENTENCES="; SC
COUNT = CC
END FUNCTION




171. WAP to input any string and display only consonant by removing vowels.
CLS
INPUT "ENTER ANY STRING"; S$
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ <> "A" AND C$ <> "E" AND C$ <> "I" AND C$ <> "O" AND C$ <> "U" AND C$ <> " " AND C$ <> "." THEN
W$=W$+B$
END IF
NEXT I
PRINT W$
END SUB

USING SUB PROCEDURE
DECLARE SUB DISP(S$)
CLS
INPUT "ENTER ANY STRING"; S$
CALL DISP(S$)
END

SUB DISP (S$)
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ <> "A" AND C$ <> "E" AND C$ <> "I" AND C$ <> "O" AND C$ <> "U" AND C$ <> " " AND C$ <> "." THEN
W$=W$+B$
END IF
NEXT I
PRINT W$
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION DISP$ (S$)
CLS
INPUT "ENTER ANY STRING"; S$
PRINT DISP(S$)
END

FUNCTION DISP$ (S$)
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ <> "A" AND C$ <> "E" AND C$ <> "I" AND C$ <> "O" AND C$ <> "U" AND C$ <> " " AND C$ <> "." THEN
W$=W$+B$
END IF
NEXT I
DISP$ =  W$
END FUNCTION

172. WAP to input any string and check whether the first character of a input string is alphabet, number or symbol.
CLS
INPUT "ENTER ANY STRING"; S$
A$ = LEFT$(S$, 1)
B = ASC(A$)
IF B >= 48 AND B <= 57 THEN
CK$ = "FIRST CHARACTER IS A NUMBER"
ELSEIF B >= 65 AND B <= 90 OR B >= 97 AND B <= 122 THEN
CK$ = "FIRST CHARACTER IS ALPHABET"
ELSE
CK$ = "FIRST CHARACTER IS SYMBOL"
END IF
PRINT CK$
END SUB


USING SUB PROCEDURE
DECLARE SUB CHECK (S$)
CLS
INPUT "ENTER ANY STRING"; S$
CALL CHECK(S$)
END

SUB CHECK (S$)
A$ = LEFT$(S$, 1)
B = ASC(A$)
IF B >= 48 AND B <= 57 THEN
CK$ = "FIRST CHARACTER IS A NUMBER"
ELSEIF B >= 65 AND B <= 90 OR B >= 97 AND B <= 122 THEN
CK$ = "FIRST CHARACTER IS ALPHABET"
ELSE
CK$ = "FIRST CHARACTER IS SYMBOL"
END IF
PRINT CK$
END SUB


USING FUNCTION PROCEDURE
DECLARE FUNCTION CHECK$ (S$)
CLS
INPUT "ENTER ANY STRING"; S$
PRINT CHECK$(S$)
END
FUNCTION CHECK$ (S$)
A$ = LEFT$(S$, 1)
B = ASC(A$)
IF B >= 48 AND B <= 57 THEN
CHECK$ = "FIRST CHARACTER IS A NUMBER"
ELSEIF B >= 65 AND B <= 90 OR B >= 97 AND B <= 122 THEN
CHECK$ = "FIRST CHARACTER IS ALPHABET"
ELSE
CHECK$ = "FIRST CHARACTER IS SYMBOL"
END IF
END FUNCTION


173. WAP to input string and find whether the first character is a number or uppercase or lowercase.
CLS
INPUT "ENTER ANY STRING"; S$
A$ = LEFT$(S$, 1)
B = ASC(A$)
IF B >= 48 AND B <= 57 THEN
CK$ = "FIRST CHARACTER IS A NUMBER"
ELSEIF B >= 65 AND B <= 90 THEN
CK$ = "FIRST CHARACTER IS UPPERCASE"
ELSE IF  B >= 97 AND B <= 122 THEN
CK$ = "FIRST CHARACTER IS LOWERCASE"
ELSE
CK$=”FIRST CHARACTER IS NEITHER NUMBER, UPPERCASE OR LOWERCASE”
END IF
PRINT CK$
END SUB


USING SUB PROCEDURE
DECLARE SUB CHECK (S$)
CLS
INPUT "ENTER ANY STRING"; S$
CALL CHECK(S$)
END

SUB CHECK (S$)
A$ = LEFT$(S$, 1)
B = ASC(A$)
IF B >= 48 AND B <= 57 THEN
CK$ = "FIRST CHARACTER IS A NUMBER"
ELSEIF B >= 65 AND B <= 90 THEN
CK$ = "FIRST CHARACTER IS UPPERCASE"
ELSE IF  B >= 97 AND B <= 122 THEN
CK$ = "FIRST CHARACTER IS LOWERCASE"
ELSE
CK$=”FIRST CHARACTER IS NEITHER NUMBER, UPPERCASE OR LOWERCASE”
END IF
PRINT CK$
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION CHECK$ (S$)
CLS
INPUT "ENTER ANY STRING"; S$
PRINT CHECK$(S$)
END

FUNCTION CHECK$ (S$)
A$ = LEFT$(S$, 1)
B = ASC(A$)
IF B >= 48 AND B <= 57 THEN
CK$ = "FIRST CHARACTER IS A NUMBER"
ELSEIF B >= 65 AND B <= 90 THEN
CK$ = "FIRST CHARACTER IS UPPERCASE"
ELSE IF  B >= 97 AND B <= 122 THEN
CK$ = "FIRST CHARACTER IS LOWERCASE"
ELSE
CK$=”FIRST CHARACTER IS NEITHER NUMBER, UPPERCASE OR LOWERCASE”
END IF
CHECK$ = CK$
END FUNCTION

174. WAP to input string and display the input string in alternate character. E.g computerà cOmPuTeR
CLS
INPUT "ENTER ANY WORD"; S$
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
IF I MOD 2 = 1 THEN
W$ = W$ + LCASE$(B$)
ELSE
W$ = W$ + UCASE$(B$)
END IF
NEXT I
PRINT W$
END SUB


USING SUB PROCEDURE
DECLARE SUB ALT(S$)
CLS
INPUT "ENTER ANY WORD"; S$
CALL ALT(S$)
END

SUB ALT$ (S$)
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
IF I MOD 2 = 1 THEN
W$ = W$ + LCASE$(B$)
ELSE
W$ = W$ + UCASE$(B$)
END IF
NEXT I
PRINT W$
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION ALT$ (S$)
CLS
INPUT "ENTER ANY WORD"; S$
PRINT ALT$(S$)
END

FUNCTION ALT$ (S$)
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
IF I MOD 2 = 1 THEN
W$ = W$ + LCASE$(B$)
ELSE
W$ = W$ + UCASE$(B$)
END IF
NEXT I
ALT$ = W$
END FUNCTION

175.  WAP to count the frequency of characters R or S present in the supplied string.

CLS
INPUT "ENTER ANY STRING"; S$
RC = 0
SC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "R" THEN RC = RC + 1
IF C$ = "S" THEN SC = SC + 1
NEXT I
PRINT "TOTAL NO. OF R= "; RC
PRINT "TOTAL NO. OF S= "; SC
END




USING SUB PROCEDURE
DECLARE SUB COUNT (S$)
CLS
INPUT "ENTER ANY STRING"; S$
CALL COUNT(S$)
END

SUB COUNT (S$)
RC = 0
SC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "R" THEN RC = RC + 1
IF C$ = "S" THEN SC = SC + 1
NEXT I
PRINT "TOTAL NO. OF R= "; RC
PRINT "TOTAL NO. OF S= "; SC

END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION COUNT (S$)
CLS
INPUT "ENTER ANY STRING"; S$
PRINT “TOTAL NO. OF S=”;  COUNT(S$)
END

FUNCTION COUNT (S$)
RC = 0
SC = 0
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "R" THEN RC = RC + 1
IF C$ = "S" THEN SC = SC + 1
NEXT I
PRINT "TOTAL NO. OF R= "; RC
COUNT = SC

END FUNCTION
176.  WAP to check whether the supplied character is alphabet or not.

CLS
INPUT "ENTER ANY CHARACTER"; A$
B = ASC(A$)
IF B >= 65 AND B <= 90 OR B >= 97 AND B <= 122 THEN
CK$ = "SUPPLIED CHARACTER IS ALPHABET"
ELSE
CK$ = "SUPPLIED CHARACTER IS NOT ALPHABET"
END IF
PRINT CK$
END SUB


USING SUB PROCEDURE
DECLARE SUB CHECK (A$)
CLS
INPUT "ENTER ANY CHARACTER"; A$
CALL CHECK(A$)
END

SUB CHECK (A$)
B = ASC(A$)
IF B >= 65 AND B <= 90 OR B >= 97 AND B <= 122 THEN
CK$ = "SUPPLIED CHARACTER IS ALPHABET"
ELSE
CK$ = "SUPPLIED CHARACTER IS NOT ALPHABET"
END IF
PRINT CK$
END SUB




USING FUNCTION PROCEDURE
DECLARE FUNCTION CHECK$ (A$)
CLS
INPUT "ENTER ANY CHARACTER"; A$
PRINT CHECK$(A$)
END

FUNCTION CHECK$ (A$)
B = ASC(A$)
IF B >= 65 AND B <= 90 OR B >= 97 AND B <= 122 THEN
CK$ = "SUPPLIED CHARACTER IS ALPHABET"
ELSE
CK$ = "SUPPLIED CHARACTER IS NOT ALPHABET"
END IF
CHECK$ = CK$
END FUNCTION


177.  WAP to enter any ten strings and display the longest strings.
CLS
INPUT "ENTER FIRST STRING"; A$
FOR I = 2 TO 10
INPUT "ENTER NEXT STRING"; B$
IF LEN(B$) > LEN(A$) THEN A$ = B$
NEXT I
PRINT "LONGEST STRING="; A$
END

USING SUB PROCEDURE
DECLARE SUB LON( A$ )
CLS
INPUT "ENTER FIRST STRING"; A$
CALL LON (A$)
END
SUB LON (A$)
FOR I = 2 TO 10
INPUT "ENTER NEXT STRING"; B$
IF LEN(B$) > LEN(A$) THEN A$ = B$
NEXT I
PRINT "LONGEST STRING="; A$
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION LON$( A$ )
CLS
INPUT "ENTER FIRST STRING"; A$
PRINT "LONGEST STRING=";  LON (A$)
END
FUNCTION LON (A$)

FOR I = 2 TO 10
INPUT "ENTER NEXT STRING"; B$
IF LEN(B$) > LEN(A$) THEN A$ = B$
NEXT I
LON$ = A$
END FUNCTION

178.  WAP to enter any ten strings and display the shortest string.
CLS
INPUT "ENTER FIRST STRING"; A$
FOR I = 2 TO 10
INPUT "ENTER NEXT STRING"; B$
IF LEN(B$) < LEN(A$) THEN A$ = B$
NEXT I
PRINT "SHORTEST STRING="; A$
END
USING SUB PROCEDURE
DECLARE SUB SHRT( A$ )
CLS
INPUT "ENTER FIRST STRING"; A$
CALL SHRT (A$)
END
SUB SHRT (A$)
FOR I = 2 TO 10
INPUT "ENTER NEXT STRING"; B$
IF LEN(B$) < LEN(A$) THEN A$ = B$
NEXT I
PRINT "SHORTEST STRING="; A$
END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION SHRT$( A$ )
CLS
INPUT "ENTER FIRST STRING"; A$
PRINT "SHORTEST STRING=";  SHRT$(A$)
END
FUNCTION SHRT$(A$)
FOR I = 2 TO 10
INPUT "ENTER NEXT STRING"; B$
IF LEN(B$) < LEN(A$) THEN A$ = B$
NEXT I
SHRT$ = A$
END FUNCTION



179. WAP to enter any ten strings and sort in ascending order.
CLS
DIM N(10) AS STRING
FOR I = 1 TO 10
INPUT "ENTER THE STRINGS"; N(I)
NEXT I
FOR I = 1 TO 10
FOR J = 1 TO 10 - I
IF N(J) > N(J + 1) THEN SWAP N(J), N(J + 1)
NEXT J
NEXT I
PRINT "STRINGS ARRANGED IN ASCENDING ORDER"
FOR I = 1 TO 10
PRINT N(I)
NEXT I
END

USING SUB PROCEDURE
DECLARE SUB SORT (N())
CLS
DIM N(10) AS STRING
FOR I = 1 TO 10
INPUT "ENTER THE STRINGS"; N(I)
NEXT I
CALL SORT(N())
PRINT "STRINGS ARRANGED IN ASCENDING ORDER"
FOR I = 1 TO 10
PRINT N(I)
NEXT I
END
SUB SORT (N())
FOR I = 1 TO 10
FOR J = 1 TO 10 - I
IF N(J) > N(J + 1) THEN SWAP N(J), N(J + 1)
NEXT J
NEXT I

END SUB
180. WAP to enter any ten strings and sort in descending order.
CLS
DIM N(10) AS STRING
FOR I = 1 TO 10
INPUT "ENTER THE STRINGS"; N(I)
NEXT I
FOR I = 1 TO 10
FOR J = 1 TO 10 - I
IF N(J) < N(J + 1) THEN SWAP N(J), N(J + 1)
NEXT J
NEXT I
PRINT "STRINGS ARRANGED IN DESCENDING ORDER"
FOR I = 1 TO 10
PRINT N(I)
NEXT I
END

USING SUB PROCEDURE
DECLARE SUB SORT (N())
CLS
DIM N(10) AS STRING
FOR I = 1 TO 10
INPUT "ENTER THE STRINGS"; N(I)
NEXT I
CALL SORT(N())
PRINT "STRINGS ARRANGED IN DESCENDING ORDER"
FOR I = 1 TO 10
PRINT N(I)
NEXT I
END
SUB SORT (N())
FOR I = 1 TO 10
FOR J = 1 TO 10 - I
IF N(J) < N(J + 1) THEN SWAP N(J), N(J + 1)
NEXT J
NEXT I

END SUB
181. WAP to enter any three strings and print the shortest one.

CLS
INPUT "ENTER FIRST STRING"; A$
INPUT "ENTER SECOND STRING"; B$
INPUT "ENTER THIRD STRING"; C$
IF LEN(A$) < LEN(B$) AND LEN(A$) < LEN(C$) THEN
S$ = A$
IF LEN(B$) < LEN(A$) AND LEN(B$) < LEN(C$) THEN
S$ = B$
ELSE
S$ = C$
END IF
PRINT "SHORTEST STRING="; S$
END

USING SUB PROCEDURE
DECLARE SUB SHRT( A$, B$, C$)
CLS
INPUT "ENTER FIRST STRING"; A$
INPUT "ENTER SECOND STRING"; B$
INPUT "ENTER THIRD STRING"; C$
CALL SHRT$(A$, B$, C$)
END

SUB SHRT$(A$, B$, C$)
IF LEN(A$) < LEN(B$) AND LEN(A$) < LEN(C$) THEN
S$ = A$
IF LEN(B$) < LEN(A$) AND LEN(B$) < LEN(C$) THEN
S$ = B$
ELSE
S$ = C$
END IF
PRINT “SHORTEST STRING=”; S$
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION SHRT$( A$, B$, C$)
CLS
INPUT "ENTER FIRST STRING"; A$
INPUT "ENTER SECOND STRING"; B$
INPUT "ENTER THIRD STRING"; C$
PRINT "SHORTEST STRING="; SHRT$( A$, B$, C$)
END

FUNCTION SHRT$( A$, B$, C$)
IF LEN(A$) < LEN(B$) AND LEN(A$) < LEN(C$) THEN
S$ = A$
IF LEN(B$) < LEN(A$) AND LEN(B$) < LEN(C$) THEN
S$ = B$
ELSE
S$ = C$
END IF
SHRT$ = S$
END FUNCTION

182. WAP to enter any three strings and print the longest one.
CLS
INPUT "ENTER FIRST STRING"; A$
INPUT "ENTER SECOND STRING"; B$
INPUT "ENTER THIRD STRING"; C$
IF LEN(A$) > LEN(B$) AND LEN(A$) > LEN(C$) THEN
G$ = A$
IF LEN(B$) > LEN(A$) AND LEN(B$) > LEN(C$) THEN
G$ = B$
ELSE
G$ = C$
END IF
PRINT "LONGEST STRING="; G$
END

USING SUB PROCEDURE
DECLARE SUB LON ( A$, B$, C$)
CLS
INPUT "ENTER FIRST STRING"; A$
INPUT "ENTER SECOND STRING"; B$
INPUT "ENTER THIRD STRING"; C$
CALL LON(A$, B$, C$)
END

SUB LON (A$, B$, C$)
IF LEN(A$) > LEN(B$) AND LEN(A$) > LEN(C$) THEN
G$ = A$
IF LEN(B$) > LEN(A$) AND LEN(B$) > LEN(C$) THEN
G$ = B$
ELSE
G$ = C$
END IF
PRINT “LONGEST STRING=”; G$
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION LON$( A$, B$, C$)
CLS
INPUT "ENTER FIRST STRING"; A$
INPUT "ENTER SECOND STRING"; B$
INPUT "ENTER THIRD STRING"; C$
PRINT "LONGEST STRING="; LON$( A$, B$, C$)
END
FUNCTION LON$( A$, B$, C$)
IF LEN(A$) > LEN(B$) AND LEN(A$) > LEN(C$) THEN
G$ = A$
IF LEN(B$) > LEN(A$) AND LEN(B$) > LEN(C$) THEN
G$ = B$
ELSE
G$ = C$
END IF
LON$ = S$
END FUNCTION

183. WAP to convert decimal number to binary number.
CLS
INPUT "ENTER DECIMAL NUMBER"; D
WHILE D < > 0
R = D MOD 2
S$ = STR$(R) + S$
D = D \ 2
WEND
PRINT "BINARY EQUIVALENT VALUE="; S$
END
USING SUB PROCEDURE
DECLARE SUB CONV(D)
CLS
INPUT "ENTER DECIMAL NUMBER"; D
CALL CONV(D)
END
SUB CONV(D)
WHILE D  < > 0
R = D MOD 2
S$ = STR$(R) + S$
D = D \ 2
WEND
PRINT "BINARY EQUIVALENT VALUE="; S$
END
USING FUNCTION PROCEDURE
DECLARE SUB CONV$(D)
CLS
INPUT "ENTER DECIMAL NUMBER"; D
PRINT "BINARY EQUIVALENT VALUE=";  CONV$(D)
END
SUB CONV$(D)
WHILE D  < > 0
R = D MOD 2
S$ = STR$(R) + S$
D = D \ 2
WEND
CONV$ = S$
END FUNCTION

184. WAP to convert binary number to decimal number.
CLS
INPUT "ENTER BINARY NUMBER"; N$
FOR I = LEN(N$) TO 1 STEP -1
B$ = MID$(N$, I, 1)
S = S + VAL(B$) * 2 ^ P
P = P + 1
NEXT I
PRINT "DECIMAL EQUIVALENT VALUE="; S
END
USING SUB PROCEDURE
DECLARE SUB CONV(N)
CLS
INPUT "ENTER BINARY NUMBER"; N
CALL CONV(N) : END
SUB CONV(N)
P = 0: S = 0
WHILE N <> 0
R = N MOD 10
S = S + R * 2 ^ P
P = P + 1
N = N \ 10
WEND
PRINT "DECIMAL EQUIVALENT VALUE="; S
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION CONV(N)
CLS
INPUT "ENTER BINARY NUMBER"; N
PRINT "DECIMAL EQUIVALENT VALUE="; CONV(N)
END
FUNCTION CONV(N)
P = 0: S = 0
WHILE N <> 0
R = N MOD 10
S = S + R * 2 ^ P
P = P + 1
N = N \ 10
WEND
CONV = S : END FUNCTION
185. WAP to convert decimal number to octal number.

CLS
INPUT "ENTER DECIMAL NUMBER"; D
WHILE D  < > 0
R = D MOD 8
S$ = STR$(R) + S$
D = D \ 8
WEND
PRINT "OCTAL EQUIVALENT VALUE="; S$
END
USING SUB PROCEDURE
DECLARE SUB CONV(D)
CLS
INPUT "ENTER DECIMAL NUMBER"; D
CALL CONV(D)
END
SUB CONV(D)
WHILE D  < > 0
R = D MOD 8
S$ = STR$(R) + S$
D = D \ 8
WEND
PRINT "OCTAL EQUIVALENT VALUE="; S$
END
USING FUNCTION PROCEDURE
DECLARE SUB CONV$(D)
CLS
INPUT "ENTER DECIMAL NUMBER"; D
PRINT "OCTAL EQUIVALENT VALUE=";  CONV$(D)
END
SUB CONV$(D)
WHILE D  < > 0
R = D MOD 8
S$ = STR$(R) + S$
D = D \ 8
WEND
CONV$ = S$
END FUNCTION
186. WAP to convert octal number to decimal number.
CLS
INPUT "ENTER OCTAL NUMBER"; N$
FOR I = LEN(N$) TO 1 STEP -1
B$ = MID$(N$, I, 1)
S = S + VAL(B$) * 8 ^ P
P = P + 1
NEXT I
PRINT "DECIMAL EQUIVALENT VALUE="; S
END
OR
USING SUB PROCEDURE
DECLARE SUB CONV(N)
CLS
INPUT "ENTER OCTAL NUMBER"; N
CALL CONV(N)
END
SUB CONV(N)
P = 0: S = 0
WHILE N <> 0
R = N MOD 10
S = S + R * 8 ^ P
P = P + 1
N = N \ 10
WEND
PRINT "DECIMAL EQUIVALENT VALUE="; S
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION CONV(N)
CLS
INPUT "ENTER OCTAL NUMBER"; N
PRINT "DECIMAL EQUIVALENT VALUE="; CONV(N)
END
FUNCTION CONV(N)
P = 0: S = 0
WHILE N <> 0
R = N MOD 10
S = S + R * 8 ^ P
P = P + 1
N = N \ 10
WEND
CONV = S
END FUNCTION


187. WAP to convert decimal number to hexadecimal number.

CLS
INPUT "ENTER DECIMAL NUMBER"; D
WHILE D <> 0
R = D MOD 16
IF R < 10 THEN
S$ = STR$(R) + S$
ELSE
S$ = CHR$(R + 55) + S$
END IF
D = D \ 16
WEND
PRINT "HEXADECIMAL EQUIVALENT VALUE="; S$
END
USING SUB PROCEDURE
DECLARE SUB CONV(D)
CLS
INPUT "ENTER DECIMAL NUMBER"; D
CALL CONV (D)
END
SUB CONV(D)
WHILE D <> 0
R = D MOD 16
IF R = 10 THEN
S$ = "A"
ELSEIF R = 11 THEN
S$ = "B"
ELSEIF R = 12 THEN
S$ = "C"
ELSEIF R = 13 THEN
S$ = "D"
ELSEIF R = 14 THEN
S$ = "E"
ELSEIF R = 15 THEN
S$ = "F"
ELSE
S$ = STR$(R) + S$
END IF
D = D \ 16
WEND
PRINT "HEXADECIMAL EQUIVALENT VALUE="; S$
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION CONV$ (D)
CLS
INPUT "ENTER DECIMAL NUMBER"; D
PRINT "HEXADECIMAL EQUIVALENT VALUE=";  CONV$ (D)
END
FUNCTION CONV$(D)
WHILE D < > 0
R = D MOD 16
IF R = 10 THEN
S$ = "A"
ELSEIF R = 11 THEN
S$ = "B"
ELSEIF R = 12 THEN
S$ = "C"
ELSEIF R = 13 THEN
S$ = "D"
ELSEIF R = 14 THEN
S$ = "E"
ELSEIF R = 15 THEN
S$ = "F"
ELSE
S$ = STR$(R) + S$
END IF
D = D \ 16
WEND
CONV$ = S$
END FUNCTION
188. WAP to convert hexadecimal number to decimal number.

CLS
INPUT "ENTER HEXADECIMAL NUMBER"; N$
FOR I = LEN(N$) TO 1 STEP -1
B$ = MID$(N$, I, 1)
IF B$ = "A" THEN B$ = "10"
IF B$ = "B" THEN B$ = "11"
IF B$ = "C" THEN B$ = "12"
IF B$ = "D" THEN B$ = "13"
IF B$ = "E" THEN B$ = "14"
IF B$ = "F" THEN B$ = "15"

S = S + VAL(B$) * 16 ^ P

P = P + 1
NEXT I
PRINT "DECIMAL EQUIVALENT VALUE="; S
END

USING SUB PROCEDURE
DECLARE SUB CONV(N$)
CLS
INPUT "ENTER HEXADECIMAL NUMBER"; N$
CALL CONV(N$)
END
SUB CONV(N$)
FOR I = LEN(N$) TO 1 STEP -1
B$ = MID$(N$, I, 1)
IF B$ = "A" THEN B$ = "10"
IF B$ = "B" THEN B$ = "11"
IF B$ = "C" THEN B$ = "12"
IF B$ = "D" THEN B$ = "13"
IF B$ = "E" THEN B$ = "14"
IF B$ = "F" THEN B$ = "15"
S = S + VAL(B$) * 16 ^ P
P = P + 1
NEXT I
PRINT "DECIMAL EQUIVALENT VALUE="; S
END SUB

USING FUNCTION PROCEDURE
DECLARE FUNCTION CONV(N$)
CLS
INPUT "ENTER HEXADECIMAL NUMBER"; N$
PRINT "DECIMAL EQUIVALENT VALUE="; CONV(N$)
END
FUNCTION CONV(N$)
FOR I = LEN(N$) TO 1 STEP -1
B$ = MID$(N$, I, 1)
IF B$ = "A" THEN B$ = "10"
IF B$ = "B" THEN B$ = "11"
IF B$ = "C" THEN B$ = "12"
IF B$ = "D" THEN B$ = "13"
IF B$ = "E" THEN B$ = "14"
IF B$ = "F" THEN B$ = "15"
S = S + VAL(B$) * 16 ^ P
P = P + 1
NEXT I
CONV = S
END FUNCTION

189. WAP to input number of passengers and their destination. The program should calculate the total bus fare and the discount amount according to the following conditions.
Rates for the different destinations:
Destinations                             Rate
Pokhara                                    450 per person
Butwal                                     500 per person
Chitwan                                   300 per person
Discount Rate
If the number of passenger is 5 or above then discount=5% in the total amount.

CLS
INPUT "ENTER NO. OF PASSENGER"; P
INPUT "ENTER DESTINATIONS"; D$
IF UCASE$(D$) = "POKHARA" THEN
T = P * 450
ELSEIF UCASE$(D$) = "BUTWAL" THEN
T = P * 500
ELSEIF UCASE$(D$) = "CHITWAN" THEN
T = P * 300
END IF
IF P >= 5 THEN D = 5 / 100 * T
F = T - D
PRINT "TOTAL BUS FARE="; F
END

USING SUB PROCEDURE

DECLARE SUB TOTAL(P, D$)
CLS
INPUT "ENTER NO. OF PASSENGER"; P
INPUT "ENTER DESTINATIONS"; D$
CALL TOTAL (P, D$)
END

SUB TOTAL (P, D$)
IF UCASE$(D$) = "POKHARA" THEN
T = P * 450
ELSEIF UCASE$(D$) = "BUTWAL" THEN
T = P * 500
ELSEIF UCASE$(D$) = "CHITWAN" THEN
T = P * 300
END IF
IF P >= 5 THEN D = 5 / 100 * T
F = T - D
PRINT "TOTAL BUS FARE="; F
END SUB

190. WAP to input total number of words and compute telegram charges which are as follows:
For the first 20 words    :           Rs 15
For the next 20 words : Rs 10
Above that for each word:         Re 1

CLS
INPUT "ENTER HOW MANY WORDS"; W
IF W <= 20 THEN
C = 15
ELSEIF W > 20 AND W <= 40 THEN
C = 15 + 10
ELSEIF W > 40 THEN
C = 15 + 10 + (W - 40)
END IF
PRINT "NUMBER OF WORDS="; W
PRINT "TOTAL CHARGE="; C

END

USING SUB PROCEDURE

DECLARE SUB TOTAL(W)
CLS
INPUT "ENTER HOW MANY WORDS"; W
CALL TOTAL(W)
END
SUB TOTAL(W)
IF W <= 20 THEN
C = 15
ELSEIF W > 20 AND W <= 40 THEN
C = 15 + 10
ELSEIF W > 40 THEN
C = 15 + 10 + (W - 40)
END IF
PRINT "NUMBER OF WORDS="; W
PRNT "TOTAL CHARGE="; C
END SUB

191. In order to discourage heavy consumption of electricity, the electricity board charges the following rates:
First 80 units:   Rs 4 per unit
Next 60 units: Rs 6 per unit
Above that :     Rs 7 per unit
Every user has to pay a minimum charge of Rs. 100 irrespective of the total amount of electricity consumed. In case total consumption is more than 300 units an additional charge of 10% is added. WAP to read consumer’s name, units consumed and print out total amount to pay along with name of consumer.

CLS
INPUT "ENTER NAME OF A CUSTOMER"; N$
INPUT "ENTER UNIT CONSUMED"; U
IF U <= 80 THEN
C = U * 4
ELSEIF U >= 81 AND U <= 140 THEN
C = 80 * 4
C1 = (U - 80) * 6
ELSE
C = 80 * 4
C1 = 60 * 6
C2 = (U - 140) * 7
END IF
T = 100 + C + C1 + C2
PRINT "NAME OF CUSTOMER"; N$
PRINT "TOTAL UNIT CONSUMPTION"; U
PRINT "TOTAL AMOUNT"; T
END


USING SUB PROCEDURE

DECLARE SUB TOTAL(N$, U)
CLS
INPUT "ENTER NAME OF A CUSTOMER"; N$
INPUT "ENTER UNIT CONSUMED"; U
CALL TOTAL (N$, U)
END

SUB TOTAL (N$, U)
IF U <= 80 THEN
C = U * 4
ELSEIF U >= 81 AND U <= 140 THEN
C = 80 * 4
C1 = (U - 80) * 6
ELSE
C = 80 * 4
C1 = 60 * 6
C2 = (U - 140) * 7
END IF
T = 100 + C + C1 + C2
PRINT "NAME OF CUSTOMER"; N$
PRINT "TOTAL UNIT CONSUMPTION"; U
PRINT "TOTAL AMOUNT"; T
END SUB

192. WAP to supply percentage from the keyboard and print division using sub – program. Use the following conditions:
Percentage                                Division
Per <40                                     Fail
Per>=40 and P<50                     Third
Per>=50 and P<60                     Second
Per>=60 and P<80                     First
Per>=80 and P<100                   Distinction

CLS
INPUT “ENTER PERCENTAGE”; P
IF P>=80 AND P<=100 THEN
PRINT “DIVISION”
ELSEIF P>=60 AND P<80 THEN
PRINT “FIRST DIVISION”
ELSEIF P>=50 AND P<60 THEN
PRINT “SECOND DIVISION”
ELSEIF P>=40 AND P<50 THEN
PRINT “THIRD DIVISION”
ELSEIF P>=0 AND P<40 THEN
PRINT “FAIL”
ELSE
PRINT “PLEASE ENTER THE NUMBER BETWEEN 0 TO 100”
END IF


193.   WAP to display all natural numbers from 1 to 100.

DECLARE SUB SERIES ( )
CLS
CALL SERIES
END

SUB SERIES
FOR I = 1 TO 100
PRINT I,
NEXT I
END SUB


194. WAP to display all odd numbers from 1 to 100.

DECLARE SUB SERIES ( )
CLS
CALL SERIES
END

SUB SERIES
FOR I = 1 TO 100 STEP 2
PRINT I,
NEXT I
END SUB

195. WAP to display all even numbers from 2 to 100.
DECLARE SUB SERIES ( )
CLS
CALL SERIES
END
SUB SERIES
FOR I = 2 TO 100 STEP 2
PRINT I,
NEXT I
END SUB
196. WAP to find the sum of all natural numbers from 1 to 100.

DECLARE SUB SERIES ( )
CLS
CALL SERIES
END

SUB SERIES
FOR I = 1 TO 100
S = S + I
NEXT I
PRINT “SUM OF ALL NATURAL NUMBERS FROM 1 TO 100=”; S
END SUB
197. WAP to find the sum of all odd numbers from 1 to 100.
DECLARE SUB SERIES ( )
CLS
CALL SERIES
END
SUB SERIES
FOR I = 1 TO 100 STEP 2
S = S + I
NEXT I
PRINT “SUM OF ALL ODD NUMBERS FROM 1 TO 100=”; S
END SUB
198. WAP to find the sum of all even numbers from 2 to 100.
DECLARE SUB SERIES ( )
CLS
CALL SERIES
END
SUB SERIES
FOR I = 2 TO 100 STEP 2
S = S + I
NEXT I
PRINT “SUM OF ALL NATURAL NUMBERS FROM 1 TO 100=”; S
END SUB
199. WAP to display all natural numbers from 1 to 100 in descending order.

DECLARE SUB SERIES ( )
CLS
CALL SERIES
END

SUB SERIES
FOR I = 100 TO 1 STEP - 1
PRINT I,
NEXT I
END SUB

200. WAP to display all odd numbers from 1 to 100 in descending order.

DECLARE SUB SERIES ( )
CLS
CALL SERIES
END

SUB SERIES
FOR I = 99 TO 1 STEP - 2
PRINT I,
NEXT I
END SUB


201. WAP to display all even numbers from 2 to 100 in descending order.

DECLARE SUB SERIES ( )
CLS
CALL SERIES
END
SUB SERIES
FOR I = 100 TO 2 STEP - 1
PRINT I,
NEXT I
END SUB
202. WAP to display all natural numbers from 1 to 100 also display its sum.
DECLARE SUB SERIES ( )
CLS
CALL SERIES
END : SUB SERIES
FOR I = 1 TO 100
PRINT I,
S = S + I
NEXT I
PRINT “SUM OF ALL NATURAL NUMBERS FROM 1 TO 100=”; S
END SUB
203. WAP to display all odd numbers from 1 to 100 also display its sum.
DECLARE SUB SERIES ( )
CLS
CALL SERIES
END
SUB SERIES
FOR I = 1 TO 100 STEP 2
PRINT I,
S = S + I
NEXT I
PRINT “SUM OF ALL ODD NUMBERS FROM 1 TO 100=”; S
END SUB
204. WAP to display all even numbers from 2 to 100 also display its sum.
DECLARE SUB SERIES ( )
CLS
CALL SERIES
END
SUB SERIES
FOR I = 2 TO 100 STEP 2
PRINT I,
S = S + I
NEXT I
PRINT “SUM OF ALL EVEN NUMBERS FROM 1 TO 100=”; S
END SUB
205. WAP to display cube of all numbers from 1 to 50.

DECLARE SUB SERIES ( )
CLS
CALL SERIES
END
SUB SERIES
FOR I = 1 TO 50
PRINT I ^ 3,
NEXT I
END SUB

206. WAP to display square of all numbers from 1 to 50.

DECLARE SUB SERIES ( )
CLS
CALL SERIES
END
SUB SERIES
FOR I = 1 TO 50
PRINT I ^ 2,
NEXT I
END SUB

207. WAP to print the sum of the numbers between 2 to 50.

DECLARE SUB SERIES ( )
CLS
CALL SERIES
END

SUB SERIES
FOR I = 2 TO 50
S = S + I
NEXT I
PRINT “SUM OF NUMBERS BETWEEN 2 TO 50” ; S
END SUB
208. WAP to print the sum of square of odd numbers up to 100.

DECLARE SUB SERIES ( )
CLS
CALL SERIES
END

SUB SERIES
FOR I = 1 TO 100 STEP 2
S = S + I ^ 2
NEXT I
PRINT “SUM OF SQUARE OF ODD NUMBERS UP TO 100” ; S
END SUB


209. WAP to print the sum of the numbers between 3 to 30.

DECLARE SUB SERIES ( )
CLS
CALL SERIES
END

SUB SERIES
FOR I = 3 TO 30
S = S + I
NEXT I
PRINT “SUM OF NUMBERS BETWEEN 3 TO 30” ; S
END SUB








210. WAP to print the sum of cube of even numbers between 2 to 50.
DECLARE SUB SERIES ( )
CLS
CALL SERIES
END
SUB SERIES
FOR I = 2 TO 50 STEP 2
S = S + I ^ 3
NEXT I
PRINT “SUM OF CUBE OF EVEN NUMBERS BETWEEN 2 TO 50” ; S
END SUB
211. WAP to print the sum of even numbers between 2 to 50.
DECLARE SUB SERIES ( )
CLS
CALL SERIES
END
SUB SERIES
FOR I = 2 TO 50 STEP 2
S = S + I
NEXT I
PRINT “SUM OF EVEN NUMBERS BETWEEN 2 TO 50” ; S
END SUB
212. WAP using to print the sum of first ten positive integers.

DECLARE SUB SERIES ( )
CLS
CALL SERIES
END

SUB SERIES
FOR I = 1 TO 10
S = S + I
NEXT I
PRINT “SUM OF FIRST  TEN POSITIVE INTEGERS” ; S
END SUB
213. WAP to print first ten multiples of input number.

CLS
INPUT “ENTER ANY NUMBER”; N
FOR I = 1 TO 10
PRINT N * I,
NEXT I
END

DECLARE SUB SERIES ( N)
CLS
INPUT “ENTER ANY NUMBER”; N
CALL SERIES (N)
END

SUB SERIES (N)
FOR I = 1 TO 10
PRINT N * I,
NEXT I
END SUB

214. WAP using  to display first 13 odd numbers.

DECLARE SUB SERIES ( )
CLS
CALL SERIES
END

SUB SERIES
A = 1
FOR I = 1 TO 13
PRINT A,
A = A+ 2
NEXT I
END SUB





215. WAP using to display first 19 even numbers.

DECLARE SUB SERIES ( )
CLS
CALL SERIES
END

SUB SERIES
A = 2
FOR I = 1 TO 19
PRINT A,
A = A+ 2
NEXT I
END SUB


216. WAP  to print the following series 9,7,5,….1.
DECLARE SUB SERIES ( )
CLS
CALL SERIES
END
SUB SERIES
FOR I = 9 TO 1 STEP-2
PRINT I
NEXT I
END SUB

217. WAP using  to display product of all numbers from 4 to 8.
DECLARE SUB SERIES ( )
CLS
CALL SERIES
END
SUB SERIES
P = 1
FOR I = 4 TO 8
P = P * I
NEXT I
PRINT “PRODUCT OF ALL NUMBERS FROM 4 TO 8”; P
END SUB

218.  WAP to generate the following numeric pattern 1,12,123,1234,12345
DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
FOR I = 1 TO 5
FOR J = 1 TO I
PRINT J;
NEXT J
PRINT
NEXT I
END SUB
219.  WAP to generate the following series 55555,4444,333,22,1
DECLARE SUB SERIES ()
CLS
CALL SERIES
END
SUB SERIES
FOR I = 5 TO 1 STEP -1
FOR J = 1 TO I
PRINT I;
NEXT J
PRINT
NEXT I
END SUB
220. WAP to generate the following series 5,54,543,5432,54321
DECLARE SUB SERIES ()
CLS
CALL SERIES
END
SUB SERIES
FOR I = 5 TO 1 STEP -1
FOR J = 5 TO I STEP -1
PRINT J;
NEXT J
PRINT
NEXT I
END SUB
221. WAP to generate the following series 54321,5432,543,54,5
DECLARE SUB SERIES ()
CLS
CALL SERIES
END
SUB SERIES
FOR I = 5 TO 1 STEP -1
FOR J = I TO 1 STEP -1
PRINT J;
NEXT J
PRINT
NEXT I : END SUB
222. WAP to generate the following series 88888888,666666,4444,22
DECLARE SUB SERIES ()
CLS
CALL SERIES : END
SUB SERIES
FOR I = 8 TO 2 STEP -2
FOR J = 1 TO I
PRINT I;
NEXT J
PRINT
NEXT I
END SUB
223. WAP to generate the following series 13579,1357,135,13,1
DECLARE SUB SERIES ()
CLS
CALL SERIES
END
SUB SERIES
FOR I = 9 TO 1 STEP -2
FOR J = 1 TO I STEP 2
PRINT J;
NEXT J
PRINT
NEXT I
END SUB
224. WAP to generate the following series 1,23,456,78910
DECLARE SUB SERIES ()
CLS
CALL SERIES : END
SUB SERIES
N = 1
FOR I = 1 TO 4
FOR J = 1 TO I
PRINT N;
N = N + 1
NEXT J
PRINT
NEXT I : END SUB
225. WAP to generate the following series 123456789,1234567,12345,123,1

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A# = 123456789
FOR I = 1 TO 5
PRINT A#
A# = A# \ 100
NEXT I
END SUB

226. WAP to generate the following series ½, 2/3, ¾……….15th term.

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A = 1
B = 2
FOR I = 1 TO 15
PRINT A; "/"; B
A = A + 1
B = B + 1
NEXT I

END SUB


227. WAP to generate the following series 2,4,6,8………….12th term.

DECLARE SUB SERIES ( )
CLS
CALL SERIES
END

SUB SERIES
A = 2
FOR I = 1 TO 12
PRINT A,
A = A + 2
NEXT I

END SUB



228. WAP to generate the following series 2,3,5,8,13…………10th term.

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A = 2
B = 3
FOR I = 1 TO 10
PRINT A;
C = A + B
A = B
B = C
NEXT I



END SUB

229. WAP to generate the following series 11,3,14,17,31………….18th term.

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A = 11
B = 3
FOR I = 1 TO 18
PRINT A;
C = A + B
A = B
B = C
NEXT I
END SUB

230. WAP to generate the following series 1,4,9…………..9th term.
DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
FOR I = 1 TO 9
PRINT I ^ 2
NEXT I
END SUB


231. WAP to generate the following series 9,28,14,7,22,11…………..10th term

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A = 9
FOR I = 1 TO 10
PRINT A;
IF A MOD 2 = 0 THEN
A = A \ 2
ELSE
A = A * 3 + 1
END IF
NEXT I
END SUB

232. WAP to generate the series 1,4,7,10………….12th terms.
DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A = 1
FOR I = 1 TO 12
PRINT A;
A = A + 3
NEXT I
END SUB


233. WAP to generate the series 10,20,30………100.

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A = 1
FOR I = 10 TO 100 STEP 10
PRINT I,
NEXT I
END SUB

234. WAP to generate the series 100,95,90…………………..10th term.

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A = 100
FOR I = 1 TO 10
PRINT A;
A = A - 5
NEXT I
END SUB


235. WAP to generate the series 1,8,27……………8th.
DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
FOR I = 1 TO 8
PRINT I ^ 3,
NEXT I
END SUB


236. WAP to generate the series 2,22,222………..13th term.

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A# = 2
FOR I = 1 TO 13
PRINT A#;
A# = A# * 10 + 2
NEXT I
END SUB

237.   WAP to generate the series 55555,5555,555,55,5.
DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A = 55555
FOR I = 1 TO 5
PRINT A;
A = A \ 10
NEXT I
END SUB



238.   WAP to generate the series 1,2,3,5…………9th terms.
DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A = 1
B = 2
FOR I = 1 TO 9
PRINT A;
C = A + B
A = B
B = C
NEXT I
END SUB


239. WAP to generate the series 2,2,4,6,10………….13th term.

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A = 2
B = 2
FOR I = 1 TO 13
PRINT A;
C = A + B
A = B
B = C
NEXT I
END SUB

240. WAP to generate the series 3,10,5,16………………11th term.

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A = 3
FOR I = 1 TO 11
PRINT A;
IF A MOD 2 = 0 THEN
A = A \ 2
ELSE
A = A * 3 + 1
END IF
NEXT I
END SUB


241. WAP to generate  7,22,11,34……………19th terms.

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A = 7
FOR I = 1 TO 10
PRINT A;
IF A MOD 2 = 0 THEN
A = A \ 2
ELSE
A = A * 3 + 1
END IF
NEXT I
END SUB

242. WAP to generate the series10,12,15,19…………..14th terms.
DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A = 10
B = 2
FOR I = 1 TO 14
PRINT A
A = A + B
B = B + 1
NEXT I
END SUB


243. WAP to generate the series 50,46,41,35…………..7th terms.

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A = 50
B = 4
FOR I = 1 TO 7
PRINT A
A = A - B
B = B + 1
NEXT I
END SUB

244. WAP to generate the series .1,0.01,0.001,0.0001,0.00001

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A = 1
FOR I = 1 TO 5
PRINT A / 10 ^ I
NEXT I
END SUB
245. WAP to generate the series 0.00003,0.0003,,0.003,0.03,0.3.


DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A = .00003
FOR I = 1 TO 5
PRINT A
A = A * 10
NEXT I
END SUB
246. WAP to display numbers 1,3,5……..30.

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
FOR I = 1 TO 30 STEP 2
PRINT I,
NEXT I
END SUB
247. WAP to display numbers 70,61,52…..7
DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
FOR I = 70 TO 7 STEP -9
PRINT I
NEXT I
END SUB

248. WAP to generate the following series 1,121,12321,1234321,123454321.
DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A# = 1
FOR I = 1 TO 5
PRINT A# ^ 2
A# = A# * 10 + 1
NEXT I
END SUB

249. WAP to generate the following series 11111,1111,111,11,1.                

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A = 11111
FOR I = 1 TO 5
PRINT A
A = A \ 10
NEXT I
END SUB


250. WAP to display 3,6,12,24………15th terms.

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A = 3
FOR I = 1 TO 15
PRINT A
A = A * 2
NEXT I
END SUB


251. WAP to display -30,-20,-10,0,10,……………20th terms.

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A = -30
FOR I = 1 TO 20
PRINT A,
A = A + 10
NEXT I
END SUB

252. WAP to generate the following series 5,55,555,5555,55555.

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A = 5
FOR I = 1 TO 5
PRINT A,
A = A * 10 + 5
NEXT I
END SUB
253. WAP to display numbers 30,28.5,27,25.5…….9th terms.

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A = 30
FOR I = 1 TO 9
PRINT A,
A = A – 1.5
NEXT I
END SUB

254. WAP to generate the series 1,5.25,125…..10th terms.
DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
A = 1
FOR I = 1 TO 10
PRINT A,
A = A * 5
NEXT I
END SUB

255. WAP using  to display 50,75,100,125,150.

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES
FOR I = 50 TO 150 STEP 25
PRINT I,
NEXT I
END SUB

256. WAP using  to display 1, 10, 101, 1010, 10101

DECLARE SUB SERIES ()
CLS
CALL SERIES
END

SUB SERIES

FOR I = 1 TO 5
FOR J = 1 TO I
PRINT J MOD 2;
NEXT J
PRINT
NEXT I
END SUB
257. WAP to display

1          2          3          4          5
2          4          6          8          10
3          6          9          12        15
4          8          12        16        20
5          10        15        20        25     

USING SUB PROCEDURE
DECLARE SUB SERIES ()
CLS
CALL SERIES
END
SUB SERIES
FOR I = 1 TO 5
FOR J = 1 TO 5
PRINT I * J,
NEXT J
PRINT
NEXT I
END SUB
258. WAP to display

8  8  8  8  8  8  8  8
    6  6  6  6  6  6
        4  4  4  4
            2  2
USING SUB PROCEDURE
DECLARE SUB SERIES ()
CLS
CALL SERIES
END
SUB SERIES
T = 10
FOR I = 8 TO 1 STEP -2
PRINT TAB(T);
FOR J = 1 TO I
PRINT I;
NEXT J
T = T + 3
NEXT I : END SUB
259. WAP to display

123456789
  1234567
    12345
      123
        1
USING SUB PROCEDURE
DECLARE SUB SERIES ()
CLS
CALL SERIES
END
SUB SERIES
A# = 123456789
FOR I = 1 TO 5
PRINT TAB(I); A#
A# = A# \ 100
NEXT I
END SUB
260. WAP to display
40
38   40
36   38   40
34   36   38   40
32   34   36   38   40
USING SUB PROCEDURE
DECLARE SUB SERIES ()
CLS
CALL SERIES
END
SUB SERIES
A = 40
FOR I = 1 TO 5
B = A
FOR J = 1 TO I
PRINT B;
B = B + 2
NEXT J
PRINT
A = A - 2
NEXT I : END SUB
261. WAP to display

70   65   60   55   50
70   65   60   55
70   65   60
70   65
70

USING SUB PROCEDURE
DECLARE SUB SERIES ()

CLS
CALL SERIES
END

SUB SERIES
A = 50
B = 70
FOR I = A TO B STEP 5
FOR J = B TO I STEP -5
PRINT J;
NEXT J
PRINT
NEXT I

END SUB

262. 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

263. 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

264. 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
265. 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
END SUB


266. WAP to display
N
E
P
A
L
USING SUB PROCEDURE
DECLARE SUB PATTERN (S$)
CLS
S$ = "NEPAL"
CALL PATTERN(S$)
END

SUB PATTERN (S$)
FOR I = 1 TO LEN(S$)
PRINT MID$(S$, I, 1)
NEXT I
END SUB

267. WAP to display
L
A
P
E
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 MID$(S$, I, 1)
NEXT I
END SUB




268. WAP to display
N
   E
      P
        A
            L
USING SUB PROCEDURE
DECLARE SUB PATTERN (S$)
CLS
S$ = "NEPAL"
CALL PATTERN(S$)
END

SUB PATTERN (S$)
FOR I = 1 TO LEN(S$)
PRINT TAB(I); MID$(S$, I, 1)
NEXT I
END SUB


269. WAP to display
L
   A
      P
        E
            N
USING SUB PROCEDURE
DECLARE SUB PATTERN (S$)
CLS
S$ = "NEPAL"
CALL PATTERN(S$)
END

SUB PATTERN (S$)
B = 1
FOR I = LEN(S$) TO 1 STEP -1
PRINT TAB(B); MID$(S$, I, 1)
B = B + 1
NEXT I
END SUB

270. WAP to display
NEPAL
EPA
P
USING SUB PROCEDURE
DECLARE SUB PATTERN (S$)
CLS
S$ = "NEPAL"
CALL PATTERN(S$)
END

SUB PATTERN (S$)
A = 1
FOR I = LEN(S$) TO 1 STEP -2
PRINT MID$(S$, A, I)
A = A + 1
NEXT I
END SUB

271. WAP to display
P
EPA
NEPAL
USING SUB PROCEDURE
DECLARE SUB PATTERN (S$)
CLS
S$ = "NEPAL"
CALL PATTERN(S$)
END

SUB PATTERN (S$)
A = 3
FOR I = 1 TO LEN(S$) STEP 2
PRINT MID$(S$, A, I)
A = A - 1
NEXT I
END SUB




272. WAP to display
NEPAL
   EPA
     P
USING SUB PROCEDURE
DECLARE SUB PATTERN (S$)
CLS
S$ = "NEPAL"
CALL PATTERN(S$)
END

SUB PATTERN (S$)
A = 1
FOR I = LEN(S$) TO 1 STEP -2
PRINT TAB(A); MID$(S$, A, I)
A = A + 1
NEXT I
END SUB



273. WAP to display
   P
EPA
NEPAL
USING SUB PROCEDURE
DECLARE SUB PATTERN (S$)
CLS
S$ = "NEPAL"
CALL PATTERN(S$)
END

SUB PATTERN (S$)
A = 3
FOR I = 1 TO LEN(S$) STEP 2
PRINT TAB(A); MID$(S$, A, I)
A = A - 1
NEXT I
END SUB


274. WAP to display
*
**
***
****
*****
******
*******

USING SUB PROCEDURE
DECLARE SUB PATTERN (S$)
CLS
S$ = "*******"
CALL PATTERN(S$)
END
SUB PATTERN (S$)
FOR I = 1 TO LEN(S$)
PRINT LEFT$(S$, I)
NEXT I
END SUB
275. WAP to display
*******
******
*****
****
***
**
*
USING SUB PROCEDURE

DECLARE SUB PATTERN (S$)
CLS
S$ = "*******"
CALL PATTERN(S$)
END

SUB PATTERN (S$)
FOR I = LEN(S$) TO 1 STEP -1
PRINT LEFT$(S$, I)
NEXT I
END SUB
276. WAP to display
*
**
***
****
*
**
***
****
*
*
*
*
CLS
S$ = "****"
FOR I = 1 TO LEN(S$)
PRINT LEFT$(S$, I)
NEXT I

FOR J = 1 TO LEN(S$)
PRINT LEFT$(S$, I)
NEXT J

FOR K = 1 TO LEN(S$)
PRINT MID$(S$, K, 1)
NEXT K

END

USING SUB PROCEDURE
DECLARE SUB PATTERN1 (S$)
DECLARE SUB PATTERN (S$)
CLS
S$ = "****"
CALL PATTERN(S$)
CALL PATTERN(S$)
CALL PATTERN1(S$)
END



SUB PATTERN (S$)
FOR I = 1 TO LEN(S$)

PRINT LEFT$(S$, I)

NEXT I
END SUB

SUB PATTERN1 (S$)
FOR K = 1 TO LEN(S$)
PRINT MID$(S$, K, 1)
NEXT K

END SUB
                


#Credit:Sajan Bajgain (https://www.sajanbajgain.blogspot.com)