くだすれFORTRAN（超初心者用）その3

くだすれFORTRAN（超初心者用）その3 at TECH

346:デフォルトの名無しさん
08/06/08 01:32:43
>>343
うるう年の方。結果を確認していないｗ

PROGRAM leap
IMPLICIT NONE
INTEGER :: iy
LOGICAL :: qleap
PRINT *, 'INPUT YEAR'
READ *, iy
qleap = .FALSE.
IF ( MOD(iy, 4) == 0 ) qleap = .TRUE.
IF ( MOD(iy, 100) == 0 ) qleap = .FALSE.
IF ( MOD(iy, 400) == 0 ) qleap = .TRUE.
IF ( qleap ) THEN
PRINT *, 'LEAP YEAR'
ELSE
PRINT *, 'ORDINARY YEAR'
END IF
STOP
END PROGRAM leap

次ページ

続きを表示

1を表示