计算机程序设计语言在线学习,计算机程序设计语言计算机程序设计语言.pdf

计算机程序设计语言计算机程序设计语言

注册公用设备工程师(给水排水)执业资格考试基础模拟试题

水盟共享中心：

计算机应用基础〉

计算机程序设计语言

试题、答案与解析

7-59 下列语句中，( )句有错。

A．Y=Y+T

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

C．LOGICAL A/.T./B/.TRUE./，C/F/

D．DATA B (2)/3.1，3.2，3.3/

7-60 执行语句WRITE (*，' (1X，2I4)' )(J，J=1，6)后，其生成的记录数是( )。

A．6

B．3

C．24

D．8

7-61 有程序段

READ *，X，Y

Z=10

IF (X.GT.0)THEN

Z=X+Y

ELSE IF(X.LT.0)THEN

Z=X-Y

ELSE

Z=X*Y

ENDIF

输入数据0，100，程序执行后，Z值为( )。

A．100.0

B．-100.0

C．0.0

D．10.0

7-62 有程序

OPEN (1，FILE=' DAT1' ，STATUS=' OLD')

READ (1，*)A，B，C

READ (1，*)X，Y

BACKSPACE 1

DO 10 I=1，9

READ(1，*，END=20)X

Y=Y+X

1

注册公用设备工程师(给水排水)执业资格考试基础模拟试题

水盟共享中心：

IF(Y.GE.19)GOTO 20

10 CONTINUE

20 PRINT*，X

END

数据文件dat1经编辑其内容为

1，2，3

4，5，6

7，8，9

程序执行后，输出结果为( )。

A．7.0

B．5.0

C．6.0

D．8.0

7-63 执行语句WRITE (*，'(1X，3I4)') (J，J=1，10)后，其生成的记录数是( )。

A．6

B．4

C．24

D．8

7-64 语句序列

DO 100 I=1，5，2

DO 100 J=2，6，2

100 K=I+J

WRITE (*，*)K

执行结果是( )。

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

2

注册公用设备工程师(给水排水)执业资格考试基础模拟试题

水盟共享中心：

END

若输入4.0，则结果为( )。

A．0.0

B．1/5

C．1/6

D．1/4

7-66 程序

PARAMETER (N=3)

INTEGER A(N，N)

READ *，A

DO 10 J=1，N

LS=0

DO 20 I=1，N

20 LS=LS+A(I，J)

LS=LS/N

DO 30 I=1，N

30 A(I，J)=A (I，J)-LS

10 CONTINUE

PRINT *，A

END

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

程序执行后，A(3，2)为( )。

A．-2

B．0

C．2

D．12

7-67 程序

EXTERNAL LENGTH

CHA