FORTRAN90考試筆試習(xí)題2

1、FORTRAN90語(yǔ)言部分本題得分一、 語(yǔ)言基礎(chǔ)單項(xiàng)選擇(每題2分，共20分)(一)下面的函數(shù)計(jì)算中，錯(cuò)誤的是 1 。1.AA) SQRT(9) B) REAL(9) C) ABS(9) D) MOD(9,2)(二)運(yùn)行下面的程序時(shí)(P,W,X,Y都是實(shí)型變量)，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如果從鍵盤輸入數(shù)據(jù)：4567890，則輸出結(jié)果為 2 。A) 1.23 56.78 B) 12.3 67.89 C) 12.3 45.67 D) 3

2、4.5 67.89(三)數(shù)學(xué)式的FORTRAN表達(dá)式為 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邏輯表達(dá)式是 4 。A) A+BC =DB) (A+B)C =D4.CC) A+BC.AND. C=DD) (A+B)C.OR. C=D (五)通過(guò)下面的賦值，字符變量LINE的值是 5 。表示空格。5.

3、ACHARACTER(LEN=4):LINELINE=10A) 10 B) 1000 C) 10 D) 10 (六)下面對(duì)二維數(shù)組的說(shuō)明語(yǔ)句中，正確的語(yǔ)句是 6 。A) 顯式形狀數(shù)組的說(shuō)明：REAL,DIMENSION(10,:) :AB) 動(dòng)態(tài)數(shù)組的說(shuō)明方式：REAL,DIMENSION(:,:), ALLOCATE :A 6.BC) 假定形狀數(shù)組的說(shuō)明：REAL,DIMENSION(10,:) :AD) 指針數(shù)組的說(shuō)明：POINTER,DIMENSION(1:3,2:4) :A(七)下面的模塊中，錯(cuò)誤的語(yǔ)句是 7 。A) MODULE SWAP_MODB) REAL,DIMENSION(5

4、,5):A,B7.CC) A=125D) END MODULE SWAP_MOD (八)下面的程序段中，錯(cuò)誤的語(yǔ)句是 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(十)下面給出了一個(gè)文件打開語(yǔ)句：OPEN(10，F(xiàn)ILE=FILENAME)10.D這個(gè)語(yǔ)句打開的文件是 10 。A) 無(wú)格式直接文件 B) 有格式直接文件C) 無(wú)格式順序文件 D) 有格式順序文件123456得分二、 閱讀下列程序，寫出程序的運(yùn)行結(jié)果(每題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運(yùn)行結(jié)果：5 25N=N+1S=S+ASD(I)ENDIFENDDO EX1PRINT*,N,SEND程序2： PROGRAM EXAM2IMPLICIT NONE程序2運(yùn)行結(jié)果：#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運(yùn)行結(jié)果：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運(yùn)行結(jié)果：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運(yùn)行結(jié)果：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運(yùn)行結(jié)果：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得分三、 閱讀下列程序，在空白處填寫適當(dāng)?shù)膬?nèi)容(每空2分，共24分)(一) 對(duì)鍵盤輸入的兩個(gè)實(shí)型變量X、Y，要求始終X大于等于Y（若Y大于X時(shí)，交換X和Y的值）。PROGRAM EXAM7IMPLICIT NONE1.REAL X,Y,TEMP READ*,X,Y2.IF(XY)THENTEMP=XX=Y3.Y=TEMPENDIFPRINT*,X,YEND (二)從鍵盤輸入 L=20個(gè)整數(shù)，求其中的偶數(shù)個(gè)數(shù)M和奇數(shù)個(gè)數(shù)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 (三)下面的程序用于計(jì)算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矩陣，要求從鍵盤按行輸入該矩陣，并輸出其轉(zhuǎn)置矩陣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得分四、 程序設(shè)計(jì)(共22分) (一)輸入N個(gè)整型數(shù)，存入數(shù)組A中，要求編寫一個(gè)程序，將數(shù)組A的元素從小到大進(jìn)行排序，然后按每行5個(gè)數(shù)據(jù)輸出(本小題7分)。(二)編程計(jì)算求Y=F(-2)+F