windows平台下
fortran编程实现求最小值
方法/步骤
-
1
关于codeblocks IDE的极速安装
请参考百度经验<<Windows下极速搭建fortran开发环境>>
-
2
fortran编程实现求最小值
源代码如下：
implicit none
integer::i,j,N
real*8::x(8)
real*8::tmp
x=[12,39,499,20,3,1999,888,8]
N=size(x)
tmp=x(1)
do i=1,N
if(x(i)<tmp)then
tmp=x(i)
end if
end do
print *, "最小值为：",tmp
-
3
编译、运行、结果如下：
END
经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。
作者声明：本篇经验系本人依照真实经历原创，未经许可，谢绝转载。
展开阅读全部
文章评论