windows平台下fortran编程求解算术平均值给定一个数组通过fortran编程求这个数组的平均值例如x=[1,2,3,4,5,6,7,8] !===================================== ! fortran计算均值子程序 !===================================== subroutine dy2003310 implicit none integer::i,N real*8::x(8) real*8::average x=[1,2,3,4,5,6,7,8] !均值 average=0 N=size(x) do i=1,N average=average+x(i) end do average=average/N print *, 'average:',average end subroutine dy2003310
工具/原料
codeblocks IDE编程环境
方法/步骤
2
测试的源代码如下： implicit none integer::i,N real*8::x(8) real*8::average x=[1,2,3,4,5,6,7,8] !均值 average=0 N=size(x) do i=1,N average=average+x(i) end do average=average/N print *, 'average:',average
3
编译、运行结果如下：
上一篇：Java如何实现的平台无关
下一篇：小程序开发常用工具有哪些?