以下是一個 PL/SQL 程序,用于檢查給定的年份是否是閏年:
DECLARE
year_number NUMBER;
is_leap_year BOOLEAN := FALSE;
BEGIN
-- 提示用戶輸入年份
year_number := &year_number;
-- 判斷閏年的條件:
-- 1. 能被4整除,但不能被100整除;
-- 2. 能被400整除。
IF (MOD(year_number, 4) = 0 AND MOD(year_number, 100) != 0) OR MOD(year_number, 400) = 0 THEN
is_leap_year := TRUE;
END IF;
-- 輸出結果
IF is_leap_year THEN
DBMS_OUTPUT.PUT_LINE(year_number || '是閏年');
ELSE
DBMS_OUTPUT.PUT_LINE(year_number || '不是閏年');
END IF;
END;
在這個程序中,首先要求用戶輸入一個年份,然后根據閏年的定義進行判斷。如果給定年份滿足閏年的條件,則將 is_leap_year
標志設為 TRUE
,否則為 FALSE
。最后根據 is_leap_year
的值輸出結果。
請注意,為了運行這個程序,需要在 PL/SQL 開發工具中啟用輸出(比如在 SQL Developer 中,需要打開 “View -> Dbms Output”)。