fortran 怎么找一组数中最小值用fortran变成,求得一组数,比如a,b,c,d,然后用什么语句求这四个数中最小的那个?
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/05 19:47:04
![fortran 怎么找一组数中最小值用fortran变成,求得一组数,比如a,b,c,d,然后用什么语句求这四个数中最小的那个?](/uploads/image/z/11453702-14-2.jpg?t=fortran+%E6%80%8E%E4%B9%88%E6%89%BE%E4%B8%80%E7%BB%84%E6%95%B0%E4%B8%AD%E6%9C%80%E5%B0%8F%E5%80%BC%E7%94%A8fortran%E5%8F%98%E6%88%90%2C%E6%B1%82%E5%BE%97%E4%B8%80%E7%BB%84%E6%95%B0%2C%E6%AF%94%E5%A6%82a%2Cb%2Cc%2Cd%2C%E7%84%B6%E5%90%8E%E7%94%A8%E4%BB%80%E4%B9%88%E8%AF%AD%E5%8F%A5%E6%B1%82%E8%BF%99%E5%9B%9B%E4%B8%AA%E6%95%B0%E4%B8%AD%E6%9C%80%E5%B0%8F%E7%9A%84%E9%82%A3%E4%B8%AA%3F)
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(数组名)