- 积分
- 5
- 注册时间
- 2011-1-1
- 仿真币
-
- 最后登录
- 1970-1-1
|
本帖最后由 hanshikai 于 2014-3-25 18:54 编辑
- PROGRAM AA
- IMPLICIT NONE
- INTEGER A,B
- READ(*,*)A,B
- IF (A*B/=0) THEN
- IF (A>0) THEN
- IF (B>0) THEN
- PRINT*,'第一象限'
- ELSE
- PRINT*,'第四象限'
- END IF
- ELSE IF(A<0) THEN
- IF (b>0) THEN
- PRINT*,'第二象限'
- ELSE
- PRINT *,'第三象限'
- END IF
- END IF
- ELSE IF ((A=0) .AND. (B/=0)) THEN
- PRINT*,'在Y轴上'
- ELSE IF ((A/=0 ).AND. B=0) THEN
- PRINT*,'在X轴上'
- ELSE
- PRINT*,'原点'
- END IF
- END
复制代码 编译出现错误代码5082,Syntax error, found '=' when expecting one of: ( * ) :: , <END-OF-STATEMENT> ; + . - % (/ [ : ] /) . ' ** / ...
|
|