10 CONTINUE
B) DO 10 I=1，200，100
M=I
DO 20 N=M，10
<循环体>
20 CONTINUE
10 CONTINUE
C) DO 10 I=1，200，100
DO 20 N=I，10
<循环体>
20 CONTINUE
10 CONTINUE
D) DO 10 I=1，200，100
M=I
DO 20 I=M，10
<循环体>
20 CONTINUE
10 CONTINUE
(36) 对于下列给定的FORTRAN77说明和赋初值语句：
INTEGER A(2，2)
DATA A/3，4，5，6/
数组元数A(2，1)的初值为
A) 3 B) 5 C) 4 D) 6
(37) 下列有关FORTRAN77数组的说法正确的是
A) 数组定义语句只能定义一维或二维数组
B) 数组元素下标不能出现负值
C) 在赋值语句中出现的A(3)肯定是数组元素
D) 程序中使用的数组必须进行说明
(38) 阅读下列FORTRAN77程序：
INTEGER A(3，2)
READ(*，100)A
100 FORMAT(2I3)
WRITE(*，*)A
END
运行后要使A(1，2)的值为2，正确的键盘输入为(其中□为空格)
A) □□1□□2
□□3□□4
□□5□□6
B) □□1□□2□□3
□□4□□5□□6
C) □□1□□3□□5
□□2□□4□□6
D) □□1□□3
□□5□□2
□□4□□6
(39) 阅读下列FORTRAN77程序：
DIMENSION A(3)
DATA A/3.0, 2.0,1.0/
X=F(A)
WRITE(*,100)X
100 FORMAT(1X,F3.1)
END
FUNCTION F(B)
DIMENSION A(3),B(3)
DO 10 I=1,3
10 A(I)=B(I)- I
F=A(1)+A(2)+(3)
X=1.0 -F
END
执行上述程序后，输出的X值为
A) 1.0 B) 0.0 C) 6.0 D) -5.0
(40) 设有FORTRAN77函数子程序如下：
FUNCTION IP(N，A)
IP=0
IF(A.LT.1.0)IP=N
END
下列函数调用中正确的是
A) M=IP(1.0，IP(1，1.0)) B) M=IP(IP(1，1.0)，1.O)
C) M=IP(A，A) D) M=IP(1.0，1.0)
(41) 下列FORTRAN77程序中有错误的是
A) DIMENSION A(10)
CALL SUB(A，3)
WRITE(*，*)(A(I)，I=1，6)
END
SUBROUTINE SUB(A，N)
DIMENSION A(N，N)
S=0.0
DO 10 I=1，N
DO 10 J=1，N
A(I，J)=S+1.0
S=S+1.0
10 CONTINUE
END
B) DIMENSION A(3，3)
CALL SUB(A，3)
WRITE(*，*)A
END
SUBROUTINE SUB(B，N)
DIMENSION B(3，3)
S=0.0
DO 10 I=1，3
DO 10 J=1，3
B(I，J)=S+1.0
S=S+1.0
10 CONTINUE
END
C) DIMENSION A(3，3)
CALL SUB(A，4)
WRITE(*，*)A
END
SUBROUTINE SUB(B，N)
DIMENSION B(N，N)
S=0.0
DO 10 I=1，N
DO 10 J=1，N
B(I，J)=S+1.0
S=S+1.0
10 CONTINUE
END
D) DIMENSION A(10)
CALL SUB(A，3)
WRITE(*,*)(A(I),I=1,6)
END
SUBROUTINE SUB(B,N)
DIMENSION B(N,N)
S=0.0
DO 10 I=1,N
DO 10 J=1,N
B(I,J)=S+1.0
S=S+1.0
10 CONTINUE
END
(42) 下列对公用区的说明语句中错误的是
A) COMMON A(5)， B B) COMMON/AB/A(5)， B
C) COMMON AB/A(5)， B/ D) COMMON//A(5)， B
(43) 下列在主程序与子程序中对公用区的说明不正确的是
主程序 子程序
A) COMMON A(2)，B，C，D COMMON A(3)，B，C，D
B) COMMON A(2)，B COMMON A(3)
COMMON C，D COMMON B，C，D
C) COMMON A(2)，B COMMON A(2)，B
COMMON C，D COMMON/X/C，D
D) COMMON A(2)，B COMMON A(3)
COMMON/X/C，D COMMON/X/B，C，D
(44) 阅读下列FORTRAN77程序：
COMMON A，B，C，D
A=1.0
B=2.0
C=3.0
D=4.0
CALL ABCD(2)
WRITE(*,*)A,C
END
SUBROUTINE ABCD(N)
COMMON B,C,D,A
IF(N.GT.0) THEN
B=A
C=D
ENDIF
END
执行上述程序后,输出的A与C的值分别为
A) 1.0与3.0 B) 1.0与4.0 C) 4.0与3.0 D) 4.0与2.0
(45) 字符运算’AB’//’CD’产生的新字符串值为(其中□表示空格):
A)’ABCD’ B)’AB//CD’ C)’AB□CD’ D)’AB□□CD’
(46) 阅读下列FORTRAN77程序(其中□表示空格):
CHARACTER *3 A(3)
A(1)=’A□GOOD□IDEA.’
WRITE(*,*)A(1)
END
执行该程序后,输出的结果是
A) ’A□GOOD□IDEA.’ B) A□GOOD□IDEA.
C) ’A□G’ D) A□G
(47) 下列表达式中值为.TRUE.的是
A)’ARE’.GT.’IS’ B)’are’.GT.’IS’ |
