以下是一个 PL/SQL 程序,用于检查给定的年份是否是闰年:
DECLAREyear_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 THENis_leap_year := TRUE;END IF;-- 输出结果IF is_leap_year THENDBMS_OUTPUT.PUT_LINE(year_number || '是闰年');ELSEDBMS_OUTPUT.PUT_LINE(year_number || '不是闰年');END IF;END;在这个程序中,首先要求用户输入一个年份,然后根据闰年的定义进行判断。如果给定年份满足闰年的条件,则将 is_leap_year 标志设为 TRUE,否则为 FALSE。最后根据 is_leap_year 的值输出结果。
请注意,为了运行这个程序,需要在 PL/SQL 开发工具中启用输出(比如在 SQL Developer 中,需要打开 “View -> Dbms Output”)。

