大学FORTRAN语言试题

大学FORTRAN语言试题

一、选择题（15×1分=15分）

1．Fortran程序设计语言允许使用的专用字符集是。

A．（），．；［］＋－＊／＝：空格B．（），．αβ＋－＊／＝：空格

C．（），．＋－＊／＄＇＝：空格D．｛｝，．；？＋－＊／＝：空格

２．按隐含规则确定变量的数据类型，Fortran表达式

（A112/BC1+15.123456789.0_8）-（1000.0_4/3.0+ABI*ABJ）

的值的数据类型为。

A．复型B．整型C．实型（种别为8）D．实型（种别为4）

3．执行循环语句DO I=0.5，4.5，1.5，正常退出循环后，循环执行的次数和循环变量I的值分别为。

A．4和4.5 B．5和5 C．4和6 D．5和6

4．语句A（M（I））=MOD（I，7）是。

A．函数定义语句B．赋值语句C．非法语句D．说明语句

5．下列不合法的是：_____

A．AB.EQV.C>D D．A.AND.B.AND.C

6．若数组说明符ARRAY（-5：5，-10：0）的元素个数为。

A．144 B．121 C．110 D．100

7．设循环初值、终值和增量分别为M1，M2和M3，循环次数的计算公式是。A．INT（（M2-M1）/M3）B．INT（（M2-M1）/M3）+1

C．MAX(INT(M2-M1+M3)/M3,0) D．MIN(INT(M2-M1+M3)/M3,0)

8．下列字符表达式中正确的是。

A．’ABCD’+’MN’’D’B．’ABCD’//’MN’’D’

C．CHAR（65）+’N’//’CH’D．’123 45’-’5’

9．语句integer,dimension(1:-1)::a,下列说法中正确的是：_____

A．a数组的元素个数为0 B．a数组的元素个数为3

C．a数组的元素个数为1 D．该说明语句是错误的

10．子程序的虚元可以是：

A．变量名、数组名、过程名B．变量名、数组名、过程名和符号常量名

C．变量名、数组名、数组片段、过程名D．任意符号名

11．c为复型量，下列正确的是：

A．c=(1/2,1/5) B．c=sqrt((0.1,4.5)) C．c=1.0+4i D．c=(x,y)

12．数学式的FORTRAN表达式是（）

A．2/3*SIN（3.14/4）B．2SIN（3.14/4）/3

C．2.0*SIN( /4.0)/3.0 D．2*SIN（3.14/4）/3

13．执行下列赋值语句后，变量X的值为（）

X=4+36**(7/14)

A．10.0 B．5.0 C．10 D．5

14．下列不合法的是：

A．AB.EQV.C>D D．A.AND.B.AND.C

15．执行下列程序时由键盘输入13579.2468，输出结果为：

READ’(2(F4.1,2X))’,A，B

PRINT’(2(F4.1,2X))’,A，B

A．135.7 246.8 B．13.5 24.6 C．**** **** D．*** ****

二、填空题（15×1分=15分）

1．FORTRAN90自由格式的程序续行标记为______字符，一般写在_____位置；自由格式的程序注释标记为____字符。

2．下列FORTRAN常量表示正确的是_______。

①1/2 ②.T. ③’A/2’④（1.2，3.4）⑤0D0 ⑥2E+0.5 ⑦1+2i

3．执行程序段

CHARACTER*4::A

A=’12345’

C=12345

PRINT ‘（A4，F5.1）’，A，C

END

则输出的A值为_____，输出的C的值为_____。

4．下列循环执行结束后，SUM的值为_____，J的值_____，语句DO I=1,5的执行次数为____。

DO I=1,5

SUM=0

DO J=I,4,-1

SUM=SUM+I+J

ENDDO

ENDDO

5．虚元数组与相应的实元数组，元素个数可以不相同的说法是否正确____（是/否）。6．READ（*，*）（C1，C2，K（I），I=1，2）

如输入1，2，3，4，5，6，7则C1的值为____。

7．如有派生类型变量PERSON，则引用其成员NAME的表示方式是____。

8．调用子程序时，实元表与对应的虚元表应做到__________________一致。9．INTEGER A（-1：1，2，0：1）

A=RESHAPE(（/1，2，3，4，5，6，7，8，9，10，11，12/），（/3，2，2/）)

则原来A（-1，2，0）与A（1，1，1）的值为_______。

10．K=0

DO A=0.5,4.5,1.5

DO I=1,A

K=K+1

ENDDO

ENDDO

循环正常结束时K的值为_________。

四、阅读程序，写出程序运行结果（5×4分=20分）

1．INTEGER,DIMENSION (2, 3)::M

INTEGER::IS

M=reshape(( /1, 2, 3, 4, 5, 6 /),(/2,3/))

L=IS ( M (1, 2 ), 3 )

WRITE(*, *) L

END