2011年結(jié)構(gòu)工程師基礎(chǔ)(計算機應(yīng)用)考試精選習(xí)題(4)

-
    16、 語句序列
    DO 10 I＝1，5，2
    DO 10 J＝2，6，2
    10 K＝I+J
    WRITE (*,*)
    執(zhí)行的結(jié)果是( )
    (A) K=9 (B) K=10 (C) K=11 (D) K=12
    標(biāo)準答案： c
    17、 若有INTEGER A (-2:2, 0: 3, 1: 2) ,按照在內(nèi)存中的存儲次序,數(shù)組A中第8號元素為( )
    (A) A (-1,0,2) (B) A (0,1,1)
    (C) A (2, 1,2) (D) A (1, 1,1)
    標(biāo)準答案： b
    18、 對下列程序段
    READ (*,*) X
    IF ( (X. LT. - 5.0) .OR. (X.EQ. -1.0)) THEN
    Y=0.0
    ELSEIF (X.LT.0.0) THEN
    Y=1.0/(X+1.0)
    ELSEIF (X. LT.5.0) THEN
    Y=1.0/(X+2.0)
    ELSE
    Y=0.0
    ENDIF
    WRITE (*,*) Y
    若輸入4.0,則結(jié)果為:（ ）
    (A) 0.0 (B) 1/5 (C) 1/6 (D) 1/4十2.0
    標(biāo)準答案： c
    19、 以下程序段
    PROGRAM MAIN
    EXTERNAL FX
    Y＝TX (FX, 3, 2)
    PRINT *,Y
    END
    FUNCTION TX (FUN, A, B)
    TX= (FUN (A) - FUN (B)) /2.0
    END
    FUNCTION FUN (X)
    FX=X*X
    END
    運行的結(jié)果為( )
    (A) 9 (B) 4 (C) 2.5 (D) 6.5
    標(biāo)準答案： c
    20、 對以下程序段
    EXTERNAL LENGTH
    CHARACHER NAME * 2
    READ (*,*) NAME, SCORE
    CALL DRAW (NAME, SCORE, LENGTH)
    END
    SUBROUTINE DRAW (N, S, F)
    CHARACTER N*2, LINE*20
    INTEGER F
    M=F (S)
    DO 10 1= 1, M
    LINE (I: I) =’ *’
    10 CONTINUE
    WRITE (*, 100) N, LINE
    100 FORMAT (1X, A2, A6)
    END
    FUNCTION LENGTH (X)
    LENGTH = INT (X) /100
    END
    若輸入, D’, 356.8,則程序運行結(jié)果為( )
    (A) D* * *; (B) D* * * * ;(C) D356.8 (D)D3
    標(biāo)準答案： a