用fortran语言编写：输入某一年年份year，判断它是否为闰年（Leap）。判断依据为：（1）year能被4整除，但又不能被100整除的年份都是闰年；（2）year能被100整除，且能被400整除的年份是闰年。

以下是用Fortran语言编写的程序，可以判断输入的年份是否为闰年：

program leap_year
  implicit none
  integer :: year, flag

  write(*,*) "请输入一个年份："
  read(*,*) year

  flag = 0

  if (mod(year, 4) == 0) then
    flag = 1
    if (mod(year, 100) == 0) then
      flag = 0
      if (mod(year, 400) == 0) then
        flag = 1
      endif
    endif
  endif

  if (flag == 1) then
    write(*,*) year, "是闰年"
  else
    write(*,*) year, "不是闰年"
  endif

end program leap_year

在程序中，首先通过 `read` 语句获取用户输入的年份值，并将其存储在整型变量 `year` 中。然后，通过 `mod` 函数判断该年份是否能被4整除，如果可以，则将标志变量 `flag` 的值设为1。接着，再判断该年份是否能被100整除，如果可以，则将 `flag` 的值设为0，但如果能同时被400整除，则将 `flag` 的值重新设为1。最后，根据 `flag` 的值输出判断结果。

相关问题

怎样用fortran判断一年是否为闰年

可以使用以下代码来判断一年是否为闰年：

function is_leap_year(year)
  logical :: is_leap_year
  integer, intent(in) :: year
  is_leap_year = (mod(year, 4) == 0) .and. ((mod(year, 100) /= 0) .or. (mod(year, 400) == 0))
end function is_leap_year

其中，`year` 为需要判断的年份，函数返回值为逻辑值，表示该年是否为闰年。

fortran 输入年份判断是否为闰年

Fortran是一种编程语言，可以用来编写科学计算和数值分析的程序。下面是一个Fortran程序示例，用于判断输入的年份是否为闰年：

program leap_year
    implicit none
    integer :: year

    ! 从用户输入获取年份
    write(*,*) "请输入一个年份："
    read(*,*) year

    ! 判断是否为闰年
    if (mod(year, 4) == 0) then
        if (mod(year, 100) /= 0 .or. mod(year, 400) == 0) then
            write(*,*) year, "是闰年"
        else
            write(*,*) year, "不是闰年"
        end if
    else
        write(*,*) year, "不是闰年"
    end if

end program leap_year

上述程序首先会要求用户输入一个年份，然后通过使用`mod`函数来判断该年份是否为闰年。如果能被4整除但不能被100整除，或者能被400整除，则判断为闰年。