如下.fortran原函数是要分别求大于0等于0小与0的3种情况.为什么可以程序可以用10,20,30表示REALXREAD*,XIF(X)10,20,3010Y=X*X+1GOTO10020Y=SIN(X+1)GOTO10030Y=SQRT(X+2)100PRINT*,"Y=",YEND

Question

如下.fortran 原函数是要分别求大于0等于0小与0的3种情况.为什么可以程序可以用10,20,30表示
REAL X
READ*,X
IF(X)10,20,30
10 Y=X*X+1
GOTO 100
20 Y=SIN(X+1)
GOTO 100
30 Y=SQRT(X+2)
100 PRINT*,"Y=",Y
END

Answer 1

10 20 30 是标号,分别是：
10代表 Y=X*X+1
20 代表Y=SIN(X+1)
30 代表Y=SQRT(X+2)
IF(X)10,20,30的意思是判断x的值三种情况,小于0则转到10代表的那一行,等于0则转到20,大于0则转到30那一行