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

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

**Notice**: compact(): Undefined variable: limits in

**/home/bhimgautam34/public_html/wp-includes/class-wp-comment-query.php**on line

**853**

**Notice**: compact(): Undefined variable: groupby in

**/home/bhimgautam34/public_html/wp-includes/class-wp-comment-query.php**on line

**853**

## No Comments