categoryFORTRAN覚書

SELECT CASE

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

SELECT CASE
----------------------------------------------------------------------

INTEGER Month, Days
PRINT *, "何月か入力して下さい。:"
READ *, Month
!!Days = 31 ! デバック用
SELECT CASE(Month)
CASE(4,6,9,11)
Days=30
CASE(1,3,5,7:8,10,12)
Days=31
CASE(2)
Days=28
!Code to test for a leap year
CASE DEFAULT
!Code to flag an error
PRINT *, "1から12を入力して下さい。"
Days=-1
END SELECT
PRINT "(i3, a, i3, a)", Month, "月は", Days, "日までです。"
END

----------------------------------------------------------------------
関連記事
 









        
 
http://greenwind888.blog.fc2.com/tb.php/156-1d4c0b90