《2014春f90笔试卷》由会员分享，可在线阅读，更多相关《2014春f90笔试卷（8页珍藏版）》请在金锄头文库上搜索。
1、第二部分 FORTRAN90程序设计一、选择题（用答题卡答题，答案依次填在2130答题号内）21. 以下几组FORTRAN90关键字中，全部用于描述（数据）属性的是 21 . A. DIMENSION、ALLOCATE、POINTER B. INTENT、DEALLOCATE、TARGETC. PARAMETER、USE、MODULE D. ALLOCATABLE、EXTERNAL、INTENT22. 以下描述各种功能的程序块中，不属于FORTRAN90独立程序单位的是 22 .A. PROGRAM main END PROGRAM mainB. INTERFACE OPERATER() EN
2、D INTERFACE C. SUBROUTINE sub() END SUBROUTINE subD. MODULE abc END MODULE abc23. 某程序单位的开头有如下四条说明语句，编译时错误将出现在语句 23 . IMPLICIT NONE PARAMETER (r=12.2) REAL,PARAMETER: pi=3.1415926 REAL(4),PARAMETER: s=pi*r*rA. B. 和 C. D. 24. 自定义逻辑运算符.XOR.(异或)：仅当a、b之一是真时a.XOR.b为真.以下程序段输出结果为 24 .INTEGER: i=1,j=2,k=3,m=
3、4PRINT*,i+jk .XOR. k+j=m A. TRUE B. FALSE C. T D. F25 欲定义符号名a为二维、实型、动态数组，以下说明语句中正确的是 25 . A. REAL(4),DIMENSION(:,:),ALLOCATABLE:aB. REAL(4),DIMENSION(:,:),ALLOCATE:a C. REAL(4),DIMENSION(:),ALLOCATABLE:aD. REAL(4),DIMENSION(:),ALLOCATED:a26. 自定义（派生）类型staff如下： TYPE staff CHARACTER (LEN = 20):first_na
4、me,surname INTEGER:age,working_years END TYPE staff以下能将变量staff_person说明为staff类型的说明语句是 26 .A. staff:staff_person B. TYPE(staff):staff_personC. TYPE staff:staff_person D. staff TYPE:staff_person27.若过程说明中有：SUBROUTINE sub(a,result) REAL:a(2,2,2),result主调程序单位中有语句：REAL:x(7),result CALL sub(x,result)则在过程调用
5、时实元数组的元素x(7)对应于哑元数组a的元素 27 .A. a (1,1,1) B. a (2,2,1) C. a (2,1,2) D. a (1,2,2)28. 要认定数组a和b形状相同，必须符合条件： 28 .A.维数、各维的长度相同、维界不必相同 B. 维数、各维的长度相同、维界也必须相同C.维数、总长度相同、各维维界不必相同 D. 维数、总长度相同、各维长度不必相同 29. 关于过程和模块，以下说法中错误的是 29 .A. 过程是可执行的独立程序单位，模块是不可执行的独立程序单位B. 外部过程是可执行的独立程序单位，模块是不可执行的独立程序单位C. 模块内可定义内部过程，外部过程内也
6、可定义内部过程，D. 模块内的变元可供使用它的程序单位共享，外部过程内变元（局部于过程）不能共享30. 以下带有控制信息表的读写语句中，错误的是30 . A. READ(FMT=*,UNIT=2,IOSTAT=ios)a,b,c,i,j,kB. READ(UNIT=2,FMT=(3A6,3I4),REC=number)a,b,c,i,j,k C. WRITE(UNIT=*,FMT=(3A6,3I4),REC=number)a,b,c,i,j,kD. WRITE(IOSTAT=ios,UNIT=3,REC=number)a,b,c,i,j,k二、填空题（请将答案填写在答题纸的相应答题号内，每个答
7、案只占一行）1.以下程序执行后，输出的第二行是 (1) , 第三行是 (2) , 第四行是 (3) .PROGRAM half_fibo_matrixINTEGER,DIMENSION(1:4,1:4):fiboINTEGER:i,j,k,summafibo=0DO i=1,4 DO j=1,4 IF(j=i) fibo(i,j)=1 IF(j=i-1) fibo(i,j)=2 ENDDOENDDODO i=3,4 DO j=1,i-2 summa=0 DO k=1,i-1 summa=summa+fibo(k,j) IF(i=k+1) summa=summa+fibo(k,j) ENDDO
8、fibo(i,j)=summa ENDDOENDDOPRINT (1X,4I3),(fibo(i,j),j=1,4),i=1,4)END PROGRAM half_fibo_matrix2 . 以下程序执行后，输出的第一行是 (4) ，第二行是 (5) . PROGRAM recursive IMPLICIT NONE PRINT(I4),f(3),f(5) CONTAINS RECURSIVE FUNCTION f(n) RESULT(m) INTEGER,INTENT(in):n INTEGER:m IF(n=0 .OR. n=1) THEN m=2 ELSE m=f(n-1)+2*f(n
9、-2)-1 ENDIF END FUNCTION f END PROGRAM recursive3. 以下程序执行后，输出的第一行是 （6） ，第二行是 （7） . PROGRAM main IMPLICIT NONE INTEGER:ar1(2,2),ar2(4),ar3(2,4),i,j ar1=RESHAPE(/1,2,3,4/),(/2,2/) ar2=RESHAPE(ar1,(/4/) ar3=RESHAPE(/ar2,(/5,6,7,8/)/),(/2,4/) PRINT (2X,4I3),(ar3(i,j),j=1,4),i=1,2) END PROGRAM main4. 以下程
10、序执行后，输出的第一行是 (8) ，第二行是 (9) . PROGRAM procedure IMPLICIT NONE REAL:c,s,t,x,pi=3.1416 INTEGER:func s=0.5; t=2.5; x=2.7 func=INT(x) CALL sub(t,s*SIN(pi/6),c,func) PRINT (F5.2),c CALL sub(s*t,x,c,INT(x) PRINT (F5.2),c CONTAINS SUBROUTINE sub(a, b, c, func) INTEGER:func REAL:a,b,c c=a*func+b*func END SUB
11、ROUTINE sub END PROGRAM procedure5. 以下程序执行后，输出的第一行是 (10) ，第二行是 (11) . PROGRAM main INTERFACE OPERATOR (.c.) FUNCTION cent(x) REAL,INTENT(in):x REAL:cent END FUNCTION cent END INTERFACE REAL:a,b CHARACTER(len=50):fmt fmt=( Convert ,f7.4, to percent:,f8.2,%) a = 0.5678; b=12.321 WRITE (*,fmt) a, .C.a
12、WRITE (*,fmt) b, .C.b END PROGRAM main! FUNCTION cent(x) RESULT(cent_value) IMPLICIT NONE REAL,INTENT(in):x REAL:cent_value cent_value=x*100.0 END FUNCTION cent6. 以下程序执行后，输出的第一行是 （12） ，第二行是 （13） . PROGRAM dys TYPE student CHARACTER(len=8):name INTEGER:age END TYPE student INTEGER:i TYPE(student),DIMENSION(3):s s(1)=student(Mary,19) s(2).name =Jhon s(2).age=20 s(3).name=Jack s(
