categoryFORTRAN覚書

SELECT CASE

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

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

!----- Seiseki Hyoka -----
INTEGER :: i, n1, n2, n3, n4
n1=0; n2=0; n3=0; n4=0
1 READ*, i ; IF(i<0 .OR. i>100) GOTO 9
SELECT CASE(i)
CASE(80:) ; PRINT*,'優' ; n1 = n1 + 1
CASE(70:79) ; PRINT*,'良' ; n2 = n2 + 1
CASE(60:69) ; PRINT*,'可' ; n3 = n3 + 1
CASE DEFAULT; PRINT*,'不可'; n4 = n4 + 1
END SELECT
GO TO 1
9 PRINT*, ' 優=', n1, ' 良=', n2, ' 可=', n3, ' 不可=', n4
END


関連記事
 









        
 
http://greenwind888.blog.fc2.com/tb.php/209-305f4442