注冊基礎(chǔ)考試-〈計(jì)算機(jī)應(yīng)用基礎(chǔ)〉試題及答案

7-59下列語句中，（

）句有錯(cuò)。

A．Y=Y+T

B．F=SQRT(ABS(D))/2./A

C．LOGICALA/.T./B/.TRUE./，C/F/

D．DATAB(2)/3.1，3.2，3.3/

7-60執(zhí)行語句WRITE(*，'(1X，2I4)')(J，J=1，6)后，其生成的記錄數(shù)是（

）。

A．6

B．3

C．24

D．8

7-61有程序段

READ*，X，Y

Z=10

IF(X.GT.0)THEN

Z=X+Y

ELSEIF(X.LT.0)THEN

Z=X-Y

ELSE

Z=X*Y

ENDIF

輸入數(shù)據(jù)0，100，程序執(zhí)行后，Z值為（

）。

A．100.0

B．-100.0

C．0.0

D．10.0

7-62有程序

OPEN(1，F(xiàn)ILE='DAT1'，STATUS='OLD')

READ(1，*)A，B，C

READ(1，*)X，Y

BACKSPACE1

DO10I=1，9

READ(1，*，END=20)X

Y=Y+X

IF(Y.GE.19)GOTO20

10CONTINUE

20PRINT*，X

END

數(shù)據(jù)文件dat1經(jīng)編輯其內(nèi)容為

1，2，3

4，5，6

7，8，9程序執(zhí)行后，輸出結(jié)果為（

）。

A．7.0

B．5.0

C．6.0

D．8.0

7-63執(zhí)行語句WRITE(*，'(1X，3I4)')(J，J=1，10)后，其生成的記錄數(shù)是（

）。

A．6

B．4

C．24

D．8

7-64語句序列

DO100I=1，5，2

DO100J=2，6，2

100K=I+J

WRITE(*，*)K

執(zhí)行結(jié)果是（

）。

A．K=9

B．K=10

C．K=11

D．K=12

7-65程序

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

END

若輸入4.0，則結(jié)果為（

）。

A．0.0

B．1/5

C．1/6

D．1/4

7-66程序

PARAMETER(N=3)

INTEGERA(N，N)

READ*，A

DO10J=1，N

LS=0

DO20I=1，N

20LS=LS+A(I，J)

LS=LS/N

DO30I=1，N30A(I，J)=A(I，J)-LS

10CONTINUE

PRINT*，A

END

若輸入2，4，6，8，10，12，14，16，18

程序執(zhí)行后，A(3，2)為（

）。

A．-2

B．0

C．2

D．12

7-67程序

EXTERNALLENGTH

CHARACTERNAME*2

READ(*，*)NAME，SCORE

CALLDRAN(NAME，SCORE，LENGTH)

END

SUBROUTINEDRAN(N，S，F(xiàn))

CHARACTERN*2，LINE*20

INTEGERF

M=F(S)

DO10I=1，M

LINE(I∶I)='*'

10CONTINUE

WRITE(*，100)N，LINE

100FORMAT(2X，A2，A6)

END

FUNCTIONLENGTH(X)

LENGTH=INT(X)/100

END

若輸入'D'，356.8則程序運(yùn)行結(jié)果為（

）。

A．D***

B．D****

C．D356.8

D．D7-68若有INTEGERA(-2∶2，0∶3，1∶2)，按照在內(nèi)存中的存儲(chǔ)次序，則數(shù)組A中第8號(hào)元素為（

）。

A．A(-1，0，2)

B．A(0，1，1)

C．A(2，1，2)

D．A(1，1，1)

7-69以下程序段

DIMENSIONA(4)

READ*，A

I=1

10J=I+1

20IF(A(I).LT.A(J))THEN

T=A(J)

A(J)=A(I)

A(I)=T

ENDIF

J=J+1

IF(J.LE.4)GOTO20

I=I+1

IF(I.LE.3)GOTO10

PRINT*，A(4)

END

若輸入4，2，3，5則程序運(yùn)行結(jié)果為（

）。

A．4

B．2

C．3

D．5

7-70以下程序段

PROGRAMMAIN

EXTERNALFX

Y=TX(FX，3，2)

PRINT*，Y

END

FUNCTIONTX(FUN，A，B)

TX=(FUN(A)-FUN(B))/2.0

END

FUNCTIONFX(X)

FX=X*X

END

程序運(yùn)行結(jié)果為（

）。

A．9

B．4C．2.5

D．6.5

7-71以下程序段

CHARACTERA*4，B*6，C*5

DATAA，B，C/'BIG'，'MIDDLE'，'SMALL'/

IF(A.GT.B)THEN

IF(A.GT.C)THEN

PRINT*，A

ELSE

PRINT*，B

ENDIF

ELSE

IF(B.GT.C)THEN

PRINT*，B

ELSE

PRINT*，C

ELSEIF

ENDIF

END

程序運(yùn)行結(jié)果為（

）。

A．BIG

B．MIDDLE

C．SMALL

D．BIG

7-72程序中有print*，'m+n='，M+N語句，設(shè)M=10，N=50，在屏幕顯示（

）。

A．m+n=10+50

B．'m+n='，60

C．M+N=60

D．m+n=60

7-73下列程序段中（

）組將a，b變量值交換。

A．a(chǎn)=a-b

b=a+b

a=a-b

B．b=a+b

a=a-b

b=a-b

C．a(chǎn)=a+b

b=a-b

a=a-b

D．b=a-b

a=a+b

a=a-b

7-74設(shè)一個(gè)M×N矩陣已存儲(chǔ)在數(shù)組A(M，N)中，下面的程序段用來計(jì)算（

）。

SUM=0.0

DO10J=2，N-1

SUM=SUM+A(1，J)+A(M，J)

10CONTINUE

DO20J=1，M

SUM=SUM+A(J，1)+A(J，N)

20CONTINUE

A．矩陣所有靠邊元素的和

B．矩陣所有不靠邊元素的和

C．矩陣所有元素的和

D．矩陣兩條對角線上元素的和

7-75下列子程序PP可將數(shù)組a的內(nèi)容逆轉(zhuǎn)，調(diào)用方式為：pp(a，n)，n為a中實(shí)際數(shù)組元素的個(gè)數(shù)。例如a的實(shí)際內(nèi)容為(1，2，3，4)，則經(jīng)過pp(a，4)運(yùn)算可將a的內(nèi)容改為(4，3，2，1)。選擇（

）項(xiàng)可使程序完整。

SUBROUTINEPP(B，N)

DIMENSIONB(N)

DO10I=1，N/2

T=B(I)

K=

?

B(I)=B(K)

10B(K)=T

END

A．N-I

B．N-I+1

C．N-I-1

D．N+I-1

7-59下列語句中，（

）句有錯(cuò)。

A．Y=Y+T

B．F=SQRT(ABS(D))/2./A

C．LOGICALA/.T./B/.TRUE./，C/F/

D．DATAB(2)/3.1，3.2，3.3/

7-60執(zhí)行語句WRITE(*，'(1X，2I4)')(J，J=1，6)后，其生成的記錄數(shù)是（

）。

A．6

B．3

C．24

D．87-61有程序段

READ*，X，Y

Z=10

IF(X.GT.0)THEN

Z=X+Y

ELSEIF(X.LT.0)THEN

Z=X-Y

ELSE

Z=X*Y

ENDIF

輸入數(shù)據(jù)0，100，程序執(zhí)行后，Z值為（

）。

A．100.0

B．-100.0

C．0.0

D．10.0

7-62有程序

OPEN(1，F(xiàn)ILE='DAT1'，STATUS='OLD')

READ(1，*)A，B，C

READ(1，*)X，Y

BACKSPACE1

DO10I=1，9

READ(1，*，END=20)X

Y=Y+X

IF(Y.GE.19)GOTO20

10CONTINUE

20PRINT*，X

END

數(shù)據(jù)文件dat1經(jīng)編輯其內(nèi)容為

1，2，3

4，5，6

7，8，9

程序執(zhí)行后，輸出結(jié)果為（

）。

A．7.0

B．5.0

C．6.0

D．8.0

7-63執(zhí)行語句WRITE(*，'(1X，3I4)')(J，J=1，10)后，其生成的記錄數(shù)是（

）。

A．6

B．4

C．24

D．87-64語句序列

DO100I=1，5，2

DO100J=2，6，2

100K=I+J

WRITE(*，*)K

執(zhí)行結(jié)果是（

）。

A．K=9

B．K=10

C．K=11

D．K=12

7-65程序

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

END

若輸入4.0，則結(jié)果為（

）。

A．0.0

B．1/5

C．1/6

D．1/4

7-66程序

PARAMETER(N=3)

INTEGERA(N，N)

READ*，A

DO10J=1，N

LS=0

DO20I=1，N

20LS=LS+A(I，J)

LS=LS/N

DO30I=1，N30A(I，J)=A(I，J)-LS

10CONTINUE

PRINT*，A

END若輸入2，4，6，8，10，12，14，16，18

程序執(zhí)行后，A(3，2)為（

）。

A．-2

B．0

C．2

D．12

7-67程序

EXTERNALLENGTH

CHARACTERNAME*2

READ(*，*)NAME，SCORE

CALLDRAN(NAME，SCORE，LENGTH)

END

SUBROUTINEDRAN(N，S，F(xiàn))

CHARACTERN*2，LINE*20

INTEGERF

M=F(S)

DO10I=1，M

LINE(I∶I)='*'

10CONTINUE

WRITE(*，100)N，LINE

100FORMAT(2X，A2，A6)

END

FUNCTIONLENGTH(X)

LENGTH=INT(X)/100

END

若輸入'D'，356.8則程序運(yùn)行結(jié)果為（

）。

A．D***

B．D****

C．D356.8

D．D

7-68若有INTEGERA(-2∶2，0∶3，1∶2)，按照在內(nèi)存中的存儲(chǔ)次序，則數(shù)組A中第8號(hào)元素為（

）。

A．A(-1，0，2)

B．A(0，1，1)

C．A(2，1，2)

D．A(1，1，1)

7-69以下程序段

DIMENSIONA(4)

READ*，A

I=1

10J=I+120IF(A(I).LT.A(J))THEN

T=A(J)

A(J)=A(I)

A(I)=T

ENDIF

J=J+1

IF(J.LE.4)GOTO20

I=I+1

IF(I.LE.3)GOTO10

PRINT*，A(4)

END

若輸入4，2，3，5則程序運(yùn)行結(jié)果為（

）。

A．4

B．2

C．3

D．5

7-70以下程序段

PROGRAMMAIN

EXTERNALFX

Y=TX(FX，3，2)

PRINT*，Y

END

FUNCTIONTX(FUN，A，B)

TX=(FUN(A)-FUN(B))/2.0

END

FUNCTIONFX(X)

FX=X*X

END

程序運(yùn)行結(jié)果為（

）。

A．9

B．4

C．2.5

D．6.5

7-71以下程序段

CHARACTERA*4，B*6，C*5

DATAA，B，C/'BIG'，'MIDDLE'，'SMALL'/

IF(A.GT.B)THEN

IF(A.GT.C)THEN

PRINT*，A

ELSE

PRINT*，B

ENDIF

ELSE

IF(B.GT.C)THEN

PRINT*，B

ELSE

PRINT*，C

ELSEIF

ENDIF

END

程序運(yùn)行結(jié)果為（

）。

A．BIG

B．MIDDLE

C．SMALL

D．BIG

7-72程序中有print*，'m+n='，M+N語句，設(shè)M=10，N=50，在屏幕顯示（

）。

A．m+n=10+50

B．'m+n='，60

C．M+N=60

D．m+n=60

7-73下列程序段中（

）組將a，b變量值交換。

A．a(chǎn)=a-b

b=a+b

a=a-b

B．b=a+b

a=a-b

b=a-b

C．a(chǎn)=a+b

b=a-b

a=a-b

D．b=a-b

a=a+b

a=a-b

7-74設(shè)一個(gè)M×N矩陣已存儲(chǔ)在數(shù)組A(M，N)中，下面的程序段用來計(jì)算（

）。

SUM=0.0

DO10J=2，N-1

SUM=SUM+A(1，J)+A(M，J)

10CONTINUE

DO20J=1，M

SUM=SUM+A(J，1)+A(J，N)

20CONTINUE

A．矩陣所有靠邊元素的和

B．矩陣所有不靠邊元素的和C．矩陣所有元素的和

D．矩陣兩條對角線上元素的和

7-75下列子程序PP可將數(shù)組a的內(nèi)容逆轉(zhuǎn)，調(diào)用方式為：pp(a，n)，n為a中實(shí)際數(shù)組元素的個(gè)數(shù)。例如a的實(shí)際內(nèi)容為(1，2，3，4)，則經(jīng)過pp(a，4)運(yùn)算可將a的內(nèi)容改為(4，3，2，1)。選擇（

）項(xiàng)可使程序完整。

SUBROUTINEPP(B，N)

DIMENSIONB(N)

DO10I=1，N/2

T=B(I)

K=

?

B(I)=B(K)

10B(K)=T

END

A．N-I

B．N-I+1

C．N-I-1

D．N+I-1答案與解析7-59（C）。

應(yīng)選（C）。LOGICALA/.T./B/.TRUE./，C/F/；

因?yàn)槭街蠦前漏寫逗號(hào)‘，’；C后應(yīng)寫成·F·。

7-60（B）。

執(zhí)行語句WRITE(*，‘(1X，2I4)’)(J，J=1，6)后，應(yīng)輸出格式是：

共輸出三個(gè)記錄(即三行)，故應(yīng)選（B）。

7-61（C）。

當(dāng)程序執(zhí)行后，x=0，y=100；

隨后z=10；

因X=0，故應(yīng)執(zhí)行Z=X*Y=0×100=0.0，

因此應(yīng)選（C）。

7-62（A）。

當(dāng)程序執(zhí)行后：a=1，b=2，c=3

x=4，y=5

回退一個(gè)記錄

進(jìn)入第一次循環(huán)

x=4

y=y+x=5+4=9

因y=9

進(jìn)入第二次循環(huán)

x=7

y=y+x=9+7=16

因y=16

進(jìn)入第三次循環(huán)

因該語句已超過文件結(jié)尾，執(zhí)行20語句

打印x=7.0

故應(yīng)選（A）7.0。

7-63（B）。

思路同7-62題。

7-64（C）。

解題思路：

按雙重循環(huán)的執(zhí)行過程，外循環(huán)變量I分別為1，3，5，內(nèi)循環(huán)變量J分別為2，4，6，最后一次循環(huán)時(shí)，I應(yīng)為5，J應(yīng)為6。故K=I+J=5+6=11，故應(yīng)選（C）。

7-65（C）。

解題思路：

首先x=4，因x不小于-5，也非x=-1，故執(zhí)行以下語句。又因x＜5.0，故執(zhí)行y=1.0/(x+2.0)=1.0/(4+2.0)=1/6，最后輸出y=1/6。故應(yīng)選（C）。

7-66（C）。

按程序執(zhí)行順序。

由于N=3，故A(N，N)=A(3，3)，輸入按列順序得：

因N=3，當(dāng)進(jìn)入第一次外循環(huán)時(shí)得：

LS=2+4+6=12，LS=LS/N=12/3=4。

于是A的第一列變?yōu)?-4=-2，4-4=0，6-4=2。

當(dāng)進(jìn)入第二次外循環(huán)時(shí)得：

LS=8+10+12=30，LS=LS/N=30/3=10。

于是A的第二列變?yōu)?-10=-2，10-10=0，12-10=2。

當(dāng)進(jìn)入第三次外循環(huán)時(shí)得：

LS=14+16+18=48，LS=LS/N=48/3=16。

于是A的第三列變?yōu)?4-16=-2，16-16=0，18-16=2。

完成了3次循環(huán)后，A數(shù)組變?yōu)?/p>

。

則A(3，2)元素應(yīng)為2，故最后應(yīng)選（C）。

7-67（A）。

先分析本題結(jié)構(gòu)，是由三個(gè)程序段構(gòu)成，其中第一個(gè)是主程序段，第二個(gè)是子程序，第三個(gè)是函數(shù)段，輸出是在子程序內(nèi)實(shí)現(xiàn)的。

首先在主程序內(nèi)，按輸入，即有NAME='D'，SCORE=356.8，LENGTH是個(gè)函數(shù)，由函數(shù)段求得，觀察子程序可知：

LENGTH(X)=F(S)，即為LENGTH(356.8)=INT(X)/100=INT(356.8)/100，即LENGTH=3。

進(jìn)入