Fortran判断是否为闰年

fcode

[Fortran] 纯文本查看 复制代码

program test0504
  implicit none
  integer year
  write(*,*) "Please input the yaer:"
  read(*,*) year
  if((mod(year,4)==0).or.(mod(year,100)==0.and.mod(year,400)==0)) then
    write(*,*) "This year is a leap yaer."
  else
    write(*,*) "This year is not a leap yaer."
  end if
end program test0504

fcode

liudy02 发表于 2020-7-3 00:23
版主，判断表达式似乎不太对劲……

的确不对，光想着改语法问题了，没考虑逻辑错误。