阅读下列FORTRAN77程序： READ（* , *)X IF（X.LE.0) THEN Y=0.0 ELSE IF （（X.LT.5.0).AND.（X.N

阅读下列FORTRAN77程序：

READ(* , *)X

IF(X.LE.0) THEN

Y=0.0

ELSE IF ((X.LT.5.0).AND.(X.NE.2.0)) THEN

Y= 1/X

ELSE IF (X.LE.10.0) THEN

Y=1/(X+2)

ELSE

Y = 10.0

END IF

WRITE(* , *)Y

END

上述程序运行时，由键盘输入2，则输出的结果为()。

A．0.5

B．0.25

C．10.0

D．0.0

参考答案

您可能感兴趣的试题

阅读下列FORTRAN77程序：PI＝3.14159265WRITE（*，‘（F7.4)’)PIEND程序运行后输出结果是（)。（A) 3.142（

答案解析
阅读FORTRAN77程序：READ（*，100)A，B，C，DWRITE（*，*)D100FORMAT（F2．1，3（1X，F3.1))END运行上述程序时

答案解析
阅读FORTRAN77程序：READ（*，100)X100 FORMAT（3F3.1)WRITE（*，*)XEND运行上述程序时，如果从键盘输入

答案解析
阅读下列FORTRAN77程序：INTEGERA（3，2)READ（*，100)A100FORMAT（2I3)WRITE*，*)AEND运行后要使A（1，2)

答案解析
阅读以下FORTRAN 程序：READ( * *) MIF (M. LT. 100. AND. M

答案解析
阅读FORTRAN程序：READ(* *)NDO 10 K-1 NS=S+K**210 CONTI

答案解析
阅读下列FORTRAN 程序： DIMENSION M（6） READ(* *)M DO 10 J

答案解析