?? ex0514.for
字號:
PROGRAM ex0514
IMPLICIT NONE
REAL height ! 記錄身高
REAL weight ! 記錄體重
WRITE(*,*) "height:"
READ(*,*) height ! 讀入身高
WRITE(*,*) "weight:"
READ(*,*) weight ! 讀入體重
IF ( weight > height-100 ) GOTO 200
! 上面不成立, 沒有跳到200才會執(zhí)行這里
100 WRITE(*,*) "Under control."
GOTO 300 ! 下一行不能執(zhí)行所以要跳到300.
200 WRITE(*,*) "Too fat!"
300 STOP
END?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -