帮我看看这个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/06/29 01:05:34
帮我看看这个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
帮我看看这个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