To check the given number is divisible by 4 or not (Qbasic Code)

To check the given number is divisible by 4 or not (Qbasic Code)

CLS
INPUT "Enter a number"; n
x = n MOD 4
IF x = 0 THEN
    PRINT "The given number is exactly divisible by 4";
ELSE
    PRINT "The given number is not exactly divisible by 4";
END IF
END

• Using SUB Procedure

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

SUB check (n)
x = n MOD 4
IF x = 0 THEN
    PRINT "The given number is exactly divisible by 4";
ELSE
    PRINT "The given number is not exactly divisible by 4";
END IF
END SUB

• Using FUNCTION Procedure

DECLARE FUNCTION check$ (n)
CLS
INPUT "Enter a number"; n
a$ = check$(n)
PRINT a$
END

FUNCTION check$ (n)
x = n MOD 4
IF x = 0 THEN
    ans$ = "The given number is exactly divisible by 4"
ELSE
    ans$ = "The given number is not exactly divisible by 4"
END IF
check$ = ans$
END FUNCTION

• Using FUNCTION Procedure (Alternate Method)

DECLARE FUNCTION check(n)
CLS
INPUT "Enter a number"; n
IF check(n) = 0 THEN
    PRINT "The given number is exactly divisible by 4";
ELSE
    PRINT "The given number is not exactly divisible by 4";
END IF
END

FUNCTION check (n)
x = n MOD 4
check = x
END FUNCTION

Share :

Twitter