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
Modular Program
Using FUNCTION....Procedure
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
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
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