神马作文网fortran if 的使用
来源：学生作业帮 编辑：神马作文网作业帮 分类：综合作业 时间：2024/11/20 00:03:42
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 的时候 反而错了
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 的时候 反而错了
语法就是这样的.
比如：
if (a(i,1).gt.amax) amax=a(i,1)
是对的.
如果换成另一种形式,写成
if (a(i,1) then
.gt.amax) amax=a(i,1)
endif.
也是对的.
比如：
if (a(i,1).gt.amax) amax=a(i,1)
是对的.
如果换成另一种形式,写成
if (a(i,1) then
.gt.amax) amax=a(i,1)
endif.
也是对的.