FORTRAN90考试笔试习题2

1、FORTRAN90语言部分本题得分一、 语言基础单项选择(每题2分，共20分)(一)下面的函数计算中，错误的是 1 。1.AA) SQRT(9) B) REAL(9) C) ABS(9) D) MOD(9,2)(二)运行下面的程序时(P,W,X,Y都是实型变量)，READ(*,10) P,W,X,Y2.BWRITE(*,20)X,Y10 FORMAT(1X,F3.1,3(1X,F4.2)20 FORMAT(1X,F4.1,3(1X,F5.2)END如果从键盘输入数据：4567890，则输出结果为 2 。A) 1.23 56.78 B) 12.3 67.89 C) 12.3 45.67 D) 3

2、4.5 67.89(三)数学式的FORTRAN表达式为 3 。A) SIN(X*2)+SQRT(B*B-4*A*C)/2/A3.BB) SIN(X)*2+ SQRT(B*B-4*A*C)/2/AC) (SIN(X*2)+SQRT(B*B-4*A*C)/(2*A)D) (SIN(X)*2+SQRT(B*B-4*A*C)/(2*A)(四)表示条件“A加B大于C并且C大于等于D”的FORTRAN90逻辑表达式是 4 。A) A+BC =DB) (A+B)C =D4.CC) A+BC.AND. C=DD) (A+B)C.OR. C=D (五)通过下面的赋值，字符变量LINE的值是 5 。表示空格。5.

3、ACHARACTER(LEN=4):LINELINE=10A) 10 B) 1000 C) 10 D) 10 (六)下面对二维数组的说明语句中，正确的语句是 6 。A) 显式形状数组的说明：REAL,DIMENSION(10,:) :AB) 动态数组的说明方式：REAL,DIMENSION(:,:), ALLOCATE :A 6.BC) 假定形状数组的说明：REAL,DIMENSION(10,:) :AD) 指针数组的说明：POINTER,DIMENSION(1:3,2:4) :A(七)下面的模块中，错误的语句是 7 。A) MODULE SWAP_MODB) REAL,DIMENSION(5

4、,5):A,B7.CC) A=125D) END MODULE SWAP_MOD (八)下面的程序段中，错误的语句是 8 。TYPE TEACHER8.CA) CHARACTER(LEN=8):NAMEB) REAL,DIMENSION(2): WAGEC) NAME=ANHUI UNI9.DD) END TYPE TEACHER(九) 下面的程序段中，正确的程序段是 9 。A) REAL,POINTER:PINTEGER,TARGET :XX=10;P=XB) INTEGER,POINTER:PINTEGER,TARGET : XX=10;X=PC) INTEGER,POINTER:PREA

5、L,TARGET : XX=10;P=X D) REAL,POINTER:PREAL,TARGET : XX=10;P=X(十)下面给出了一个文件打开语句：OPEN(10，FILE=FILENAME)10.D这个语句打开的文件是 10 。A) 无格式直接文件 B) 有格式直接文件C) 无格式顺序文件 D) 有格式顺序文件123456得分二、 阅读下列程序，写出程序的运行结果(每题4分， 共24分)程序1： PROGRAM EXAM1IMPLICIT NONEINTEGER,DIMENSION(0:10):ASD=(/1,2,3,4,5,6,7,8,9,10,11/)INTEGER : I,N=

6、0,S=0EX1: DO I=0,100IF(ASD(I)10)EXIT EX1IF(MOD(ASD(I),2)/=0)THEN程序1运行结果：5 25N=N+1S=S+ASD(I)ENDIFENDDO EX1PRINT*,N,SEND程序2： PROGRAM EXAM2IMPLICIT NONE程序2运行结果：#CHARACTER(LEN=20):LINE= INTEGER : I, N=5,M=10DO I=1,NLINE(M+I: M+I)=#PRINT*,LINEENDDOEND程序3： PROGRAM EXAM3 IMPLICIT NONEINTEGER: I,MAXI,NUM=5

7、INTEGER,DIMENSION(:),ALLOCATABLE: ARRAY_LIST ALLOCATE(ARRAY_LIST(NUM)程序3运行结果：4 50 ARRAY_LIST=(/20,10,30,50,40/)MAXI=1DO I=2,NUMIF(ARRAY_LIST(I)ARRAY_LIST(MAXI)MAXI=IENDDOWRITE(*,*)MAXI,ARRAY_LIST(MAXI)DEALLOCATE(ARRAY_LIST)END程序4： PROGRAM EXAM4 程序4运行结果：K= 1K= 2K= 5 IMPLICIT NONEINTEGER : M=10,KK=1DO

8、 WHILE(K=M/2)IF(MOD(M,K)=0) PRINT*,K=,KK=K+1ENDDOEND程序5运行结果：LI DAIHUACHINESE程序5： PROGRAM EXAM5IMPLICIT NONETYPE STUDENT_TYPEINTEGER:NUMBERCHARACTER(LEN=10):NAMECHARACTER(LEN=10):NATIONEND TYPE STUDENT_TYPETYPE(STUDENT_TYPE): STUSTU=STUDENT_TYPE(107,LI DAIHUA,CHINESE)PRINT*,STU%NAMEPRINT*,STU%NATIONE

9、ND程序6运行结果：27程序6： PROGRAM EXAM6IMPLICIT NONEINTERFACERECURSIVE FUNCTION REC_FUNC(K)RESULT(FUNC_RES)INTEGER,INTENT(IN): KINTEGER: FUNC_RESEND FUNCTION REC_FUNCENDINTERFACEPRINT*,REC_FUNC(4)ENDRECURSIVE FUNCTION REC_FUNC(K)RESULT(FUNC_RES)INTEGER,INTENT(IN): KINTEGER: FUNC_RESIF(K=2)THENFUNC_RES=3ELSEF

10、UNC_RES=REC_FUNC(K-1)*REC_FUNC(K-2) END IFEND FUNCTION REC_FUNC1234得分三、 阅读下列程序，在空白处填写适当的内容(每空2分，共24分)(一) 对键盘输入的两个实型变量X、Y，要求始终X大于等于Y（若Y大于X时，交换X和Y的值）。PROGRAM EXAM7IMPLICIT NONE1.REAL X,Y,TEMP READ*,X,Y2.IF(XY)THENTEMP=XX=Y3.Y=TEMPENDIFPRINT*,X,YEND (二)从键盘输入 L=20个整数，求其中的偶数个数M和奇数个数N并输出M、N。PROGRAM EXAM8I

11、MPLICIT NONEINTEGER,PARAMETER:L=20INTEGER,DIMENSION(L) : AINTEGER :I,M=0,N=0READ*,(A(I),I=1,L)DO I=1,L4.IF(MOD(A(I),2)=0)THENM=M+1ELSE5.N=N+1ENDDO6.PRINT*,M,NEND (三)下面的程序用于计算4!+7!+8!。PROGRAM EXAM9IMPLICIT NONEINTEGER :RESUL7.RESUL=F(4)+F(7)+F(8)PRINT*,RESULCONTAINSFUNCTION F(N)RESULT(F_RES)INTEGER :

12、F_RES,I,N8.F_RES=1DO I=1,N9.F_RES=F_RES*IENDDOEND FUNCTION FEND (四)已知A为34矩阵，要求从键盘按行输入该矩阵，并输出其转置矩阵B(43)。PROGRAM EXAM10IMPLICIT NONEINTERFACESUBROUTINE ZZ(X,Y,K,L)REAL,DIMENSION(:,:): X,YENDENDINTERFACEINTEGER :I,J10.REAL，DIMENSION(3,4): A,B(4,3)11.READ*,(A(I,J),J=1,4),I=1,3)CALL ZZ(A,B,3,4)PRINT 10,(B(I,J),J=1,3),I=1,4)10 FORMAT(1X,3F5.1)ENDSUBROUTINE ZZ(X,Y,K,L)REAL, DIMENSION(:,:): X,YDO I=1,LDO J=1,K12.Y(I,J)=X(J,I)ENDDOENDDOEND123得分四、 程序设计(共22分) (一)输入N个整型数，存入数组A中，要求编写一个程序，将数组A的元素从小到大进行排序，然后按每行5个数据输出(本小题7分)。(二)编程计算求Y=F(-2)+F