下列程序运行后的输出结果为()10 DIM X(11)20 FOR K=1TO1030X(K)=K*K40 NEXT K50 PRINT X(K)60 END
A.0
B.100
C.10
D.11
A.0
B.100
C.10
D.11
下列程序执行后的输出结果为()。 K=0 DO 10 1=1,6,2 DO 10 J=I,6,3 IF(K.LT.I*J) K=I*J 10 CONTINUE WRITE(*,*) K END
A.18
B.30
C.25
D.36
下列程序执行后的输出结果为()。 F1(X)=2.0/(1.0+X) F2(Y)=F1(Y)*Y+1.0 A=F1(1.0)+F2(1.0) WRITE(*,10) A 10 FORMAT(IX,E8.2) END
A.3.00
B.3.0
C.3.00E+00
D.0.30E+01
A.5 8 12 15 30
B.12 15 5 30 18
C.8 12 15 30 18
D.12 15 5 18 30
A.10
B.30
C.1030
D.3010
A.9
B.10
C.15
D.24
(2008年) 阅读下列FORTRAN程序: MQIUH=N(5)+N(10) WRITE(*,‘(2X,15)’)MQIUH END FUNCTION N(K) N=0 DO 10 J=1,K N=N+J 10 CONTINUE RETURN END 程序运行后的输出结果是()。
A.65
B.85
C.90
D.70
阅读以下 FORTRAN 程序:
READ(* , *)X
IF(X , LE , 0)RHEN
Y=0.0
ELSEIF(X , LT , 5 , 0) , AND , (X , NE , 2 , 0)THEN
Y=1 / X
ELSEIF(X , LE , 10 , 0)THEN
Y=1 / (X+2)
ELSE
Y=10.0
ENDIF
WRITE
WRITE(* , *)Y
END
运行上述程序时,若由键盘输入: 2 ,则程序输出结果为 () 。
(A)0.0
(B)0.5
(C)0.25
(D)10.0
当输入150时,下列程序执行后的输出结果为()。 READ(*,*) X Y=0.0 IF(X.GT.O.0) THEN Y=1.0 ELSE IF(X.GE.150) THEN Y=2.0 ELSE Y=3.0 END IF WRITE(*,*) Y END
A.0.0
B.1.0
C.2.0
D.3.0
下列程序执行后的输出结果为()。 CHARACTER *6 S S='ABCDEF CALL SS(S) END SUBROUTINE SS(S1) CHARACTER S1*3 WRITE(*,*) S1 END
A.ABC
B.BC
C.CDE
D.DEF