作业帮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
来源：学生作业帮助网 编辑：作业帮 时间：2024/07/05 14:25:40
xQKKA *su57mO] t1D1۠cE+JJ챔旙c4a~7,Ȥ8
-`[@^@Qߑɐ)jPR 0K.0QDC Q B*D%D&ksU`,1m)/7 #ȘJ3q}4[oᤜSDMz&-VE\x {-փH ~a߮Kv\k^7 3w`
>SS ֏FVhn{%Z=+Zqi@;KdcA
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这一行运行.这个程序貌似与日期和天数有关