您的位置: 首页  >  作业答案  >  数学  >  fortran题矩阵program ddcparameter(M=5,N=5)integer i,jreal:A(M,N)A=Reshape((/12,40,20,18,11,25,17,50,30,45,24,16,14,54,15,48,20,10,38,28,52,19,28,35,42/),(/5,5/))print*,"原矩阵："write(*,100) ((A(i,j),i=1,M),j=1,N)100 FORMAT((F5.1,2X))end

fortran题矩阵program ddcparameter(M=5,N=5)integer i,jreal:A(M,N)A=Reshape((/12,40,20,18,11,25,17,50,30,45,24,16,14,54,15,48,20,10,38,28,52,19,28,35,42/),(/5,5/))print*,"原矩阵："write(*,100) ((A(i,j),i=1,M),j=1,N)100 FORMAT((F5.1,2X))end

分类: 作业答案 • 2021-12-18 16:45:10
问题描述：

fortran题矩阵
program ddc
parameter(M=5,N=5)
integer i,j
real:A(M,N)
A=Reshape((/12,40,20,18,11,25,17,50,30,45,24,16,14,54,15,48,20,10,38,28,52,19,28,35,42/),(/5,5/))
print*,"原矩阵："
write(*,100) ((A(i,j),i=1,M),j=1,N)
100 FORMAT((F5.1,2X))
end

答

program ddcparameter(M=5,N=5)integer i,jreal::A(M,N) !// 此处两个冒号A=Reshape((/12,40,20,18,11,25,17,50,30,45,24,16,14,54,15,48,20,10,38,28,52,19,28,35,42/),(/5,5/))print*,"原矩阵："write(*,100) ((A(...

相关推荐