R语言程序：检查闰年

该程序检查用户输入的年份（整数）是否为闰年。

要理解这个示例，您应该了解以下R编程主题：

• R if else语句
• R运算符

闰年可以被4整除，但世纪年份（以00结尾的年份除外）。世纪年仅在能被400整除时才是闰年。

示例：检查闰年

# 检查输入年份是否为闰年的程序

year = as.integer(readline(prompt="输入年份："))
if ((year %% 4) == 0) {
    if ((year %% 100) == 0) {
        if ((year %% 400) == 0) {
            print(paste(year,"是闰年"))
        } else {
            print(paste(year,"不是闰年"))
        }
    } else {
        print(paste(year,"是闰年"))
    }
} else {
    print(paste(year,"不是闰年"))
}

输出1

输入年份：1900
[1] "1900不是闰年"

输出2

输入年份：2000
[1] "2000是闰年"

如果一个年份可以被4、100和400整除，那么它是闰年。

如果一个年份可以被4和100整除，但不能被400整除，那么它不是闰年。

如果一个年份可以被4整除但不能被100整除，那么它是闰年。

如果一个年份不能被1整除，那么它不是闰年。

上述逻辑在上面的程序中使用了嵌套的if...else语句来实现。