关于求平均值的问题

filwZ

chuxf 发表于 2014-3-9 13:33
很好，别人给你写代码只是提供一种思路。

其实一个问题的确定，几句话说不清楚，很多特殊情况下你的需求 ...

谢谢你

filwZ

chuxf 发表于 2014-3-9 13:33
很好，别人给你写代码只是提供一种思路。

其实一个问题的确定，几句话说不清楚，很多特殊情况下你的需求 ...

[Fortran] 纯文本查看 复制代码

Program main
  Implicit None
  real::v,w,pd12,py12
  integer::year1,year2,mon1,c1,c2
    open(1,file='pd12.dat')
    open(2,file='py12.dat')
    open(3,file='canshu.dat')
    do
        read(2,*)year2,py12,c2
        do
            read(1,*)year1,mon1,pd12,c1
                if((year1==year2).and.(pd12/=0.0))then
                    w=0.8363+181.77/pd12+244.55/py12
                    v=21.586*w**(-7.1891)  
                else  if((year1==year2).and.(pd12==0.0))then
                    w=0.0
                    v=0.0
                if (year1/=year2)exit
                end if
            write(3,'(1x,i5,i5,f10.1,f10.1)')year1,mon1,w,v
        end do
    end do
    close(1)
    close(2)
    close(3)
end program

filwZ

filwZ 发表于 2014-3-9 20:05
[mw_shl_code=fortran,true]Program main
  Implicit None
  real::v,w,pd12,py12

我运行这个程序说有个断点，能帮我看下吗？我要算的是当取一个年平均值py2的时候，没半个月有一个pd12，带入公式算出w和v，
当半月的平均值为0时，就直接为0了。可是我编出这个程序老说这个有断点。

filwZ

fcode 发表于 2014-3-9 20:49
你没有添加对文件终止的判断。一直读，遇到文件结束就出错了

哦，我试下。谢谢了