Question

fortran 里面的goto语句怎么用？

程序如下：
program ex0517
implicit none
real A,B
real C
data A,B /2.0,1.0/
C=A~B
if(C) 10,20,30
10 write(*,*) 'A<B'
goto 40
20 write(*,*) 'A=B'
goto 40
30 write(*,*) 'A>B'
40 stop
end
想请问if(C) 10,20,30中C是2，如何通过这个值判别该跳跃到10还是20还是30的？

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

if(C) 10,20,30

等效于
if ( c<0) goto 10
if( c==0) goto 20
if( c>0) goto 30

这是一种非常陈旧的，不推荐使用的语法。