疑问goto语句逻辑判断

大菠萝

想做个逻辑判断 但是不知道语法怎么写 求指点

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

查看代码

打印?

01	PROGRAM AAA

02

03	IMPLICIT NONE

04	LOGICAL Y,N,NN

05

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

07	READ(*,*) NN

08	IF (Y=NN) THEN

09

GOTO 200

10	ELSE IF (N=NN) THEN

11

GOTO 300

12

ELSE

13

GOTO 100

14

END IF

15	200 WRITE(*,*) "200"

16	300 WRITE(*,*) "300"

17

18

END

fcode

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

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

查看代码

打印?

01	Program AAA

02	Implicit None

03	Character NN

04

Do

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

06	read(*,*) NN

07	If ( 'Y'==NN ) then

08	write(*,*) "200"

09	Else If ( 'N'==NN ) then

10	write(*,*) "300"

11

Else

12

cycle

13

End If

14

exit

15

End Do

16	End Program AAA

大菠萝

明白了  谢谢