To check the given number is odd or even. (Qbasic Code)

CLS
INPUT "Enter a number"; n
r = n MOD 2
SELECT CASE r
    CASE 0
        PRINT "It is even number"
    CASE 1
        PRINT "It is odd number"
END SELECT

END

---

Modular Program

Using SUB.... Procedure

DECLARE SUB check (n)
CLS
INPUT "Enter a number"; n
CALL check(n)
END

SUB check (n)
r = n MOD 2
IF r = 0 THEN
        PRINT "It is even number";
ELSE
        PRINT "It is odd number";
END IF
END SUB

---

Using FUNCTION....Procedure

DECLARE FUNCTION check (n)
CLS
INPUT "Enter a number"; n
a = check(n)
IF a = 0 THEN
        PRINT "It is even number";
ELSE
        PRINT "It is odd number";
END IF
END

FUNCTION check (n)
r = n MOD 2
check = r
END FUNCTION

Share :

Facebook x