Positive negative or neutral using sub
DECLARE SUB VHECK(N)
CLS
INPUT"ENTER ANY NUMBER";N
CALL CHECK(N)
END
SUB CHECK(N)
IF N>0 THEN
PRINT"THE GIVEN NO IS POSITIVE"
ELSEIF N<0 THEN
PRINT"THE GIVEN NO IS NEGATIVE"
ELSE
PRINT"THE GIVEN NO IS NEUTRAL"
END IF
ENS SUB
CLS
INPUT"ENTER ANY NUMBER";N
CALL CHECK(N)
END
SUB CHECK(N)
IF N>0 THEN
PRINT"THE GIVEN NO IS POSITIVE"
ELSEIF N<0 THEN
PRINT"THE GIVEN NO IS NEGATIVE"
ELSE
PRINT"THE GIVEN NO IS NEUTRAL"
END IF
ENS SUB
Comments
Post a Comment