编程求每一年日平均气温的第6小值

发表于 2017-4-5 18:34:13 | 显示全部楼层 |阅读模式

Fortran
系统平台:	fortran
问题概况:	一共55年的资料，要求每一年日平均气温的第六小值。即将每一年的日平均气温从小到大排序，取其中每年的第六小值。我用的是选择排序法，应该每年循环6次就能得到第六小值，但我试着输出第一年的前6个值，根本不是由小到大的排列。自己实在不知道错在哪里。其中求后一天的子程序nextday应该没问题（之前自己用过）。
问题截图:
我看过提问的智慧:	看过
自己思考时长(天):	1

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

do t=1,6
do yyyy=1955,2010
yy=yyyy
mm=1
dd=t
min=Tdaily(yy,mm,dd)
do while(1)
call nextday(yy,mm,dd,yx,mx,dx)
if (min>Tdaily(yx,mx,dx)) then
temp=Tdaily(yx,mx,dx)
Tdaily(yx,mx,dx)=Tdaily(yy,mm,dd)
Tdaily(yy,mm,dd)=temp
min=temp
endif
yy=yx
mm=mx
dd=dx
if(mx==12.and.dx==31) exit
enddo
enddo
enddo
write(*,*) (Tdaily(1955,1,i),i=1,6)

密码修改失败请联系微信：mofangbao

使用道具举报

返回列表

		自动登录	找回密码
密码			立即注册