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 的时候 反而错了

语法就是这样的。
比如:
if (a(i,1).gt.amax) amax=a(i,1)
是对的。
如果换成另一种形式,写成
if (a(i,1) .gt. amax) then
amax=a(i,1)
endif.
也是对的。
温馨提示:答案为网友推荐,仅供参考

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网