帮我看看这个FORTRAN哪儿错了 PROGRAM MAIN READ(*,*) YEARIF((YEAR % 4) .NE.0) THENPRINT * ,YEAR '不是闰年'ELSE IF((YEAR % 100) .NE.0) THENPRINT * ,YEAR '是闰年'ELSE IF((YEAR % 400) .NE.0)THENPRINT *,YEAR '是闰年'ELSE PRINT * ,YEAR '

来源：学生作业帮助网 编辑：作业帮 时间：2024/11/05 02:27:01
帮我看看这个FORTRAN哪儿错了 PROGRAM MAIN READ(*,*) YEARIF((YEAR % 4) .NE.0) THENPRINT * ,YEAR '不是闰年'ELSE IF((YEAR % 100) .NE.0) THENPRINT * ,YEAR '是闰年'ELSE IF((YEAR % 400) .NE.0)THENPRINT *,YEAR '是闰年'ELSE PRINT * ,YEAR '
xMKAǿARY\",Bnyh$Rټt4zSl:DD*_ff͌f{?sg7F|@Cz3$AwM\X N l+B b$" k^?AR)?x 䃀,>Hlr\cH4[Veqs[)J08O. } tehxG,[i[rucp˗Y? s +PiEE~&@ɧ*$)x|9u=GzϨvcx[C.˖ F¸H`h4a֛Z֋1k\4TFV^)iߨm:vM,0yUo0[jB7xPW6޶zRp5H/YO 2A3U4՚ぺDelAAsI~ :Z Dh|*

帮我看看这个FORTRAN哪儿错了 PROGRAM MAIN READ(*,*) YEARIF((YEAR % 4) .NE.0) THENPRINT * ,YEAR '不是闰年'ELSE IF((YEAR % 100) .NE.0) THENPRINT * ,YEAR '是闰年'ELSE IF((YEAR % 400) .NE.0)THENPRINT *,YEAR '是闰年'ELSE PRINT * ,YEAR '
帮我看看这个FORTRAN哪儿错了
PROGRAM MAIN
READ(*,*) YEAR
IF((YEAR % 4) .NE.0) THEN
PRINT * ,YEAR '不是闰年'
ELSE IF((YEAR % 100) .NE.0) THEN
PRINT * ,YEAR '是闰年'
ELSE IF((YEAR % 400) .NE.0)THEN
PRINT *,YEAR '是闰年'
ELSE
PRINT * ,YEAR '不是闰年'
END IF
END

帮我看看这个FORTRAN哪儿错了 PROGRAM MAIN READ(*,*) YEARIF((YEAR % 4) .NE.0) THENPRINT * ,YEAR '不是闰年'ELSE IF((YEAR % 100) .NE.0) THENPRINT * ,YEAR '是闰年'ELSE IF((YEAR % 400) .NE.0)THENPRINT *,YEAR '是闰年'ELSE PRINT * ,YEAR '
PROGRAM MAIN
Integer Year !// year 要定义为整型
READ(*,*) YEAR
IF(( mod(YEAR,4)) .NE. 0) THEN !// % 是 C 语言的求余,Fortran 要用 mod 函数
PRINT * , YEAR, '不是闰年' !// Year 和 不是闰年 之间要有一个逗号
ELSE IF((mod(YEAR ,100)) .NE. 0) THEN !// 下面同上面两个错误
PRINT * , YEAR, '是闰年'
ELSE IF((mod(YEAR , 400)) .NE. 0)THEN
PRINT *, YEAR ,'是闰年'
ELSE
PRINT * , YEAR ,'不是闰年'
END IF
END

帮我看看这个FORTRAN哪儿错了 PROGRAM MAIN READ(*,*) YEARIF((YEAR % 4) .NE.0) THENPRINT * ,YEAR '不是闰年'ELSE IF((YEAR % 100) .NE.0) THENPRINT * ,YEAR '是闰年'ELSE IF((YEAR % 400) .NE.0)THENPRINT *,YEAR '是闰年'ELSE PRINT * ,YEAR ' mathematica 画图帮我看看这是哪儿出了问题 急,高手帮我看看这个fortran求积分的程序哪错了,为什么运行不出来结果.program f915implicit noneexternal f1,f2,f3double precision a,b,simpswrite(*,*)'a,b'read(*,*)a,bwrite(*,*)simps(a,b,1d-7,f1)write(*,*)simps(a,b,1d-7,f2)write 请帮我看看这个ct颅脑帮我看看,谢谢大家了,帮帮我,看看这个片子反应什么病? 帮我看看这个题 帮我看看是不是答案错了. 帮我看看哪里错了, 帮我看看哪错了 帮我看看哪里错了? 大家帮我看看哪里错了? 帮我看看哪里错了 帮我看看哪里错了 帮我看看哪里错了? 谁帮我看看这个数表咋看用了多少啊? 钢化玻璃碎了,请帮我看看这个是不是钢化玻璃 请帮我看看这两幅字都写了什么还有这个 谁能帮我看看我哪儿做错了,和答案不一样. EXCEL的分段函数问题~帮我看看这个错在哪里了=if(a2