1、專業(yè)班級(jí)： 學(xué)號(hào)： 姓名:一、選擇題（用鉛筆把選中的方格涂黑 40X 1=40分）2ABCD6ABCD10ABCD14ABCD18ABCD22ABCD26ABCD30ABCD34ABCD38ABCD、填空題（每空占一行，每行寫一個(gè)答案 25X2=50分）1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 三、程序設(shè)計(jì)（10X1=10分）1、利用外部子程序求兩正整數(shù) M、N的最大公約數(shù)，要求寫主程序。注：變 量M、N的值從文件 Myfile1.dat中讀取。B、SUB

2、不能作為子程序名D、這是子程序的第一個(gè)語(yǔ)句2、Fortran90中表達(dá)式4-25(sin cos 10 )e冗J2 + ax + ln( 3)的正確寫法是一、選擇題(40X1=40分)1、下列關(guān)于 SUBROUTINE SUB()語(yǔ)句的敘述中，正確的是 A、子程序執(zhí)行后，SUB將返回整型數(shù)據(jù)C、子程序缺少虛元A、(Sin(4/ E)+cos(10*3.14/180)*exp(2.5(Sqrt(2.0)+abs(a*x)+log(3)B、(Sin(4/3.14)+cos(10*3.14/180)*exp(2.5)/(Sqrt(2.0)+abs(a*x)+log(3.0)C、(Sin(4/3.14

3、)+cos(10)*exp(2.5)/(Sqrt(2.0)+abs(a*x)+log(3)D、(Sin(4/3.14)+cos(10*3.14/180)*exp(2.5)/(Sqrt(2)+abs(ax)+log(3.0)3、FORTRAN90源程序必須經(jīng)過 后才能被計(jì)算機(jī)執(zhí)行。A、匯編B、編譯C、解釋D、翻譯4、下列敘述錯(cuò)誤的是。A、實(shí)型數(shù)值在計(jì)算機(jī)中表示沒有誤差B、整型數(shù)值在計(jì)算機(jī)中表示沒有誤差C、虛數(shù)組的大小不能超過實(shí)數(shù)組D、固定長(zhǎng)度的字符型變量作虛元，其長(zhǎng)度必須小于或等于所對(duì)應(yīng)的實(shí)元長(zhǎng)度5、沒有目標(biāo)變量的前提下，直接建立指針變量的關(guān)聯(lián)狀態(tài)方法有 。A、=>B、=C、Allocat

4、eD、Nullify6、print (A)' ,'A' , A語(yǔ)句中從左至右三個(gè)符號(hào)A的意義分別為 。A、字符格式編輯符、字符變量、字符常量B、字符變量、字符格式編輯符、字符常量C、字符格式編輯符、字符常量、字符變量D、字符常量、字符格式編輯符、字符變量7、說(shuō)明語(yǔ)句 CHARACTER(5):CH (10)的含義是 。A、CH是長(zhǎng)度為5的字符型變量B、CH是長(zhǎng)度為10的字符型變量C、CH是字符型數(shù)組，有 5個(gè)數(shù)組元素，每個(gè)元素是長(zhǎng)度為10的字符串D、CH是字符型數(shù)組，有10個(gè)數(shù)組元素，每個(gè)元素是長(zhǎng)度為5的字符串8、關(guān)于FORTRAN90的派生類型，以下說(shuō)法正確的是 。A

5、、派生類型可由 TYPE語(yǔ)句自定義或由系統(tǒng)自動(dòng)生成B、派生類型成員為字符型時(shí)，其長(zhǎng)度必須確定，不可用 *C、派生類型的成員可以是派生類型、數(shù)組，但不可以具有指針屬性D、派生類型不能作為數(shù)組元素的類型9、 HoHai < HHU '的值為 。A. .false.B、.true.C、1D、010、以下五種形式的數(shù)組：常數(shù)組、數(shù)組片段、可調(diào)數(shù)組、假定形狀數(shù)組、動(dòng) 態(tài)數(shù)組。其中不能出現(xiàn)在虛元表中的是 。A、B、C、D、11、設(shè)有數(shù)組定義DIMENSION A (5), B (4, 7)則在執(zhí)行下列語(yǔ)句后，A (4)的值為 。A=8 B=5 A=A-B (2, 1: 5)A、8B、5C、3

6、D、語(yǔ)法錯(cuò)12、關(guān)于FORTRAN 90 的內(nèi)部函數(shù) ASSOCIATED ,以下說(shuō)法錯(cuò)誤的是 。A、函數(shù)ASSOCIATED的功能是測(cè)試指針的關(guān)聯(lián)狀態(tài)B、函數(shù)ASSOCIATED有兩個(gè)虛元，其中第二個(gè)虛元是可選的C、函數(shù) ASSOCIATED的參數(shù)一一定是個(gè)D、函數(shù)ASSOCIATED的返回值是邏輯值 13、下面對(duì)函數(shù)程序過程的描述，哪一句是錯(cuò)誤的 。A、函數(shù)過程可有參或無(wú)參，函數(shù)名的命名方式與變量相同B、虛參可以是變量名、過程名、數(shù)組名和指針等C、結(jié)果變量用于存放函數(shù)返回值，在過程體中至少應(yīng)被賦值一次D、內(nèi)部函數(shù)子程序不是一個(gè)獨(dú)立的程序單位，它能被任何程序單位調(diào)用14、以下關(guān)于FORTRA

7、N9符號(hào)名的屬性的四種說(shuō)法中，錯(cuò)誤的是 。A、PARAMETER屬性說(shuō)明符號(hào)常量B、INTENT屬性說(shuō)明虛元的意圖，可用于具有指針屬性的虛元C、POINTER:a(:)屬性說(shuō)明語(yǔ)句指明 a是指向數(shù)組的指針，可動(dòng)態(tài)分配內(nèi)存空間 D、ALLOCATABLE:a(:)屬性說(shuō)明語(yǔ)句指明 a是可動(dòng)態(tài)分配的數(shù)組 15、下面分支語(yǔ)句正確的是 。A、if (x>2) y=x+2B、if (x>2) then y=x+2C、if (x>2) y=x+2 endifD、if (x>2) then y=x+2 16、調(diào)用子程序時(shí)，和虛數(shù)組結(jié)合的實(shí)元 。A、只能是數(shù)組B、只能是數(shù)組元素C、只能

8、是數(shù)組片段D、以上都可以17、下列關(guān)于FORTRAN90代碼編輯規(guī)則的敘述，錯(cuò)誤的是 。A、IMPLICIT NONE 語(yǔ)句必不可少B、類型說(shuō)明語(yǔ)句視情況可有可無(wú)C、注釋語(yǔ)句可放在任何位置D、模塊單兀必須編寫在代碼的最開始18、If (L) thenPrint *, 'True'ElsePrint * , 'False'Endif設(shè)給邏輯型變量L賦值.TRUE.，則以上代碼執(zhí)行后輸出的結(jié)果是 。A、TrueB、FalseC、.True .D、沒有輸出19、下列關(guān)于指針變量的說(shuō)法中，正確的是 。A、如果指針變量作為外部過程的虛元，調(diào)用它的程序單元不需要編寫關(guān)于該被

9、調(diào)過程 的接口塊B、NULIFY語(yǔ)句使指針變量指向空，即該指針變量為空指針C、允許一個(gè)指針同時(shí)指向多個(gè)目標(biāo)。D、新的指向操作并不影響指針變量原來(lái)的指向關(guān)系,可用下標(biāo)三元組形式表示。設(shè)有數(shù)組5, 2: 3)的結(jié)果是。B、形狀為(2, 2, 2)的數(shù)組D、語(yǔ)法錯(cuò)20、FORTRAN90中的數(shù)組片斷(即數(shù)組的一部分) 說(shuō)明為B (10, 6, 4),則數(shù)組片斷 B (8: 11: 2 A、形狀為(2, 2)的數(shù)組 C、一維數(shù)組21、有如下循環(huán)入口語(yǔ)句：DO J=1,15,3IF ( MOD(J,10) = = 0 ) cycle PRINT *,J END DO 該語(yǔ)句輸出的 J的值是。B、 1 4

10、 7 10 13D、10,SHAPE(A)的結(jié)果是25D、5A、 1 4 7 10C、1 4 7 1322、INTEGER , DIMENSION(-2:2,1:5 ):AA、2B、5, 5C、23、以下說(shuō)法中錯(cuò)誤的是 。A、超載賦值符形式上就是賦值號(hào)=B、賦值符的超載功能只能用SUBROUTINE來(lái)定義C、賦值符的超載功能實(shí)現(xiàn)不需要通過接口塊D、不同類型的結(jié)構(gòu)體變量之間不能直接相互賦值，除非定義超載24、以下是有格式順序文件的OPEN句，其中錯(cuò)誤的是B. OPEN(2, FILE= 'A.DATC. OPEN(2, FILE= 'A.DAT , STATUS='SCR

11、ATCH')D. OPEN(2, FILE= 'A.DAT , FORM = FORMATTED )E. OPEN(2, FILE= 'A.DAT , ACCESS =SEQUENTIAL) 25、下列程序運(yùn)行結(jié)果是 。CHARACTER(4):A,B,C*5A=' YOUR ; B= ' BOYS ; C= ' GIRLS'WRITE( *, ' (A4,A5,AA1)' ) A,B,C, ' !' ENDA、 YOURBOYSGIRLS !B、YOUR BOYS GIRLS!C、 YOUR BOYSGI

12、RLS!D、YOURBOYS GIRLS!B、實(shí)型、整型D、實(shí)型、字符型以下說(shuō)法中錯(cuò)誤的是 ?？煞秩休斎?個(gè)整數(shù)可分三行輸入任意個(gè)數(shù)整數(shù)C、D、26、CASE吉構(gòu)中情況表達(dá)式的類型可以是 A、字符型、邏輯型C邏輯型、復(fù)型27、執(zhí)行 read (I3) ',x,y,z 語(yǔ)句時(shí)，可在一行輸入完 3個(gè)整數(shù)必須分三行完成輸入必須一行輸入完 3個(gè)整數(shù)A、B、28、 PRINT *, ( ( ' a J=1, 2 ) , I , I=1 ,2執(zhí)行該語(yǔ)句后，輸出的結(jié)果是A、 aa 1 aa 2B、 'a' a, 1 a a 2C、a a a aD、1 aa 2 aa29、下

13、列有關(guān)數(shù)組的說(shuō)法正確的是 。A、任何形式的數(shù)組定義語(yǔ)句中都可以出現(xiàn)變量 B、任何形式的數(shù)組定義語(yǔ)句中都不可以出現(xiàn)變量 C、常數(shù)組可在任何程序單元中使用 D、數(shù)組元素的下標(biāo)不能使用表達(dá)式 30、設(shè)有下列變量和指針的定義：INTEGER , TARGET : :i , jINTEGER , POINTER : pl , p2 , p3 i=25 ; j=69 p1=>i ;p2=>j能夠正確實(shí)現(xiàn)兩個(gè)指針變量交換的語(yǔ)句是 。A、p1=p2;p2=p3;p3=p1B、p3=p1;p1=p2; p2=p3C、p1=>p2; p2=>p3;p3=>p1D、p3=>p1;

14、 p1=>p2;p2=>p331、INTEGER,DIMENSION(2,2):AA=RESHAPE(/3,4,5,6/),(/2,2/) 數(shù)組元素 A (2, 1)的值為。A、3B、4C、5D、632、FORTRAN90 中一個(gè)INTEGER 型數(shù)據(jù)的 KIND 值是1,那么該數(shù)據(jù)值的范圍是 A、 -21474846482147484647B、 -3276832767C、 065535D、 -12812733、有關(guān)FORTRAN90各程序單元的說(shuō)法錯(cuò)誤的是 。A、各程序單元都能實(shí)現(xiàn)遞歸調(diào)用B、主程序單元是獨(dú)立的程序單元，應(yīng)獨(dú)立編寫C、外部子程序單元是獨(dú)立的程序單元，源程序中包含的

15、個(gè)數(shù)任意D、除模塊中的內(nèi)部過程外，模塊不能包含可執(zhí)行語(yǔ)句34、REAL , DIMENSION(3 , 4) : : AREAD *, (A(K , 1:4),K=1,3)執(zhí)行時(shí)從鍵盤上輸入的第二個(gè)數(shù)是數(shù)組A的第個(gè)元素。A、2B、5C、4D、635、Fortran90中，綜合表達(dá)式中各成員的優(yōu)先級(jí)從高到低是 。A、最內(nèi)層括號(hào)、函數(shù)、邏輯運(yùn)算、關(guān)系運(yùn)算B、邏輯運(yùn)算、關(guān)系運(yùn)算、算術(shù)運(yùn)算C、>=、.not.、mod、+D、函數(shù)、括號(hào)、乘號(hào)、邏輯運(yùn)算36、FORTRAN 9由由格式規(guī)定，多條語(yǔ)句寫在一行時(shí)用作語(yǔ)句分隔符的是 。A、&B、：C、 ；D、，37、下列四種程序結(jié)構(gòu)塊內(nèi)，使用數(shù)組

16、作為判別依據(jù)的是 。A、DO循環(huán)結(jié)構(gòu)B、WHERE結(jié)構(gòu)C、CASE選擇結(jié)構(gòu)D、塊IF選擇判定結(jié)構(gòu)38、若過程的某啞元是過程名，調(diào)用過程時(shí)其對(duì)應(yīng)的實(shí)元需要特別說(shuō)明。以下關(guān)于實(shí)元的 說(shuō)明語(yǔ)句錯(cuò)誤的是。A、REAL , EXTERNAL : fB、REAL , INTRINSIC 二 SINC、寫該實(shí)元的接口塊D、EXTERNAL : f39、以下關(guān)于 DO WHILE (expression)ENDDO 循環(huán)結(jié)構(gòu)的敘述中，正確的是 。 A、expression只能含有關(guān)系運(yùn)算符 B、expression只能含有邏輯運(yùn)算符 C、expression只能取邏輯值“真”或“假” D、expression

17、不能包含算術(shù)或字符運(yùn)算符 40、以下帶有控制信息表的讀寫語(yǔ)句中，錯(cuò)誤的是 。A、read(fmt=*,unit=2,iostat=ios)a,b,j,k B、 write(unit=*,fmt= '(2A6,2I4) ',rec=number)a,b,j,k C、read(unit=2,fmt= '(2A6,2I4) ',rec=number)a,b,j,k D、 write(iostat=ios,unit=3,rec=number)a,b,c,i,j,k二、填空題(請(qǐng)將答案按空填寫在答題紙上。每空占一行，每行寫一個(gè)答案25X 2=50 分)1、以下程序執(zhí)行后，

18、輸出的第一行是，第二行是(2) QRECURSIVE FUNCTION F (n,x) RESULT (r) IMPLICIT NONE INTEGER : n REAL : x , r IF ( n= = 1) THEN r = xELSE r = ( 1+x ) * F( n-1 , x ) ENDIF END FUNCTION F ! PROGRAM MAIN IMPLICIT NONE REAL: FPRINT (F7.3)' , F( 2,0.5 ) , F( 3,0.8) END PROGRAM MAIN2、以下程序執(zhí)行后，輸出的第一行是 (3),輸出的第二行是 。PROG

19、RAM pointer IMPLICIT NONE INTEGER,POINTER:a,b,c INTEGER,TARGET:x,y,z x=15;y=35;z=x+ya=>x;b=>y;c=>z;PRINT'(3I4)' ,a,b,cc=>a;a=>b;b=>ca=a+b; b=b+c; c=c+a a=>b;b=>c;c=>a ;PRINT'(3I4)' ,a,b,cEND PROGRAM pointer3、下列程序執(zhí)行后，輸出的第一行是(5),第二行是(6),第三行是(7)。PROGRAM ABCINT

20、EGER , DIMENSION(8) : ARR INTEGER : I,J,SUMA ARR = (/(3*J, J=1,3),2*I,I=1,2)/) SUMA =SUM(ARR, MASK = ARR>3) PRINT 4I3) ' ,ARR PRINT (I3) ' ,SUMA END PROGRAM ABC4、下列程序執(zhí)行后，輸出的 S值是(8)。INTEGER : K REAL : S S=1.0 DO K=2,4,2 S=S+1/K ENDDO WRITE(*,*) S END5、以下程序執(zhí)行后，輸出的內(nèi)容是(9),自定義運(yùn)算符.exchange.的功能是

21、：(10)。PROGRAM TESTINTERFACE OPERATOR ( . exchange.) FUNCTION change (x) RESULT (y) INTEGER : i , constant CHARACTER(LEN=*), INTENT(in) : x CHARACTER(LEN=50) : y END FUNCTION change END INTERFACECHARACTER(LEN=50) : x , y x = '2014 , nANJING yOUTH OLYMPIC gAMES , success !' y = . exchange . (

22、x ) PRINT * , y END PROGRAM TEST !FUNCTION change (x) RESULT (y)INTEGER : i , constant = 32 !同一字母大小寫的 ASCII碼值之差等于32 CHARACTER( LEN = * ) : x , y DO i = 1 , LEN(x)IF ( x( i : i) >= A' .AND. x(i :i) <= Z' ) THEN y ( i: i) = CHAR( ICHAR( x(i : i) ) + constant ) ELSEIF ( x( i : i) >= a

23、.AND. x(i :i) <= Z) THEN y ( i: i) = CHAR( ICHAR( x(i : i) ) - constant ) ELSE y ( i: i) = x(i : i)ENDIFENDDOEND FUNCTION change 6、下列程序執(zhí)行后，輸出的第二行是(11),第三行是 (12) qPROGRAM MAIN IMPLICIT NONE INTEGER: I,K K=3 DO I=1,KPRINT *, I= , I, FACT(I) END DO CONTAINSINTEGER FUNCTION FACT(N) INTEGER : N,T,J T=

24、2 ; J=2 T=N*J + T FACT = T END FUNCTION FACT END7、下列程序執(zhí)行后，輸出的第一行是(13),第四行是 (14) qPROGRAM MAIN IMPLICIT NONE TYPE ROWINTEGER,DIMENSION(:),POINTER:R END TYPE INTEGER : i TYPE(ROW),DIMENSION(1:5) : s , t DO i=1,5 ALLOCATE (t(i)%R(1: i) t(i).R(1: i)=i*2 END DO s =t DO i=1,5 t(i).R(1: i)=t(i).R(1:i) + s(

25、i).R(1:i) PRINT *, t(i).R(1: i) END DO END PROGRAM MAIN8、對(duì)正整數(shù)n進(jìn)行數(shù)字分離，即求出它每一位數(shù)字。例如： n的值是12345時(shí), 分離出1、2、3、4和5,請(qǐng)完善下列程序。PROGRAM SEPARATE IMPLICIT NONE INTEGER,DIMENSION(12):M INTEGER:N,K,I,T READ * ,N (15)DO WHILE (16)K=K+1 M(K)=(17)N= (18)ENDDODO I=1,K/2!保證從高位數(shù)字到低位數(shù)字的輸出順序T=M(I) M(I)=(19)M(K-I+1)=TEND D

26、OPRINT '(12I2)',(20)!只車觥H M數(shù)組中的實(shí)際數(shù)字END PROGRAM SEPARATE9、輸入5個(gè)學(xué)生的學(xué)號(hào)和三門課的成績(jī)，按學(xué)生的平均成績(jī)從高到低輸出成績(jī)單。 MODULE TYPE_MODULETYPE STUDENTINTEGER:NO,SCORE1,SCORE2,SCORE3 REAL:A VERAGE END TYPE STUDENT END MODULE TYPE_MODULEPROGRAM MAINL21jIMPLICIT NONEC22:STU(5),TEMP INTEGER:N,S1,S2,S3,I,J REAL:AVE(5) DO I

27、 = 1,5PRINT '(1X,A,I1,A)','請(qǐng)輸入第',I,'個(gè)學(xué)生的學(xué)號(hào)和三門課的成績(jī): READ*, N,S1,S2,S3AVE(I) = (S1 + S2 + S3)/3.0 STU(I) = L23J ENDDODO I = 1,4 C24JIF(C25) THENTEMP = STU(I) STU(I) =STU(J) STU(J) = TEMPENDIF ENDDO ENDDO PRINT '(1X,5A12)','學(xué)號(hào)','成績(jī) 1','成績(jī) 2','成績(jī) 3','平均 PRINT '(1X,4I13,F12.2)', STUEND PROGRAM MAIN專業(yè)班級(jí)： 學(xué)號(hào)： 姓名:一、選擇題（用鉛筆把選中的方格涂黑 40X 1=40分）2ABCD6ABCD10ABCD14ABCD18ABC