计算机程序设计语言计算机程序设计语言
注册公用设备工程师(给水排水)执业资格考试基础模拟试题
水盟共享中心:
计算机应用基础〉
计算机程序设计语言
试题、答案与解析
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