fortran生成一个动态二维数组，行数和列数自定义，向数组中填入数据生成矩阵的形式，并输出这个矩阵的转置形式。

最新推荐文章于 2023-06-27 00:00:19 发布

丸迫奈扎

最新推荐文章于 2023-06-27 00:00:19 发布

阅读量4.1k

点赞数 2

分类专栏： Fortran练习题文章标签： Fortran 动态数组

本文链接：https://blog.csdn.net/weixin_45041453/article/details/97045815

版权

使用Fortran编程，动态创建二维数组，允许用户自定义行数和列数，填充数据后展示矩阵，并输出其转置矩阵。

摘要由CSDN通过智能技术生成

program main
implicit none
  integer::hang,lie
  integer,allocatable::a(:,:),b(:,:)
  integer::i,j
  write(*,"(A20)")"请输入矩阵的行数"
  read(*,*)hang
  write(*,"(A20)")"请输入矩阵的列数"
  read(*,*)lie
  allocate(a(hang,lie))
  allocate(b(lie,hang))
   write(*,"(A30)")"请输入矩阵的各项元素"
 do i=1,hang
 do j=1,lie
 read(*,*)a(i,j)
end do
end do
 do i=1,hang
 do j=1,lie
 b(j,i)=a(i,j)
 end do
 end do
write(*,*)"该矩阵形式如下"
  do i=1,hang
write(*,*)a(i,:)
 end do
write(*,*)"该矩阵转置形式如下"
 do j=1,lie
 write(*,*)b(j,:)
 end do 
stop
end