1、关于codeblocks IDE的极速安装请参考百度经验<<Windows下极速搭建fortran开发环境>>
3、编写源代码如下： implicit none integer::i巳呀屋饔,N real*8::x(8) real*8::sumX,sumXX real*8::variance x=[1,2,3,4,5,6,7,8] !均值 sumX=0 N=size(x) do i=1,N sumX=sumX+x(i) sumXX=sumXX+x(i)**2 end do !方差 variance=sqrt((N*sumXX-sumX**2)/(N*(N-1))) print *, "variance:",variance
