閱讀下列程序
A=3.5
CALL SUBA(A,A,A)
WRITE(*,’(F4.1)’)A
END
SUBROUTINE SUBA(X,Y,Z)
Y=Y-2.0
Z=Z+X
END
程序運(yùn)行的結(jié)果是()
A. 7.0
B. 5.0
C. 3.5
D. 1.5
您可能感興趣的試卷
你可能感興趣的試題
閱讀下列程序
INTEGER F
F(X,Y)=X+Y
A=-2.5
B=2.1
B=B+F(A,B)
WRITE(*,’(F3.1)’)B
END
程序運(yùn)行的結(jié)果是()
A. 1
B. 7
C. 2.1
D. 1.7
閱讀下列程序
READ(*,*)K
WRITE(*,100)K
100 FORMAT(I5)
END
程序運(yùn)行時(shí)輸入初始值12345,那么顯示結(jié)果是()
A. 2345
B. 12345
C. ****
D. *****
閱讀下列程序
LOGICAL L
READ(*,*)A,B
L=A.GT.B
IF(L)THEN
X=B+2*A
ELSE
X=B
END
IF
WRITE(*,*)X
END
使用鍵盤(pán)為上述程序輸入兩個(gè)初值4和3,其輸出的X值是()
A. 4.0
B. 3.0
C. 11.0
D. 10.0
閱讀下列程序
CHARACTER*10 W
DO K=1,10
READ *,W
IF (W(1:2).EQ.’AB’.OR.W(1:2).EQ.’ab’)WRITE(*,*)’’,W
ENDDO
END
程序的功能是()
A. 首字符是A或B的字符串被輸出顯示
B. 第一、二個(gè)字符是AB或ab的字符串被輸出顯示
C. 首字符是a或b的字符串將被輸出顯示
D. 第一、二個(gè)字符是Aa或Bb的字符串將被輸出顯示
閱讀下列程序
F=1.0
DO 20,J=3,7,2
DO 20,K=J-1,J
20 F =F*K
WRITE(*,’(13,F(xiàn)8.1)’)J,F(xiàn)
END
程序運(yùn)行結(jié)果是()
A. 3 6.0
B. 5 120.0
C. 9 5040.0
D. 9362880.0
最新試題
閱讀下列FORTRAN程序,寫(xiě)出程序運(yùn)行的結(jié)果。
閱讀下列FORTRAN程序,寫(xiě)出程序運(yùn)行的結(jié)果。
閱讀下列FORTRAN程序:則最后輸出的結(jié)果為()
閱讀下列FORTRAN程序,寫(xiě)出程序運(yùn)行的結(jié)果。
閱讀下列FORTRAN77程序:在執(zhí)行上述程序時(shí),由鍵盤(pán)輸入 2.0寫(xiě)出最后輸出的Z值
閱讀下列FORTRAN程序,寫(xiě)出程序運(yùn)行的結(jié)果。
閱讀下列FORTRAN程序,寫(xiě)出程序運(yùn)行的結(jié)果。
閱讀下列FORTRAN程序,寫(xiě)出程序運(yùn)行的結(jié)果。
閱讀下列FORTRAN程序,寫(xiě)出程序運(yùn)行的結(jié)果。
閱讀下列FORTRAN程序,寫(xiě)出程序運(yùn)行的結(jié)果。