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

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 05:12:37
fortran 怎么找一组数中最小值用fortran变成,求得一组数,比如a,b,c,d,然后用什么语句求这四个数中最小的那个?

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

fortran 怎么找一组数中最小值用fortran变成,求得一组数,比如a,b,c,d,然后用什么语句求这四个数中最小的那个?
楼上的算法太麻烦了吧?
应该是个新手.
其实数组最小值非常简单.
real a(n)
write(*,*) '最小值是:' ,MinVal( a )
就可以了.
就算不用 MinVal 函数,这样写也太麻烦了.
更简单高效的方法如下:
mymin = a(1)
do i = 2 ,n
mymin = min( mymin ,a(i) )
end do

! 数据存在a(i)中,最小数存在minx中
minx=a(1)
do i=2, n ! n是数组最后一个的下标
if (a(i) minx=a(i)
endif
enddo...

全部展开

! 数据存在a(i)中,最小数存在minx中
minx=a(1)
do i=2, n ! n是数组最后一个的下标
if (a(i) minx=a(i)
endif
enddo
希望可以帮到你,不明白可以追问,如果解决了问题,请点下面的"选为满意回答"按钮,谢谢。

收起

minval(数组名)