Fortran矩阵乘法

_Grape

用Fortran实现矩阵乘法
要求：已知矩阵A（3，4），B（4，2），使用隐式do循环赋值，计算C=A*B，并按行输出
数据：A=[1 4 7 10;2 5 8 11; 3 6 9 12]，B=[1 5;2 6; 3 7; 4 8]
分析：1.C为3×2的矩阵
2.计算公式：file:///C:/Users/%E6%9B%B9%E4%B8%B9/AppData/Local/Temp/ksohtml5588/wps2.png

                               
登录/注册后可看大图

代码仅供参考：

program main

implicit none

integer i,j,k

integer A(3,4),B(4,2),C(3,2)

data A/1,2,3,4,5,6,7,8,9,10,11,12/,B/1,2,3,4,5,6,7,8/ !赋值需要按列输入

do i=1,3

  do j=1,2

    C(i,j)=0

    do k=1,4

      C(i,j)=C(i,j)+A(i,k)*B(k,j) !数学核心

    end do

  end do

end do

write(*,"(2(i4,1x),/)")((C(i,j),j=1,2),i=1,3) !按行输入，外层为行循环，内层为列循环

end