categoryFORTRAN覚書

論理IF文

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

論理IF文
IF(論理式) 実行文
----------------------------------------------------------------------

!----- 成績チェック -----
INTEGER :: n, s, k
s = 0; k = 0
10 PRINT*,'Input mark for each student (or negative one to quit):'
READ*, n; IF(n<0) GOTO 999
s = s + 1
IF(n >= 60) k = k + 1
GOTO 10
999 PRINT*, k,' students passed in this exam. Total =', s
END


関連記事
 









        
 
http://greenwind888.blog.fc2.com/tb.php/194-e760082c