C++高级程序设计fortran试题B.docVIP

学生班级________________学生学号：

学生班级________________学生学号：□□□□□□□□□□□□学生姓名：________________

………………装订线………装订线………装订线…………试卷须与答题纸一并交监考教师…………装订线………装订线………装订线………………

《Fortran语言程序设计》考试试题

一、关键字解释（共10题，每题2分，共20分）

1.INTEGER

2.REAL

3．DOUBLEPRECISION

4．COMPLEX

5．LOGICAL

6．IMPLICITNONE

7．SELECTCASE(R3)

8．CHARACTER(LEN=13)::AS

9．12FORMAT(T5,I3)

10．WRITE*,RE

二、下面分别是程序中的一段代码，请指出其错误？

（共3题，每题10分，共30分）

1.……

r=sqrt(x**3+t)

if(r=3000)goto10

don=1,1O，0

10t=(ss-n)*3.45

print*,r,t

enddo

………………

PROGRAMhanoi_t

IMPLICINONE

INTEGER::n=0

CHARACTER(LEN=3)::a,b,c

READ*,n

a=n

b=’nkd_lixy’

c=sqrt(a**2+b**2)

print*,c

三、请写出下面程序的运行结果

（共3题，每题10分，共30分）

1.写出下列程序的作用是解决什么问题的？

PROGRAMGH1

REALX,Y

READ*,X

IF(X=0)Y=LOG(SQRT(X*X+1))

IF(X0)Y=SIN(X**3)+ABS(X)

PRINT*,”Y=”,Y

END

2．写出下列程序的运行结果，程序运行时输入7，8，9,10四个数。

PROGRAMGH2

IMPLICITNONE

INTEGER::M,N

READ*,M,N,N,M!说明：程序运行时输入7，8，9,10四个数

M=M+N

N=M+N

PRINT*,M,N

END

3.写出下列程序的结果，或分析下列程序结果。

PROGRAMGH3

IMPLICITNONE

INTEGER::i,k

k=3

DOi=1,k

PRINT*,i=,i,fact(i)

ENDDO

CONTAINS

integerfunctionfact(n)

integer::n,t,j

t=2

j=2

t=n**j+t

fact=t

ENDfunctionfact

END

四、编程题：

（共1题，20分）

题目：编程序输出200～600之间可以被13整除的数。