Question

Write a program in QBASIC to check a number is positive number or negative number

Answer 1

Answer:

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