fortran if(M .gt.2) go to 1\x05 Y = Y - 1\x05 M = M+12\x051 I = Y/100\x05 K = 2 - I + I/4\x05 djul = (365.25Y-mod(365.25Y,1.0))-679006.0\x05 djul = djul + aint(30.6001*(M+1))+ID+K

来源：学生作业帮助网编辑：六六作业网时间：2024/05/15 04:56:28

fortranif(M.gt.2)goto1\x05Y=Y-1\x05M=M+12\x051I=Y/100\x05K=2-I+I/4\x05djul=(365.25*Y-mod(365.25*Y,1.

fortran if(M .gt.2) go to 1\x05 Y = Y - 1\x05 M = M+12\x051 I = Y/100\x05 K = 2 - I + I/4\x05 djul = (365.25*Y-mod(365.25*Y,1.0))-679006.0\x05 djul = djul + aint(30.6001*(M+1))+ID+K
fortran
if(M .gt.2) go to 1
\x05 Y = Y - 1
\x05 M = M+12
\x051 I = Y/100
\x05 K = 2 - I + I/4
\x05 djul = (365.25*Y-mod(365.25*Y,1.0))-679006.0
\x05 djul = djul + aint(30.6001*(M+1))+ID+K

fortran if(M .gt.2) go to 1\x05 Y = Y - 1\x05 M = M+12\x051 I = Y/100\x05 K = 2 - I + I/4\x05 djul = (365.25*Y-mod(365.25*Y,1.0))-679006.0\x05 djul = djul + aint(30.6001*(M+1))+ID+K
你这只是完整程序中的一小段,执行的话就从上到下依次运行,当M>2时,跳到1 I = Y/100这一行运行.这个程序貌似与日期和天数有关