Fortran Coder

标题: 疑问goto语句逻辑判断 [打印本页]

作者: 大菠萝 时间: 2022-1-29 18:40
标题: 疑问goto语句逻辑判断
想做个逻辑判断但是不知道语法怎么写求指点

[Fortran] 纯文本查看 复制代码

PROGRAM AAA



IMPLICIT NONE

LOGICAL Y,N,NN



100 WRITE(*,*) "Y/N?"

    READ(*,*) NN

IF (Y=NN) THEN

    GOTO 200

ELSE IF (N=NN) THEN

    GOTO 300   

ELSE

     GOTO 100

END IF

200 WRITE(*,*) "200"

300 WRITE(*,*) "300"



END

作者: fcode 时间: 2022-1-31 14:58
1. 不建议全部大写。现代代码应该大小写混合。
2. 相等判断应该用 == 而非 =
3. 现代代码，尽量避免用语句标号。
4. NN应定义为字符类型。而非逻辑类型。Y 和 N 也建议用字符，并且用常量更便于理解。

[Fortran] 纯文本查看 复制代码

Program AAA

  Implicit None

  Character NN

  Do

    write(*,*) "Y/N?"

    read(*,*) NN

    If ( 'Y'==NN ) then

      write(*,*) "200"

    Else If ( 'N'==NN ) then

      write(*,*) "300"

    Else

      cycle

    End If

    exit

  End Do

End Program AAA

作者: 大菠萝 时间: 2022-2-13 09:05
明白了谢谢

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)