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/13 08:00:38
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) then
.gt.amax) amax=a(i,1)
endif.
也是对的.
在fortran中,单do循环放在if语句里面的时候该怎么办?
fortran
FORTRAN 目前仍然是科学计算领域使用的主要语言吗?
使用fortran,编写程序将200个整数按照从小到大的顺序排列
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程序~求相关系数的fortran程序~.
一个简单的FORTRAN程序,IF(IDBG.GE.1)THENWRITE(MAXWRT_MAXBUF(1),9010) FT,DKA,DKRCALL DMS_WRTTRM(1)ENDIF
fortran ichar(str(i:i)) .eq.0if(ichar(str(i:i)) .eq.0) exit,if语句括号里的是什么意思?
fortran中设置随机数的问题天河兄,再次麻烦你了,想问问在fortran中设置一定区间的随机数,比如设置1~76之间的随机整数,应该调用什么函数?random_seed random_number?如何使用?
(x-y)^4的FORTRAN表达式是什么
fortran中dmax1的意思是?
fortran 中coord干嘛的,用法
Fortran里几个有用的函数
fortran如何计算大量数据的平均值
fortran 能输出的最大整数?
Fortran中stop和end的区别?
如何使用EXCEL表格的IF函数?
编程求出斐波那契数列中第一个大于10000的元素.要求 使用Fortran中的循环分别编程实现