Fortran Coder

查看: 2887|回复: 2
打印 上一主题 下一主题

[流程控制] 疑问goto语句逻辑判断

[复制链接]

1963

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1357 元
贡献
574 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

楼主
发表于 2022-1-31 14:58:22 | 显示全部楼层
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
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-5-10 00:23

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表