作业帮fortran if 的使用program maxareal a(4,4),amaxread*,aamax=a(1,1)do i=1,4if (a(i,1).gt.amax) amax=a(i,1)if (a(i,4).gt.amax) amax=a(i,4)enddodo j=1,4if (a(1,j).gt.amax) amax=a(1,j)if (a(4,j).gt.amax) amax=a(4,j)enddo end这个程序是对的,但是
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/02 18:00:32
fortran if 的使用program maxareal a(4,4),amaxread*,aamax=a(1,1)do i=1,4if (a(i,1).gt.amax) amax=a(i,1)if (a(i,4).gt.amax) amax=a(i,4)enddodo j=1,4if (a(1,j).gt.amax) amax=a(1,j)if (a(4,j).gt.amax) amax=a(4,j)enddo end这个程序是对的,但是
fortran if 的使用
program maxa
real a(4,4),amax
read*,a
amax=a(1,1)
do i=1,4
if (a(i,1).gt.amax) amax=a(i,1)
if (a(i,4).gt.amax) amax=a(i,4)
enddo
do j=1,4
if (a(1,j).gt.amax) amax=a(1,j)
if (a(4,j).gt.amax) amax=a(4,j)
enddo
end
这个程序是对的,但是为什么一旦我加入 endif 和 then 的时候 反而错了
fortran if 的使用program maxareal a(4,4),amaxread*,aamax=a(1,1)do i=1,4if (a(i,1).gt.amax) amax=a(i,1)if (a(i,4).gt.amax) amax=a(i,4)enddodo j=1,4if (a(1,j).gt.amax) amax=a(1,j)if (a(4,j).gt.amax) amax=a(4,j)enddo end这个程序是对的,但是
语法就是这样的.
比如：
if (a(i,1).gt.amax) amax=a(i,1)
是对的.
如果换成另一种形式,写成
if (a(i,1) then
.gt.amax) amax=a(i,1)
endif.
也是对的.