categoryFORTRAN覚書

うるう年判定

trackback0  comment0
プログラミング覚書 Fortran-014

うるう年判定
----------------------------------------------------------------------

!----- Leap or not -----
INTEGER :: n
READ*, n
IF( MOD(n, 400) == 0 ) THEN
PRINT*, "うるう年"
ELSE IF( MOD(n, 100) == 0 ) THEN
PRINT*, "平年"
ELSE IF( MOD(n, 4) == 0 ) THEN
PRINT*, "うるう年"
ELSE
PRINT*, "平年"
END IF
END


関連記事
 









        
 
http://greenwind888.blog.fc2.com/tb.php/206-5ca0f0d3