fortran怎么找一组数中最小值用fortran变成,求得一组数,比如a,b,c,d,然后用什么语句求这四个数中最小的那个?

Question

fortran 怎么找一组数中最小值
用fortran变成,求得一组数,比如a,b,c,d,然后用什么语句求这四个数中最小的那个?

Answer 1

楼上的算法太麻烦了吧?
应该是个新手.
其实数组最小值非常简单.
real a(n)
write(*,*) '最小值是：' ,MinVal( a )
就可以了.
就算不用 MinVal 函数,这样写也太麻烦了.
更简单高效的方法如下：
mymin = a(1)
do i = 2 ,n
mymin = min( mymin ,a(i) )
end do