求大神帮忙讲解一下这个fortran程序,DO 600 M=1,40READ(1,) NN,N,K1,M,LIF(NN.EQ.0)THENGOTO 500END IFzREAD(1,) (J(I),I=1,M)DO I=1,N+1READ(1,*) EA(I,1)END DO CA=EA(N+1,2)IF (CA.LT.PI/18.0) THENR1=50ELSE IF (CA.LT.PI/9.0)THENR1=10ELSE IF(CA.L

来源：学生作业帮助网编辑：作业帮时间：2024/04/27 14:51:21

求大神帮忙讲解一下这个fortran程序,DO 600 M=1,40READ(1,*) NN,N,K1,M,LIF(NN.EQ.0)THENGOTO 500END IFzREAD(1,*) (J(I),I=1,M)DO I=1,N+1READ(1,*) EA(I,1)END DO CA=EA(N+1,2)IF (CA.LT.PI/18.0) THENR1=50ELSE IF (CA.LT.PI/9.0)THENR1=10ELSE IF(CA.L
求大神帮忙讲解一下这个fortran程序,
DO 600 M=1,40
READ(1,*) NN,N,K1,M,L
IF(NN.EQ.0)THEN
GOTO 500
END IF
z
READ(1,*) (J(I),I=1,M)
DO I=1,N+1
READ(1,*) EA(I,1)
END DO
CA=EA(N+1,2)
IF (CA.LT.PI/18.0) THEN
R1=50
ELSE IF (CA.LT.PI/9.0)THEN
R1=10
ELSE IF(CA.LT.PI/6.0) THEN
R1=5
ELSE IF(CA.LT.PI/3.0) THEN
R1=2
ELSE IF (CA.GT.PI/3.0) THEN
R1=1
END IF

求大神帮忙讲解一下这个fortran程序,DO 600 M=1,40READ(1,*) NN,N,K1,M,LIF(NN.EQ.0)THENGOTO 500END IFzREAD(1,*) (J(I),I=1,M)DO I=1,N+1READ(1,*) EA(I,1)END DO CA=EA(N+1,2)IF (CA.LT.PI/18.0) THENR1=50ELSE IF (CA.LT.PI/9.0)THENR1=10ELSE IF(CA.L
从文件1中读取有关数据,直到数据读到了NN值为0（猜想）
根据原有的EA(N+1,2)数据来决定R1的值.
话说.咱别那么懒~~~~~自已好好看看,这段代码很简单~~~~~~

求大神帮忙讲解一下这个fortran程序,DO 600 M=1,40READ(1,*) NN,N,K1,M,LIF(NN.EQ.0)THENGOTO 500END IFzREAD(1,*) (J(I),I=1,M)DO I=1,N+1READ(1,*) EA(I,1)END DO CA=EA(N+1,2)IF (CA.LT.PI/18.0) THENR1=50ELSE IF (CA.LT.PI/9.0)THENR1=10ELSE IF(CA.L 说文解字从字形,字源上分析讲解一下“信”这个字求大神帮忙!说文解字从字形,字源上分析讲解一下“信”这个字求大神帮忙!急求相关系数fortran程序~求相关系数的fortran程序~. fortran程序求矩阵特征值, 求C语言大神讲解一下这个程序算法的意思,就是为什么要这样算?我能看懂每句的意思,不懂这个算法的道理. 求fortran大神帮我编一个Fortran程序计算无理数π的1-100的小数位, 不懂,求大神讲解一下求大神帮忙画一下这个图急用请大神帮忙设计一下'1*2*3*4*5*6'这个c程序,并标明一下注释, 恳求fortran大神帮忙编译一小段简单程序输入n个点（x1,y1).(xn,yn),求输出a和b., 其中即x1.xn的平均值,公式中其他横杠均表示平均值的意思.有人能帮帮忙么, 求大神讲解一下pn结. 求大神帮忙翻译一下求大神帮忙解答一下 fortran问题,求大神解答这是怎么回事谁帮忙翻译一下?求大神帮忙! 哪位大神帮忙写个Fortran的程序,有关有限元,只要能建立一个三节点平面单元（线弹性,各向同性）.我们有限元课的作业,我用的Fortran软件时FTN95. 怎样求最长连续降水日数用fortran程序编写, 求：牛顿迭代法解方程的程序要Fortran的