武汉大学2013年fortran试卷A.doc

2013年物理科学与技术学院Fortran程序设计期末试卷（A卷）一、选择题（每题2分，共40分）1、若FORTRAN 中一个INTEGER 型数据占用2 个字节,那么该类型的数据值范围是_。A)-21474846482147483647 B)-3276832767C)04294967295 D)0655352、下列标识符中不能作为FORTRAN 的合法变量名的是_。A) A_1 B) A1 C) A1A D) A+13、设A=3.0，C=6.0，L=.FALSE.，则下列FORTRAN 表达式中值为.FALSE.的是_。A) A.NE.C.AND.NOT.L B) A.NE.C.NEQV.NOT.LC) A.NE.C.EQV.NOT.L D) A.NE.C.OR.NOT.L4、不等式0Y1 的FORTRAN 表达式是_。A) 0.0.LE.Y.LE.1.0 B) 0.0.LE.Y.OR.Y.LE.1.0C) 0.0.LE.Y.AND.Y.LE.1.0 D) 0.0.LE.Y.NOT.Y.GT.1.05、整型变量M 能被整型变量K 整除的FORTRAN 表达式是_。A）MOD(M，K)0 B）MM/K*K .EQ. 0C）MOD(K，M)0 D）MOD(M，K)0 .EQ. .TRUE.6、设有下列数组说明语句：REAL : A(1:10，1:10)该数组说明语句定义了数组A中的元素个数为_。A）100 B）110 C）120 D）1217、对于下列给定的FORTRAN说明和赋初值语句：INTEGER :A(2，2)=(/3，4，5，6/)数组元数A(2，1)的初值为_。A) 3 B) 5 C) 4 D) 68、FORTRAN 表达式3/4+0.5的值是_。A) 0.5 B) 1 C) 1.0 D) 09、下面循环语句执行后，SUM 的值是_。DO I=1，5SUM=0DO J=I，4，-1SUM=SUM+I+JENDDOENDDOA) 0.0 B) 19.0 C) 27.0 D) 76.010、阅读下列FORTRAN 程序DO i=1, 5SUM=SUM+iENDDOWRITE(*,*)SUMEND上述程序运行后，输出结果是_。A) 15 B) 15.0 C) 不确定D) 011、的FORTRAN 表达式是_。A) 2*3*3 B)(2*3)*3C)(2*2*2)*3 D) 2*2*2*312、阅读下列FORTRAN 程序INTEGER,PARAMETER : L=3INTEGER : N(L)DATA N/3*0/DO I=1, LDO J= 1, LN(J)=N(I)+1ENDDOENDDOWRITE(*,*) N(L)END上述程序运行后，输出结果是_。A) 3 B) 5 C) 7 D) 913、阅读下列FORTRAN 程序(其中表示空格):CHARACTER*3 A(3)A(1)=AGOODIDEA.WRITE(*,*)A(1)END执行该程序后,输出的结果是_。A) AGOODIDEA. B) AGOODIDEA.C) AG D) AG14、 阅读下列FORTRAN 程序READ(*,100) NO,MIF(NO.GE.125) THENM=M-10ELSEM=M+10END IFWRITE(*,*)M100 FORMAT(I2,I1)END在执行上述程序时，从键盘上输入256,2后，输出结果是_。A) -4 B) -8 C) 16 D) 1215、要选拔身高T1.7 米且体重W0)arr2 = 2*arr2END WHEREWRITE (*,*) SUM(arr2,MASK=arr20.)END2、以下程序中，第一个WRITE的输出结果是 第二个WRITE的输出结果是 PROGRAM examIMPLICIT NONE TYPE : ptrINTEGER, POINTER : p(:)END TYPETYPE (ptr) : p1INTEGER,TARGET : a(4)=(/1,2,3,4/)INTEGER,TARGET : b(4)=(/5,6,7,8/)INTEGER,TARGET : c(4)=(/9,10,11,12/)p1(1)%p=ap1(2)%p=bp1(3)%p=cWRITE(*,*) p1(3)%pWRITE(*,*) p1(2)%p(3)END PROGRAM exam3、以下程序中，第一个WRITE的输出结果是 第二个WRITE的输出结果是 其中，DOT_PRODUCT()和MATMUL()为内置函数，前者是计算两个向量的点积，后者计算两个向量的叉积PROGRAM MAINIMPLICIT NONEINTEGER,ALLOCATABLE:A(:),B(:)INTEGER,ALLOCATABLE:X(:,:),Y(:,:),Z(:,:)INTEGER:C,I,JALLOCATE(A(1:10),B(1:10)A=(/1,2,3,4,5,6,7,8,9,10/)B=(/10,9,8,7,6,5,4,3,2,1/)C=DOT_PRODUCT(A,B)WRITE(*,FMT=(I5)CALLOCATE(X(1:2,1:2),Y(1:2,1:2),Z(1:2,1:2)X=RESHAPE(/1,2,3,4/),(/2,2/)Y=RESHAPE(/4,3,2,1/),(/2,2/)Z=MATMUL(X,Y)WRITE(*,FMT=(4I4) (Z(I,J),J=1,2),I=1,2)ENDPROGRAM三、程序填空（每空3分，共30分）：1、已知牛顿迭代公式为。以下程序段用牛顿迭代法求方程在附近一个根的函数。其中a、b、c、d 及的值均在主程序中，输入、输出也在主程序中进行。REAL FUNCTION NEWTON(A,B,C,D,X)IMPLICIT NONEREAL,INTENT(IN):A,B,C,DREAL:X,F,F1,X1INTEGER:N=0DOX1=XF=A*X*3+B*X*X+C*X+DF1= (1) X=X1-F/F1N=N+1IF(ABS(X-X1)=100)EXITEND DOIF(N100)THENWRITE (*,*) 发散NEWTON=9999ELSENEWTON=X(3)END FUNCTIONPROGRAM MAINIMPLICIT NONEREAL:A,B,C,D,X0,X(4) WRITE(*,*) 请输入各系数A,B,C,DREAD(*,*) A,B,C,DWRITE(*,*) 请输入迭代初值READ(*,*) X0(5) WRITE (*,*) 方程的一个根是,XEND PROGRAM MAIN2、已知数组A 是4 行7 列的数组以下程序代码是将该数组的每一行用选择排序法按从大到小的排列。SUBROUTINE SORT(a,n) !对n个元素的一维数组a进行从大到小的选择排序IMPLICIT NONEINTEGER:nINTEGER : a(n)（1） DO（2） k=iDO j=i+1,nIF(a(k)a(j) （3） END DOIF(k/=i)THENtemp=a(k)a(k)=a(i)（4） END IFEND DOEND SUBROUTINE SORTPROGRAM MAINIMPLICIT NONEINTEGER:a(4,7)INTEGER:i,j,kREAD(*,*) (A(i,j),j=1,7),i=1,4)DO i=1,4WRITE(*,(7I5)(