fortran试题A
- 格式：doc
- 大小：35.00 KB
- 文档页数：3
《Fortran 语言程序设计》考试试题
一、关键字解释及表达式互换（共10题，每题2分，共20分）
1. READ*, X,Y
2. REAL
3．12 FORMAT(2X,I5)
4．COMPLEX
5．LOGICAL
6．INTEGER,DIMENSION(4,5)::A
7．SELECT CASE(R3)
8．写出 xeycos21的fortran表达式
9．写出COS（(A+1)*（A+1)）/(N*N+1)数学表达式
10．写出 1nyx的fortran表达式
二、下面分别是程序中的一段代码，请指出其错误？（共2题，（共2题，1题12分，2题8分，共20分）
1. ……………………
E=(E*T+23)
IF(E>=500) GOTO 5
DO N=1,1O，0
5 T=SS*3.45
PRINT*,R,T
END DO
………………
2. PROGRAM ex
IMPLICI NONE
INTEGER :: n
CHARACTER(LEN=3) :: a,b,c
READ*, n
a=n
b=’nkd_lixy’
c=sqrt(a**2+b**2)
print*,c
………………
三、请写出下面程序的运行结果（共4题，每题10分，共40分） 学生班级________________学生学号：□□□□□□□□□□□□学生姓名：________________
………………装订线………装订线………装订线…………试卷须与答题纸一并交监考教师…………装订线………装订线………装订线……………… 1.写出下列程序的作用是解决什么问题的？
PROGRAM GH1
REAL X,Y
READ*,X
IF (X<=0) Y=LOG(SQRT(X*X+1))
IF (X>0) Y=SIN(X**3)+ABS(X)
PRINT*,”Y=”,Y
END
2．写出下列程序的运行结果，程序运行时输入 5，6，7，8 四个数。
PROGRAM GH2
IMPLICIT NONE
INTEGER::M,N
READ *, M,N,N,M ! 说明：程序运行时输入5，6，7，8 四个数
M=M+N
N=M+N
PRINT *,M,N
END
3.写出下列程序的结果，或分析下列程序结果。
PROGRAM GH3
IMPLICIT NONE
INTEGER:: i,k
k=3
DO i=1,k
PRINT*,'i=',i,fact(i)
END DO
CONTAINS
integer function fact(n)
integer ::n,t,j
t=5
j=3
t=n**j+t
fact=t
END function fact
END
4．写出下列程序实现的功能。
PROGRAM Example
IMPLICIT NONE
INTEGER:: i,k
DO i=200,600
If(mod(i,7)==0) then
PRINT*,'i=',i End if
END DO
END
四、根据题目要求画出程序一般流程图和盒图（即N-S图）。（共2图，每图10分，共20分）
题目：求u=yx。其中，babababax ，babayb)b/(ab)-a/(a。
