?? ex0707.f90
字號:
program ex0707
implicit none
integer, parameter :: row = 2
integer, parameter :: col = 2
integer :: m(row, col)
integer r ! 用來指定row
integer c ! 用來指定column
data ((m(r,c), r=1, 2), c=1,2) /1,2,3,4/
! 依次輸出m(1,1), m(2,1), m(1,2), m(2,2)這4個數字,
write(*,"(I3,I3,/,I3,I3)") (( m(r,c), c=1,2 ), r=1,2)
stop
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -