试卷详情
-
计算机程序设计语言(FORTRAN语言)
-
[单项选择]下列叙述中正确的是( )。
A. FORTRAN程序块中,无名公用语句只能有一个
B. FORTRAN子程序中,至少应有一个RETURN语句
C. FORTRAN程序块中,最后一行必须是END语句
D. FORTRAN程序块中,必须有变量说明语句
-
[单项选择]阅读下列FORTRAN程序:
INTEGER M(3,3)
DATA M/1,2,3,4,5,6,7,8,9/
DO 10 1=1,3
WRITE(*,100) (M(I,J),J=1,I)
10 CONTINUE
10 FORMAT (1X,312)
END
上述程序执行后,输出结果是( )。
A. 1 4 7
B. 1 2 3
C. 1
D. 1
-
[单项选择]设有格式输入语句如下:
READ(*,*,10) X
10 FORMAT(1X,F5.2)
能使变量X的值为2.63的键盘输入为( )。
A. 22.6300
B. 002630
C. 2.6300
D. 263000
-
[单项选择]阅读下列FORTRAN程序:
INTEGER A(4,5)
DATA A/5*1,5*2,5*3,5*4/
M=0
DO 10 K=1,4
10 M=M+A(K,K+1)
WRITE(*,*) M
END
执行上述程序后,输出的M值为( )。
A. 8
B. 9
C. 10
D. 11
-
[单项选择]阅读下列FORTRAN程序:
LOGICAL P,Q
READ(*,100)P,Q
100 FORMAT(2L4)
F(P) THEN
Y=1.0
ELSE IF(Q) THEN
Y=2.0
ELSE IF(.NOT.P.OR.Q)THEN
Y=3.0
ELSE
Y=0.0
VENDIF
WRITE(*,*) Y
END
在执行上述程序时,由键盘输入FABDTXYZ,最后输出的Y值为( )。
A. 0.0
B. 1.0
C. 2.0
D. 3.0
-
[单项选择]下列程序执行后的输出结果为( )。
CHARACTER *6 S
S='ABCDEF
CALL SS(S)
END
SUBROUTINE SS(S1)
CHARACTER S1*3
WRITE(*,*) S1
END
A. ABC
B. BC
C. CDE
D. DEF
-
[单项选择]阅读下列FORTRAN程序:
M=3
DO K=1,M
M=5
WRITE(*,*) K,M
ENDDO
END
上述程序的运行结果是( )。
A. 1 5
B. 1 5
C. 编译出错,不能运行
D. 1 3
-
[单项选择]编译程序能将高级语言编写的源程序转换成( )。
A. 解释程序
B. 汇编程序
C. 映象程序
D. 目标程序
-
[单项选择]下列关于函数子程序虚实参数的错误说法是( )。
A. 可以没有形参数
B. 虚实结合的数组长度可以不同
C. 实参表与虚参表类型可以不同
D. 函数名可以作为虚参
-
[单项选择]阅读下列FORTRAN程序:
DIMENSION A(3,4)
DATA A/3*+4.0,3*-3.0,3*-2.0,3*-1.0/
S=0.0
DO 20 K=1,3
D=A(K,1)
DO 10J=2,4
IF(A(K,J)<D) D=A(K,J)
10 CONTINUE
S=S+D
20 CONTINUE
WRITE(*,*) S
END
A. -15.0
B. -12.0
C. 9.0
D. 6.0
-
[单项选择]运行下面的程序时得不到所需的结果,其主要原因是( )。
INTEGER X(11)
DATA X/9,8,7,6,5,4,3,2,1,0,-1/
DO 10 1=1,X(1) ,-1
WRITE(*,*)1.0/SQRT(25.0-REAL(X(1) )* * 2)
10 CONTINUE
END
A. 没有给X(11) 赋初值
B. 发生除以零的情况
C. 发生负数开平方的情况
D. 循环参数设置错误
-
[单项选择]阅读下列FORTRAN程序:
DO 20 K=2,5,2
S=1.0
DO 10 J=K,5
10 S=S+J
20 CONTINUE*
WRITE(*,*) S
END
执行上述程序后,输出的S值为( )。
A. 9.0
B. 1.0
C. 24.0
D. 10.0
-
[单项选择]语句函数定义语句在程序内合法的位置是( )。
A. 在程序块开头语句之后,END语句之前
B. 在程序块开头语句之后,可执行语句之前
C. 在说明语句之后,END语句之前
D. 在说明语句之后,可执行语句之前
-
[单项选择]阅读下列FORTRAN程序:
X=1.0
Y=2.0
CALL SUB(X,Y,Z,3.0)
WRITE(*,100) X,Y,Z
100 FORMAT(1X,13.1)
END
SUBROUTINE SUB(A,B,X,Z)
A=A+1
B=B+2
Y=1.0
X=Y+Z
END
执行上述程序后,输出的结果为( )。
A. 2.0
B. 4.0
C. 4.0
D. 2.0
-
[单项选择]下列数据中,不符合FORTRAN常量表示法的是( )。
-
[单项选择]当输入1,2,3,4下列程序执行后的输出结果为( )。
DIMENSION A(2,2)
READ(*,*) A
SUM=0
DO 10 I=1,2
DO 20 J=1,2
10 A(I,J)=A(I,J)+I+J
WRITE(*,*) A(1,2)
END
A. 6
B. 5
C. 7
D. 4
-
[单项选择]当输入1,2,3,4,5,6下列程序执行后的输出结果为
DIMENSION A(2,3)
READ(*,*) A
CALL SS1(A)
END
SUBROUTINE SS1(B)
DIMENSION B(3,2)
WRITE(*,*) B(3,1)
END
A. 2
B. 3
C. 4
D. 5
-
[单项选择]下列语句函数的定义中,正确的是( )。
A. FUNCTION(I,J,K)=I*J+J*J+K*K
B. F(X,Y,Q(I))=SIN(X)+COS(Y)+Q(I)
C. S(X,Y,Z)=(X+Y+Z)* * 2+S(X*X,Y,Z)
D. F(X,Y)=(X+Y)/X/Y+P
-
[单项选择]下列程序执行后的输出结果为( )。
K=0
DO 10 1=1,6,2
DO 10 J=I,6,3
IF(K.LT.I*J) K=I*J
10 CONTINUE
WRITE(*,*) K
END
A. 18
B. 30
C. 25
D. 36
-
[单项选择]在数据块子程序中( )。
A. 只能给无名公用区中的成员赋初值
B. 只能给有名公用区中的成员赋初值
C. 不分有名或无名,凡是公用区成员皆可赋初值
D. 只能给公用区中的数组赋初值
-
[单项选择]下列程序的执行结果K是( )。
K=0
DO 10 I=1,2
DO 10 J=I,2
10 K=K+I/J
WRITE(*,*)K
END
A. 0
B. 2
C. 2.5
D. 1
-
[单项选择]当输入150H,f1,下列程序执行后的输出结果为( )。
READ(*,*) X
Y=0.0
IF(X.GT.O.C) THEN
Y=1.0
ELSE IF(X.GE.150) THEN
Y=2.0
ELSE
Y=3.0
END IF
WRITE(*,*)Y
END
A. 0.0
B. 1.0
C. 2.0
D. 3.0
-
[单项选择]当输入150时,下列程序执行后的输出结果为( )。
READ(*,*) X
Y=0.0
IF(X.GT.O.0) THEN
Y=1.0
ELSE IF(X.GE.150) THEN
Y=2.0
ELSE
Y=3.0
END IF
WRITE(*,*) Y
END
A. 0.0
B. 1.0
C. 2.0
D. 3.0
-
[单项选择]阅读下列FORTRAN程序:
PARAMETER(L=3)
INTEGER N(L)
DATA N/3*0/
DO 20 I=1,L
DO 20 J=1,L
N(J)=N(1) +1
20 CONTINUE
WRITE(*,*) N(L)
END
上述程序运行后,输出结果是( )。
A. 3
B. 5
C. 7
D. 9
-
[单项选择]阅读下列FORTRAN程序:
S(X)=2*X*X-Y+1.0
DATA A,B,Y/3*2.0/
P=S(A)*S(B-A)4-S(Y)-S(B)
WRITE(*,*) P
END
上述程序运行后,输出的P值为( )。
A. 9.0
B. -9.0
C. 7.0
D. -7.0
-
[单项选择]阅读下列FORTRAN程序:
CHARACTER A*5
-
[单项选择]下列程序执行后的输出结果为( )。
F1(X)=2.0/(1.0+X)
F2(Y)=F1(Y)*Y+1.0
A=F1(1.0)+F2(1.0)
WRITE(*,10) A
10 FORMAT(IX,E8.2)
END
A. 3.00
B. 3.0
C. 3.00E+00
D. 0.30E+01
-
[单项选择]对任意输入的X,下列程序执行后K的值为( )。
READ(*,*) X
K=SIN(X)
WRITE(*,*) K
END
A. 在区间[-1,1]中的一个值
B. 一定等于0
C. 在区间(-1,1) 中的一个值
D. K=0或K=1或K=-1
-
[单项选择]下列关于子例行子程序虚实参数的正确说法是( )。
A. 应至少有一个形参数
B. 数组元素可以作为实参
C. 数组元素可以作为虚参
D. 常数可以作为虚参
-
[单项选择]阅读下列FORTRAN程序:
S=1.0
DO 100 K=3,1,-1
DO 100 N=-1,-3
100 S=2*S
WRITE(*,*) S
END
运行上述程序后,输出的S值为( )。
A. 1.0
B. 8.0
C. 512.0
D. 4.0
-
[单项选择]阅读下列FORTRAN程序:
REAL A(5)
COMMON /CC/X
DATA A/1,2,3,4,5/
X=0
Y=FUN(A,5) +FUN(A,5)
WRITE(*,*) Y
END
FUNCTION FUN(A,N)
REAL A(N)
COMMON /CC/X
X=X+1
F=1
DO 10 I=N,1
F=F+A(I)
10 CONTINUE
FUN=F+X
END
上述程序执行后,输出结果是( )。
A. 4.0
B. 5.0
C. 16.0
D. 33.0
-
[单项选择]一个完整的FORTRAN源程序( )。
A. 至少包括一个主程序
B. 至少包括一个主程序和一个子程序
C. 由一个主程序与一个以上的子程序组成
D. 由一个主程序与一个子程序组成
-
[单项选择]阅读下列FORTRAN程序:
INTEGER S(2,4) ,A(2)
DATA S/4*1,4*2/
CALL SUB(S,2,4,A)
M=A(1) -A(2)
WRITE(*,*) M
END
SUBROUTINE SUB(S,N,K,A)
INTEGER S(N,K),A(N)
DO 20 I=1,N
A(I)=0
DO 10 J=1,K
10 A(I)=A(I)+S(I,J)
A(I)=A(I)/K
20 CONTINUE
END
执行上述程序后,输出的M值为( )。
A. 0
B. 1
C. 2
D. 3
-
[单项选择]定义一个长度为10的一维整型数组M,并且要求分别给数组元素赋值为M
(K)=K+1,但M(10)=1。下列各程序段中错误的是( )。
A. DIMENSION M(10)
B. DIMENSION M(10)
C. DIMENSION M(10)
D. DIMENSION M(10)
-
[单项选择]阅读下列FORTRAN程序:
DO I=1,5
SUM=SUM+I
ENDDO
WRITE(*,*) SUM
END
上述程序运行后,输出结果是( )。
A. 15
B. 15.0
C. 不确定
D. 0
-
[单项选择]有一段说明语句如下:
DIMENSION A(5) ,B(5)
EQUIVALENCE(A(3) ,B(4) )
说明语句EQUIVALENCE(A(3) ,B(4) )在程序中的作用是( )
A. 用于在数组A和B之间传递数据
B. 说明数组A和B是同一个数组
C. 说明数组A和B共用相同的存储单元
D. 说明数组A和B的部分元素共用相同的存储单元