帮我看看这个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/05/13 07:52:42

帮我看看这个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