?? ex0705.f90
字號:
program ex0705
implicit none
integer, parameter :: row = 2
integer, parameter :: col = 2
integer :: matrix(row, col, 3)
integer m ! 用來指定第幾個矩陣
integer r ! 用來指定row
integer c ! 用來指定column
! 讀入矩陣的內容
do m=1, 2
write(*,"('Matrix ',I1)") m
do r=1, row
do c=1, col
write(*,"('(',I1,',',I1,')=')") r,c
read(*,*) matrix(r,c,m)
end do
end do
end do
! 把第1,2個矩陣相加
write(*,*) "Matrix 1 + Matrix 2 = "
do r=1, row
do c=1, col
matrix(r,c,3) = matrix(r,c,1)+matrix(r,c,2) ! 矩陣相加
write(*,"('(',I1,',',I1,')=',I3)") r,c,matrix(r,c,3)
end do
end do
stop
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -