帮我看看这个FORTRAN哪儿错了

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/05/22 08:39:02

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

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

帮我看看.看我哪儿错了?改一下.谢谢.我急用~ 帮我看看这个电路三极管是不是错了帮我看看这个句子怎么错了? 帮我查一下这个包裹到哪儿了? 哪儿位英语高手帮我看看这篇自我介绍? 帮我看看我这个方程哪步解错了, 帮我看看这个是什么意思? 帮我看看这个英语单词, 钢化玻璃碎了,请帮我看看这个是不是钢化玻璃谁帮我看看这个数表咋看用了多少啊? 帮我看看这个程序哪里出错了帮我看看是不是答案错了.