Code fortran pour vérifier si une année est bissextile

Une année est bissextile si elle est divisible par 4 et non divisible par 100, ou si l'année est divisible par 400 (wikipedia). Ce qui peut être traduit en language fortran:

program check_leap_year

implicit none

integer :: i

integer :: year 
logical :: leap_year

year = 1900

leap_year = .False.
if( MODULO(year,4) == 0 .and. MODULO(year,100) /= 0 ) leap_year = .True.
if( MODULO(year,400) == 0 ) leap_year = .True.

write(6,*) year, leap_year

end program check_leap_year

ce qui donne ici "False/Faux" (F) pour l'année 1900. En créant une boucle sur plusieurs années :

program check_leap_year

implicit none

integer :: i

integer :: year 
logical :: leap_year

year = 1950
do i = 1, 50

leap_year = .False.
if( MODULO(year,4) == 0 .and. MODULO(year,100) /= 0 ) leap_year = .True.
if( MODULO(year,400) == 0 ) leap_year = .True.

write(6,*) year, leap_year

year = year + 1
end do

end program check_leap_year

on obtient (T: True/Vrai; F False/Faux):

1950 F
1951 F
1952 T
1953 F
1954 F
1955 F
1956 T
1957 F
1958 F
1959 F
1960 T
1961 F
1962 F
1963 F
1964 T
1965 F
1966 F
1967 F
1968 T
1969 F
1970 F
1971 F
1972 T
1973 F
1974 F
1975 F
1976 T
1977 F
1978 F
1979 F
1980 T
1981 F
1982 F
1983 F
1984 T
1985 F
1986 F
1987 F
1988 T
1989 F
1990 F
1991 F
1992 T
1993 F
1994 F
1995 F
1996 T
1997 F
1998 F
1999 F

Recherches associées