REM
CLS
INPUT “ENTER YEAR”; Y
IF Y MOD 4 = 0 AND Y MOD 100 <> 0 OR Y MOD 400 = 0 THEN
PRINT Y; "IS LEAP YEAR”
ELSE
PRINT Y; "IS NOT LEAP YEAR”
END IF
END
USING SUB PROCEDURE
DECLARE SUB CHECK (Y)
CLS
INPUT “ENTER YEAR”; Y
CALL CHECK (Y)
END
SUB CHECK (Y)
IF Y MOD 4 = 0 AND Y MOD 100 <> 0 OR Y MOD 400 = 0 THEN
PRINT Y; "IS LEAP YEAR”
ELSE
PRINT Y; "IS NOT LEAP YEAR”
END IF
END SUB
DECLARE FUNCTION CHECK$ (Y)
CLS
INPUT “ENTER YEAR”; Y
PRINT Y; CHECK$(Y)
END
FUNCTION CHECK$ (Y)
IF Y MOD 4 = 0 AND Y MOD 100 <> 0 OR Y MOD 400 = 0 THEN
CHECK$ = “IS LEAP YEAR”
ELSE
CHECK$ = “IS NOT LEAP YEAR”
END IF
END FUNCTION
No Comments