FORTRAN计算本站四季时间，在线等

408876002

program yjj
integer dat(22645)
real tmp(22645)
open(10,file='yjj.txt')
do i=1,22645
read(10,*) dat(i),tmp(i)
print*,dat(i),tmp(i)
enddo
open(11,file='yjj-spring.txt')
open(12,file='yjj-summer.txt')
open(13,file='yjj-autumn.txt')
open(14,file='yjj-winter.txt')

do i=2,22645
if(tmp(i-1)<=10.0 .and. tmp(i)>10.0 .and. tmp(i+1)>10.0 .and. （tmp(i+1)+tmp(i+2)+tmp(i+3)+tmp(i+4)+tmp(i+5)）>50.0 .and. tmp(i+2)>10.0 .and. （tmp(i+2)+tmp(i+3)+tmp(i+4)+tmp(i+5)+tmp(i+6)）>50.0 .and. tmp(i+3)>10.0 .and. （tmp(i+3)+tmp(i+4)+tmp(i+5)+tmp(i+6)+tmp(i+7)）>50.0 .and. tmp(i+4)>10.0 .and. （tmp(i+4)+tmp(i+5)+tmp(i+6)+tmp(i+7)+tmp(i+8)）>50.0) then
write(11,*) dat(i)
endif
enddo

do i=2,22645
if(tmp(i-1)<=22.0 .and. tmp(i)>22.0 .and. tmp(i+1)>22.0 .and. （tmp(i+1)+tmp(i+2)+tmp(i+3)+tmp(i+4)+tmp(i+5)）>110.0 .and. tmp(i+2)>22.0 .and. （tmp(i+2)+tmp(i+3)+tmp(i+4)+tmp(i+5)+tmp(i+6)）>110.0 .and. tmp(i+3)>22.0 .and. （tmp(i+3)+tmp(i+4)+tmp(i+5)+tmp(i+6)+tmp(i+7)）>110.0 .and. tmp(i+4)>22.0 .and. （tmp(i+4)+tmp(i+5)+tmp(i+6)+tmp(i+7)+tmp(i+8)）>110.0) then
write(12,*) dat(i)
endif
enddo

do i=2,22645
if(tmp(i-1)>=22.0 .and. tmp(i)<22.0 .and. tmp(i+1)<22.0 .and. （tmp(i+1)+tmp(i+2)+tmp(i+3)+tmp(i+4)+tmp(i+5)）<110.0 .and. tmp(i+2)<22.0 .and. （tmp(i+2)+tmp(i+3)+tmp(i+4)+tmp(i+5)+tmp(i+6)）<110.0 .and. tmp(i+3)<22.0 .and. （tmp(i+3)+tmp(i+4)+tmp(i+5)+tmp(i+6)+tmp(i+7)）<110.0 .and. tmp(i+4)<22.0 .and. （tmp(i+4)+tmp(i+5)+tmp(i+6)+tmp(i+7)+tmp(i+8)）<110.0) then
write(13,*) dat(i)
endif
enddo

do i=2,22645
if(tmp(i-1)>=10.0 .and. tmp(i)<10.0 .and. tmp(i+1)<10.0 .and. （tmp(i+1)+tmp(i+2)+tmp(i+3)+tmp(i+4)+tmp(i+5)）<50.0 .and. tmp(i+2)<10.0 .and. （tmp(i+2)+tmp(i+3)+tmp(i+4)+tmp(i+5)+tmp(i+6)）<50.0 .and. tmp(i+3)<10.0 .and. （tmp(i+3)+tmp(i+4)+tmp(i+5)+tmp(i+6)+tmp(i+7)）<50.0 .and. tmp(i+4)<10.0 .and. （tmp(i+4)+tmp(i+5)+tmp(i+6)+tmp(i+7)+tmp(i+8)）<50.0) then
write(14,*) dat(i)
endif
enddo

end
有没有大神帮忙修改下？顺便算下，最好能够自动筛选取每年符合要求的第一个，应该怎么加进去？
以入春为例：连续5天平均气温大于10度，且这5天，每天与之后的4天平均气温大于10度。

qxtlyf

学习了，等待结果

szy01

有点麻烦吧

超台十八

先算好 5 天平均好。。。

你那个 .and. 是 fortran 吗?