WAP To find the factorial of given number.

CLS
INPUT "Enter any number"; n
f = 1
FOR i = 1 TO n
    f = f * i
NEXT i
PRINT "The factorial of input number is"; f
END
   Using Sub Procedure.

DECLARE SUB factorial (n)
CLS
INPUT "Enter a number"; n
CALL factorial (n)
END

SUB factorial (n)
f = 1
FOR i = 1 TO n
    f = f * i
NEXT i
PRINT "The factorial of input number is"; f
END SUB

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)
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

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

CLS
DIM N(20)
FOR I = 1 TO 20
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
S = N(1)
FOR I = 2 TO 20
IF N(I) < S THEN S = N(I)
NEXT I
PRINT “THE SMALLEST NUMBER IS”; S
END

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


USING FUNCTION PROCEDURE
DECLARE FUNCTION SMALL (N( ))
CLS
DIM N(20)
FOR I = 1 TO 20
INPUT "ENTER THE NUMBERS"; N(I)
NEXT I
PRINT “THE SMALLEST NUMBER IS”; SMALL (N( ))
END
FUNCTION SMALL (N( ))
S = N(1)
FOR I = 2 TO 20
IF N(I) < S THEN S = N(I)
NEXT I
SMALL = S
END FUNCTION

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

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( ))
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

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)
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