POSITIVE NEGATIVE OR NETURAL
DECLARE SUB CHECK(N)
CLS
INPUT"ENTER ANY NO.";N
CALL CHECK(N)
END
SUB CHECK(N)
IF N>0 THEN
PRINT"NUMBER IS POSITIVE"
ELSE IF N<0 THEN
PRINT"NUMBER IS NEGATIVE"
ELSE
PRINT"NUMBER IS NEUTRAL"
END IF
END SUB
CLS
INPUT"ENTER ANY NO.";N
CALL CHECK(N)
END
SUB CHECK(N)
IF N>0 THEN
PRINT"NUMBER IS POSITIVE"
ELSE IF N<0 THEN
PRINT"NUMBER IS NEGATIVE"
ELSE
PRINT"NUMBER IS NEUTRAL"
END IF
END SUB
Comments
Post a Comment