一、单项选择题24. 有程序:READ(*,*)x
Y=0.0
IF=(x.GT.0.0)THEN
Y=1.0
ELSE IF(x.GE.150)THEN
Y=2.0
ELSE
Y=3.0
ENDIF
WRITE(*,*)Y
END
当输入150时,此程序执行后的输出结果为:
A B C D
B
[解析] 当执行第一个IF语句时,条件满足;此时Y=1.0;而后执行ENDIF后面的语句,输出Y值。
48. 阅读以下FORTRAN程序:
READ(*,*)M
IF(M.LT.100.AND.M.GT.999) STOP
K=M/100
L=(M-K*100)/10
N=M-K*100-L*10
MM=K+N
WRITE(*,'(2X,13)')MM
END
键盘输入600,则程序的输出结果是:
A B C D
D
K=6,1=(600-6*100)=0,N=(600-6*100-L*10)=0,MM=K+N=6+0=6