fortran if(M .gt.2) go to 1\x05 Y = Y - 1\x05 M = M+12\x051

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/10 12:30:38

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$

你这只是完整程序中的一小段,执行的话就从上到下依次运行,当M>2时,跳到1 I = Y/100这一行运行.这个程序貌似与日期和天数有关
再问：其他行的句子呢，执行完1这行是不是其他的按顺序执行
再答：是的，执行完1这行继续向下执行
再问：还有最后一个问题，这是一个小的函数里的代码，他为什么不把1这行直接放到if语句后，难道是有其他的好处？
再答：这就是goto语句的作用了。如果M小于或等于2，就要执行接下来的两行，然后继续执行接下来的程序；如果M大于2，直接跳到1，goto语句和1之间的两行就被跳过去了。如果把1这行直接放到if语句后，无论M值为多少，都会接着执行1，那么这个goto语句就没有意义了。

fortran if(M .gt.2) go to 1\x05 Y = Y - 1\x05 M = M+12\x051 已知函数y=x05+2x+m-1 若抛物线与x轴只有一个交点,求m的值代算式,一定要正确一、完成下表.分数\x051/2\x05 1/3\x05 小数\x05 0.8\x05 百分数\x0 flash if条件on(release){\x05if(a==1){\x05\x05a=2;\x05}\x05else 若二次函数y=x05-2x+m的值恒大于零,则m的取值范围是已知二次函数y=x05-(2m+6)x+m05+3的取值范围恒为非负数,求实数m的取值范围已知(m-1)x05-(m+1)x+8=0是关于x的一元一次方程,求代数式200(m+x)(x-2m)+11的值二次函数y=－2x05+4x+1的图像如何平移就得到y=－2x05的图像英语翻译1\x05安然无恙\x05拔苗助长\x05跋山涉水\x05百看不厌\x05班门弄斧\x05搬弄是非2\x05变本 x>0,y>0,2/(x+1)/y=1,若x+2y>m的平方+2m恒成立,则实数M的取值范围在fortran语言中 DO 20 I=1,M T=I*TR TAU=1.0-T/TS IF(T,GT,TS) TAU= 动圆x05+y05-(4m+2)-2my+4m05+4m+1=0的圆心的轨迹方程是