Question

我的程序没有显示错误，但无法正常工作？

    program hw4
    dimension a(i,j)
    real a
    common i,j
    integer i,j
    do i=1,4,1
    do j=1,5,1
    a(1,1)=0
    a(1,2)=1
    a(1,3)=2
    a(1,4)=3
    a(1,5)=25
    a(2,1)=1
    a(2,2)=1
    a(2,3)=1
    a(2,4)=1
    a(2,5)=12
    a(3,1)=2
    a(3,2)=0
    a(3,3)=3
    a(3,4)=1
    a(3,5)=19
    a(4,1)=3
    a(4,2)=4
    a(4,3)=0
    a(4,4)=6
    a(4,5)=41
    write(*,*) a(i,j)
    enddo
    enddo
    stop
    end

我希望它将显示4 * 5矩阵，但现在它将向我显示程序停止工作消息

Answer 1

首先，矩阵“ a”必须具有恒定的形状，即必须明确定义尺寸“ i”和“ j”。

第二，嵌套循环为每个循环设置矩阵值。尝试将其放在循环之前。

类似的东西：

program hw4
  implicit none
  integer, parameter      :: ni=4, nj=5
  real, dimension(ni,nj)  :: a
  integer                 :: i, j

  ! Set matrix values here
  a(1,1) = 0
  ! ... 

  do i = 1, ni, 1
    do j = 1, nj, 1
      write(*,*) a(i,j)

    end do
  end do

end program hw4

亲切的问候

我想显示一个4 * 5矩阵，并且我的程序没有错误，但是当我运行它时，它告诉我程序停止工作

1 个答案: