fortran试题A.docVIP

《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．写出 的fortran表达式 9．写出COS（(A+1)*（A+1)）/(N*N+1)数学表达式 10．写出 的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 (X0) 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=。其中， ，。 标准答案 一、关键字解释及表达式互换（共10题，每题2分，共20 分） 1. 读入数据X,Y。 2.实型变量说明语句，它的取值范围由其后跟随的种类参数（可略）说明。 3．定义数据输出形式。 4．复数型变量说明语句。 5．逻辑型变量说明语句。 6． 定义整型（4）的二维数组，数组名为A。 7．条件选择说明语句，选择变量为CASE(R3) 8． 9． 10．（x/y）**(n-1) 二、下面分别是程序中的一段代码，请指出其错误？ （共2题，1题12分，2题8分，共20分） 1. 不允许从循环体外转入循环体内（6分），循环步进值（增量）不能为零。（6分） 2. 赋值语句中，值与变量类型不匹配 （8分） . 三、请写出下面程序的运行结果 （共4题，每题10分，共40分） (结果写错，如果分析程序思路对，酌情给分) 1．求 函数式解的程序。 2. 15 22 3. i= 1 6 i= 2 13 i= 3 32