R语言 编写一个函数，接收一个年份，判断是否为闰年 需要一句一句的代码

可以使用以下代码来编写一个判断是否为闰年的函数：

is_leap_year <- function(year) {
  if (year %% 4 == 0) {
    if (year %% 100 == 0) {
      if (year %% 400 == 0) {
        return(TRUE)
      } else {
        return(FALSE)
      }
    } else {
      return(TRUE)
    }
  } else {
    return(FALSE)
  }
}

这个函数中使用了嵌套的 if 语句，分别判断了年份是否能被 4 整除、是否能被 100 整除、是否能被 400 整除。如果都满足，则返回 TRUE，否则返回 FALSE。其中，`%%` 表示取模运算符，用来判断年份是否能够整除 4、100、400。

相关问题

在R语言中编写一个函数，接收一个年份，判断是否为闰年

下面是一个简单的 R 代码实现：

is_leap_year <- function(year) {
  if (year %% 400 == 0) {
    return(TRUE)
  } else if (year %% 100 == 0) {
    return(FALSE)
  } else if (year %% 4 == 0) {
    return(TRUE)
  } else {
    return(FALSE)
  }
}

函数 `is_leap_year()` 接收一个参数 `year`，表示年份。函数使用了 `if...else` 结构进行条件判断，如果年份能被 400 整除，则是闰年；如果年份能被 100 整除，则不是闰年；如果年份能被 4 整除，则是闰年；否则不是闰年。

可以通过下面的代码测试该函数：

# 测试
print(is_leap_year(2000))  # TRUE
print(is_leap_year(1900))  # FALSE
print(is_leap_year(2020))  # TRUE
print(is_leap_year(2021))  # FALSE

如何使用C++编程语言编写一个函数来判断一个年份是否为闰年？

在C++编程中，判断一个年份是否为闰年的标准通常依据格里高利历的规定：如果该年份能被4整除，但是不能被100整除，或者是可以被400整除的年份，那么它就是闰年。下面是一个简单的函数实现：

#include <iostream>

bool isLeapYear(int year) {
    if (year % 4 == 0) { // 如果能被4整除
        if (year % 100 == 0) { // 如果也能被100整除
            if (year % 400 == 0) { // 如果还能被400整除
                return true; // 这样的年份是闰年
            } else {
                return false; // 否则不是闰年
            }
        } else {
            return true; // 年份不能被100整除，所以是闰年
        }
    } else {
        return false; // 年份不能被4整除，不是闰年
    }
}

int main() {
    int input_year;
    std::cout << "请输入一个年份：";
    std::cin >> input_year;
    if (isLeapYear(input_year)) {
        std::cout << input_year << "是闰年。\n";
    } else {
        std::cout << input_year << "不是闰年。\n";
    }
    return 0;
}