R语言 编写一个函数,接收一个年份,判断是否为闰年 需要一句一句的代码
时间: 2024-02-01 19:16:53 浏览: 29
可以使用以下代码来编写一个判断是否为闰年的函数:
```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 语言编写的判断闰年的函数:
```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)
}
}
```
该函数接收一个年份作为参数,使用 `%%` 运算符来判断是否为闰年。其中,如果一个年份能够被 4 整除,但不能被 100 整除,则是闰年;如果一个年份能够被 400 整除,则也是闰年;否则不是闰年。函数返回值为逻辑值 `TRUE` 或 `FALSE`。
在R语言中编写一个函数,接收一个年份,判断是否为闰年
下面是一个简单的 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 整除,则是闰年;否则不是闰年。
可以通过下面的代码测试该函数:
```R
# 测试
print(is_leap_year(2000)) # TRUE
print(is_leap_year(1900)) # FALSE
print(is_leap_year(2020)) # TRUE
print(is_leap_year(2021)) # FALSE
```