POSITIVE,NEGATIVE OR NEUTRAL(SUB)
DECLARE SUB CHECK(N$)
CLS
INPUT "ENTER ANY STRING";N$
CALL CHECK(N$)
END
SUB CHECK(N$)
IF N$>0 THEN
PRINT "THE GIVEN NUMBER IS POSITIVE"
ELSEIF N$<0 THEN
PRINT "THE GIVEN NUMBER IS NEGATIVE"
ELSE
PRINT "THE GIVEN NUMBER IS NEUTRAL"
END IF
END SUB
CLS
INPUT "ENTER ANY STRING";N$
CALL CHECK(N$)
END
SUB CHECK(N$)
IF N$>0 THEN
PRINT "THE GIVEN NUMBER IS POSITIVE"
ELSEIF N$<0 THEN
PRINT "THE GIVEN NUMBER IS NEGATIVE"
ELSE
PRINT "THE GIVEN NUMBER IS NEUTRAL"
END IF
END SUB
Comments
Post a Comment