FORTRAN程序設(shè)計(jì)復(fù)習(xí)題與答案

1、WORD格式FORTRAN程序設(shè)計(jì)復(fù)習(xí)題一、選擇題B (1)以下各 FORTRAN表達(dá)式中合法的是A) S+T* 2P >= 0.0B) .NOT. (A*B+C)C) A2+B2/(C+D)<= 0.0D) (A+B) .NOT A*B GT 0.0 (. NOT.只跟一個表達(dá)式 )C (2) 數(shù)學(xué)式 (3/5)ex+y的 FORTRAN表達(dá)式是A) 3*EXP(X+Y)/5B) 3*E* *(X+Y)/5.0C) (3/5)*EXP(X+Y)D) (3.0/5.0)EXP(X+Y)D (3) 以下 FORTRAN77表達(dá)式中 不合法 的是A) A GT B EQV C GT D

2、B) A ANDB AND C AND DC) .NOT (X LE 0.0)D) A LTB LT C LTDD (4)以下表達(dá)中 不正確 的是A) FORTRAN子程序可以單獨(dú)編譯B) 對一個 FORTRAN源程序進(jìn)展編譯和連接無誤后可生成可執(zhí)行文件C) 即使編譯和連接都正確無誤， FORTRAN程序運(yùn)行時仍可能出錯專業(yè)資料整理WORD格式D) FORTRAN連接的主要任務(wù)是把函數(shù)庫中的函數(shù)翻譯成機(jī)器指令( 正確描述： 主專業(yè)資料整理WORD格式要任務(wù)為連接目標(biāo)文件)B (5) 在以下 FORTRAN77運(yùn)算符中， 優(yōu)先級最高 的是A) .AND.B) .NOT.C) .OR.D) .EQ

3、.B (6)FORTRAN 表達(dá)式 "6/5+9/2*3/2"的值為A)33B)1C)5D)3專業(yè)資料整理WORD格式A (7)以下FORTRAN77表達(dá)式中， 合法的是 ：專業(yè)資料整理WORD格式A) 0.0.LE.X .AND.NOT.X.GE.10.0B) 0.0.GE.X.LT.10.0專業(yè)資料整理WORD格式C) 0.0.LE.X.GE.10.D) 10.0.LE.X.OR.AND.X.GT.0.0專業(yè)資料整理WORD格式提示：A相當(dāng)于0.0.LE.X .AND. .NOT. X.GE.10.0專業(yè)資料整理WORD格式D (8) 關(guān)于編譯一個FORTRAN源程序文

4、件，以下說法中錯誤的選項(xiàng)是A) 允許編譯只有一個主程序而沒有子程序的源文件B) 允許編譯有多個子程序的源文件C) 允許編譯只有一個子程序而沒有主程序的源文件D) 允許編譯有多個主程序的源文件C (9) 在 FORTRAN77源程序中， 續(xù)行標(biāo)志符必須放在A) 第1列B)第1-6列 C) 第6列 D)第5列專業(yè)資料整理WORD格式D (10) 以下關(guān)于 "SUBROUTINE MAP(X， Y)" 語句行的表達(dá)中，不正確的選項(xiàng)是A) 這是子程序的第一個語句 B) 字符串 "MAP"是子程序名C) 變量 X是子程序的形參 D) 子程序執(zhí)行后， MAP將返回整

5、型數(shù)據(jù)提示： 子程序無返回值，自定義函數(shù)才有A (11)FORTRAN 表達(dá)式 "2/4+0.5"的值是專業(yè)資料整理WORD格式A) 0.5B) 1C) 1.0D) 0專業(yè)資料整理WORD格式提示： 2/4 默認(rèn)等于整型，0.5= " 0.0D (12)FORTRAN表達(dá)式 "MOD(4.9 ，1.3)"的值是專業(yè)資料整理WORD格式A)1.3B)0.0C)4.9D)1.0專業(yè)資料整理WORD格式A (13 以下 FORTRAN運(yùn)算符中， 優(yōu)先級最低 的是A邏輯運(yùn)算符.AND.B算術(shù)運(yùn)算符*專業(yè)資料整理WORD格式C)關(guān)系運(yùn)算符>=D)算

6、術(shù)運(yùn)算符專業(yè)資料整理WORD格式A (14以下語句函數(shù)的定義中正確 的是AF(X ，Y) (X Y)/(X*Y)7.0CH(A， B，C(I)SIN(A) SIN(B )BFUNCTIONFUN(I ，J，K) 3*I 2*J 0.5*K C(I)D)S(A， B，C) A*B S(A*A ，B， C)專業(yè)資料整理WORD格式B 15 以下標(biāo)識符中，不屬于FORTRAN常量的是A .TRUE.B FALSEC ROOTD 123.0 B 16 " 整型變量M能被整型變量K 整除 " 的 FORTRAN77表達(dá)式是A MOD(M， K) 0 MOD(M， K)= =0 B M

7、 M/K*K .EQ. 0C MOD(K， M) 0DMOD(M， K) 0 = .TRUE.C 17設(shè)有以下數(shù)組說明語句：REAL: A(1:10， 1:10)專業(yè)資料整理WORD格式該數(shù)組說明語句定義了數(shù)組A 100B110A 中的元素個數(shù)為C 120D 121專業(yè)資料整理WORD格式A (18) 按隱含規(guī)那么默認(rèn)為整型 ，語句IP=3.1415926執(zhí)行之后， IP 的值是A) 3B) 3.1416C) 3.141592D)3.141593D (19) 以下數(shù)據(jù)中，不符合FORTRAN常量表示法的是A) -25.6B) 2.758D3C)FOOT =D) TRUEC (20) 設(shè) C 是

8、復(fù)型變量， A 與 B 為有定義的實(shí)型變量，以下賦值語句中合法的是A) C= A+BB) C=(3.5,1.5*2 )C) C=(2.0,3D-2)D) C=( A B, A-B)B (21) 有矩陣 ( 數(shù)組 )1111B2222以下 DATA語句中 正確 的是A) DATA B/4*1.0,4*2.0/B) DATA(B(I,J), J=1,4), I=1,2)/4*1.0, 4*2.0/C) DATA B/4*(1.0,2.0)/D) DATA(B(I,J),I=1,2), J=1,4)/4*1.0, 4*2.0/C (21) 在使用 DO循環(huán)及循環(huán)嵌套時，以下表達(dá)中正確的選項(xiàng)是A) 不

9、僅可以從循環(huán)體內(nèi)轉(zhuǎn)到循環(huán)體外，也可以從循環(huán)體外轉(zhuǎn)到循環(huán)體內(nèi)B) 外循環(huán)與內(nèi)循環(huán)的 DO循環(huán)控制變量可以不同也可以一樣C) 可以從循環(huán)體內(nèi)轉(zhuǎn)到循環(huán)體外，但不能從循環(huán)體外轉(zhuǎn)到循環(huán)體內(nèi)D) DO 循環(huán)控制變量在循環(huán)體內(nèi)可以再賦值，也可以被引用B (22) 在 FORTRAN表達(dá)式中，各種運(yùn)算的順序是專業(yè)資料整理WORD格式A) 邏輯運(yùn)算，關(guān)系運(yùn)算，算術(shù)運(yùn)算C) 關(guān)系運(yùn)算，邏輯運(yùn)算，算術(shù)運(yùn)算B) 算術(shù)運(yùn)算，關(guān)系運(yùn)算，邏輯運(yùn)算 D) 關(guān)系運(yùn)算，算術(shù)運(yùn)算，邏輯運(yùn)算專業(yè)資料整理WORD格式D (23)賦值語句專業(yè)資料整理WORD格式X=4*(6/12)=4*0=1.0專業(yè)資料整理WORD格式執(zhí)行后 , 實(shí)型

10、變量X 的值是A) 2B) 2.0C) 1D) 1.0專業(yè)資料整理WORD格式D (24)為了保證正確出數(shù)據(jù), 格式編輯符Ew.d 中w 與d 的關(guān)系應(yīng)該是專業(yè)資料整理WORD格式A) w>dB) w>d+2C) w>d+4D) w>d+6專業(yè)資料整理WORD格式C (25)設(shè)以下各語句中用到的數(shù)組都已定義, 那么以下語句中 正確 的是A) READ(*,*)(I,A(I),I=1,10)B)READ(*,*)(B,(I,J),I=1,10,J=1,10)C) READ(*,*)N,(A(I),I=1,N)D) READ(*,*)(I=1,10,A(I)A (26)以下

11、 DO語句中 , 不正確 實(shí)現(xiàn)循環(huán)的是(I-N 規(guī)那么： I-N 會被視為整型 )A) DO 10 S=-1.6,-5.3,-0.4B) DO 10 K=-1.6,-5.3,-0.4C) DO 10 S=-5.3,-1.6,-0.4D) DO 10 K=1.6,5.3,-1.4D (27) 以下說法中 正確 的是A) 塊 IF 構(gòu)造中的 THEN塊或 ELSE塊不能是空塊專業(yè)資料整理WORD格式B)C)D)塊 IF 構(gòu)造中至少有一個ELSE IF語句或 ELSE語句每個 ELSE IF 語句要有一個對應(yīng)的END IF 語句一個塊 IF構(gòu)造中只能有一個END IF 語句專業(yè)資料整理WORD格式A

12、 (28)以下數(shù)組說明語句中正確 的是專業(yè)資料整理WORD格式A) INTEGER A(-1:5,0:6)C) DOUBLE Y(1:N+1)B) REAL M(10:5)D) DOUBLE Z(14)專業(yè)資料整理WORD格式B (29) 設(shè)有一個FORTRAN77子程序如下 :SUBROUTINE SS(X,Y,S,T)S=X+YS,T 為傳出，即需要輸出的相當(dāng)于求圓的面積中的 area，只能 T=X*Y 為確定的數(shù)； X,Y 為傳入相當(dāng)于 radius ，可為表達(dá)式END調(diào)用上述子程序的正確 語句是專業(yè)資料整理WORD格式A) CALL SS(2.4,W*W,5,5.9,Z)B) CALL

13、 SS(0.0,4.2,P,Q,R)多了一個 多了一個 專業(yè)資料整理WORD格式C) CALL SS(F,G,7.2,5.1)專業(yè)資料整理WORD格式D) CALL SS(4.4*I,5.8*J,C,D) I,J可先賦值專業(yè)資料整理WORD格式A (30)在以下語句函數(shù)的定義中正確的選項(xiàng)是專業(yè)資料整理WORD格式A) F(X,Y)=(X+Y)/(X*Y)+7.0C) H(A,B,C(I)=SIN(A) +SIN(B )+ C(I)B) FUNCTION(I,J,K)=3*I+2*J+0.5*K D) S(A,B,C)=A*B+ S(A*A,B,C)專業(yè)資料整理WORD格式B (31) COMM

14、ON語句的功能 是A) 給同一程序模塊中的假設(shè)干變量分配同一存儲單元B) 給不同程序模塊中的變量分配一樣的存儲單元C) 給程序中任意兩個變量分配一樣的存儲單元D) 給同一程序模塊中的不同變量分配一樣的存儲單元B (32)以下表達(dá)式中值為整數(shù)4 的是A) SQRT(16.0)B)27/6C) 16*0.5D) 4*1.0C (34)語句 K=2+3.0*2/2執(zhí)行后，整型變量K 的值是A) 6.5B) 5C) 6D) 7C (36)適用于 字符型 I/O的 FORTRAN77格式編輯將是專業(yè)資料整理WORD格式A) Fw.dB) Iw.dC) AD) Gw.dD (37) 給定子例行程序如下SU

15、BROUTINE SUB(K,A)專業(yè)資料整理WORD格式B=K+2 K 為整型， B錯誤； A 不是整型，A=A+BA 為傳出，不能為表達(dá)式A錯誤；K 為傳入，可為表達(dá)式，專業(yè)資料整理WORD格式END以下調(diào)用語句中正確的選項(xiàng)是專業(yè)資料整理WORD格式A) CALL SUB(N,N)C) CALL SUB(N+2,X)B) CALL SUB(X,X)D) CALL SUB(N,X+3)專業(yè)資料整理WORD格式C (38)以下FORTRAN語句中， 正確 的是A) READ(*,*) (N,A(K),K=1,N)B) WRITE(*,*) (M(K,J),K=1,10, J=1,10)C) W

16、RITE(*,*) (10,A(K),K=1,10)D) DATA A,B,C/2*0.0 /C (39) 對于以下給定的FORTRAN說明和賦初值語句：INTEGER A(2， 2)DATA A/3， 4， 5， 6/數(shù)組元數(shù)A(2 ， 1) 的初值為A)3B)5C)4D)6C (40) 以下對公用區(qū)的說明語句中錯誤 的是A) COMMON A(5), BB) COMMON/AB/ A(5), BC) COMMON AB/A(5), B/D) COMMON/A(5), B專業(yè)資料整理WORD格式D (41) 以下各邏輯IF 語句中正確的選項(xiàng)是A) IF(X<0.0) THEN 10B)

17、 IF(X>=0.0).AND.(X.LT.1.0)Y=2*X+1.0C) IF(0.0>=X<=1.0) Y=2*X+1.0D) IF(X >= 0.0.AND.X <=1.0) Y=2*X+1.0二、閱讀題1、閱讀以下FORTRAN程序 :program examplereal a,b,ca=1.0b=2.0c=3.0write(*,"(3(F5.2)") a,b,cend程序運(yùn)行的結(jié)果是:1.00 2.003.00專業(yè)資料整理WORD格式2、閱讀以下FORTRAN程序：program exampleinteger : a=1integer

18、 : b=2real: cc=a/bwrite(*,"(F5.2)") cend程序運(yùn)行結(jié)果是:0.003、閱讀以下FORTRAN程序 :program exampleimplicit noneinteger rain, windspeedwrite(*,*) "Rain:"read(*,*) rainwrite(*,*) "Wind:"read(*,*) windspeedIf ( rain>=500 .or. windspeed >=10 ) thenwrite(*,*) "停頓上班上課"elsew

19、rite(*,*) "照常上班上課 "end ifstopend運(yùn)行上述程序時，如果從鍵盤輸入Rain ：505<回車 >Wind：8<回車 >那么最后輸出的結(jié)果為:停頓上班上課4、閱讀以下FORTRAN程序 :program exampleimplicit nonereal a,b,anscharacter operatorread(*,*) aread(*,"(A1)") operatorread(*,*) bselect case(operator)case('+')ans = a+bcase('-&

20、#39;)專業(yè)資料整理WORD格式ans = a-bcase('*')ans = a*bcase('/')ans = a/bcase defaultwrite(*,"('Unknown operator ',A1)") operatorstopend selectwrite(*,"(F6.2,A1,F6.2,'=',F6.2)") a,operator,b,ansstopend運(yùn)行上述程序時，如果從鍵盤輸入100<回車 >"<回車 >200<回車 &g

21、t;那么最后輸出的結(jié)果為:Unknown operator "5、閱讀以下FORTRAN程序：program exampleimplicit noneinteger iinteger strleninteger, parameter : key = 2character(len=20) : stringwrite(*,*) "Encoded string:"read(*,*) stringstrlen = len_trim(string)do i = 1, strlenstring(i:i) = char( ichar(string(i:i) + key )end

22、 dowrite(*,"('String:',A20)") stringstopendBCDIJK<回車 >那么最后輸出的結(jié)果為:DEFKLM6、閱讀以下FORTRAN程序：program exampleimplicit noneinteger i,jdo i=1, 2do j=2, 3, 2write(*, "(I2,I2)") i,jend do專業(yè)資料整理WORD格式write(*,*) "another circle"end dostopend程序運(yùn)行的結(jié)果是: 1 2another circle2

23、 2another circle按輸出格式， 1、 2 前均有一空格。假設(shè)題目無特殊說明，不需表達(dá)出；假設(shè)有說明，那么空格用“表示7、閱讀以下FORTRAN程序：program exampleimplicit noneinteger : dest = 6integer floordo floor=1, destif ( floor=2 .or. floor=4 ) cyclewrite(*,*) floorend dostopend程序運(yùn)行的結(jié)果是:13568、閱讀以下FORTRAN77程序：program exampleimplicit noneinteger, parameter : li

24、mit=10integer counterinteger : ans = 0counter = 1do while( counter <= limit )ans = ans + countercounter = counter + 2end dowrite(*,*) ansstopend程序運(yùn)行的結(jié)果是: 25專業(yè)資料整理WORD格式9、閱讀以下FORTRAN程序：專業(yè)資料整理WORD格式program exampleimplicit noneinteger, parameter : students = 5integer : student(students) = (/ 80, 90,

25、 85, 75, 95 /)integer ido while( .true. )write(*,*) "Query:"read(*,*) iif ( i<=0 .or. i>students ) exitwrite(*,*) student(i)end dostopend運(yùn)行上述程序時，如果從鍵盤輸入3<回車 >那么最后輸出的結(jié)果為:8510、閱讀以下FORTRAN程序：program exampleimplicit noneinteger, parameter : L=2, M=3, N=2real : A(L,M) = (/ 1,2,3,4,5

26、,6/)real : B(M,N) = (/ 1,2,3,4,5,6/)real : C(L,N)integer : i,j,kdo i=1,Ldo j=1,NC(i,j) = 0.0do k=1,MC(i,j) = C(i,j)+A(i,k)*B(k,j)end doend doend dodo i=1,Lwrite(*,*) C(i,:)end dostopend程序運(yùn)行的結(jié)果是:224928 6411、閱讀以下FORTRAN程序：program exampleimplicit none專業(yè)資料整理WORD格式integer : i,jloop1: do i=1,3loop2: do j=

27、1,3if ( i=3 ) exit loop1if ( j=2 ) cycle loop2write(*, "('(',i2,',',i2,')')" ) i, jend do loop2end do loop1stopend程序運(yùn)行的結(jié)果是:(1,1)(1,3)(2,1)(2,3)12、閱讀以下FORTRAN程序：program exampleimplicit nonereal : a=1.0call ShowInteger(a)call ShowReal(a)stopendsubroutine ShowInteger(n

28、um)implicit noneinteger : numwrite(*,*) numreturnendsubroutine ShowReal(num)implicit nonereal : numwrite(*,*) numreturnend程序運(yùn)行的結(jié)果是:隨機(jī)數(shù)1.00000013、閱讀以下FORTRAN程序：program exampleimplicit none專業(yè)資料整理WORD格式integer, parameter : row = 2integer, parameter : col = 2integer : m(row, col)integer rinteger cdata (

29、m(r,c), r=1, 2), c=1,2) /1,2,3,4/write(*,"(I3,I3,/,I3,I3)") ( m(r,c), c=1,2 ), r=1,2)stopend程序運(yùn)行的結(jié)果是:1 32 414、閱讀以下FORTRAN程序：program ex0805implicit noneinteger : a = 1integer : b = 2write(*,*) a,bcall add(a)call add(b)write(*,*) a,bstopendsubroutine add(num)implicit noneinteger : numnum = n

30、um+1returnend程序運(yùn)行的結(jié)果是:1 22 315、閱讀以下FORTRAN程序：program exampleimplicit noneinteger, parameter : size=10integer : a(size) = (/ 5,3,6,4,8,7,1,9,2,10 /)integer : i,jinteger : tdo i=1, size-1do j=i+1, sizeif ( a(i) > a(j) ) thent=a(i)a(i)=a(j)專業(yè)資料整理WORD格式a(j)=tend ifend doend dowrite(*,"(10I4)&quo

31、t;) astopend程序運(yùn)行的結(jié)果是:1234567891016、閱讀以下FORTRAN程序：program exampleimplicit nonereal: a=1real: b=2real , external : addwrite(*,*) add(a,b)stopendfunction add(a,b)implicit nonereal : a,breal : addadd = a+breturnend程序運(yùn)行的結(jié)果是: 3.000000( 類似的題目，寫3.0 亦可，但不可寫3)17、閱讀以下FORTRAN程序：program exampleimplicit noneinteg

32、er : a,bcommon a,ba=1b=2call ShowCommon()write(*,*) a, bendsubroutine ShowCommon()implicit noneinteger : num1, num2common num1, num2write(*,*) num1, num2return專業(yè)資料整理WORD格式end程序運(yùn)行的結(jié)果是: 1 21 218、閱讀以下FORTRAN程序：module globalimplicit nonereal a,bcommon a,bend moduleprogram exampleuse globalimplicit nonea

33、=1.0b=2.0call sub()end programsubroutine sub()use globalimplicit nonewrite(*,*) a,breturnend subroutine程序運(yùn)行的結(jié)果是: 1.0000002.00000019、閱讀以下FORTRAN程序 :INTEGER A(3,3)DO K=1,3DO L=1,3A(K,L)=K*10+LEND DOEND DOWRITE(*,'(1X,3I3)') AEND程序運(yùn)行的結(jié)果是:11213112 22 3213 23 3320、閱讀以下FORTRAN程序 :INTEGER FF(X,Y)=X

34、+YA=-2.5專業(yè)資料整理WORD格式B=4.0B=1.0+F(A,B)WRITE(*,20) B20 FORMAT(1X,F4.1)END程序運(yùn)行的結(jié)果是: 2.021、閱讀以下FORTRAN程序 :X=0DO L=10, 5, 15X=X+1.0END DOEND程序運(yùn)行時執(zhí)行循環(huán)體的次數(shù)是: 022、閱讀以下FORTRAN77程序 :DIMENSION M(4,4)DATA M/1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6/DO I=1,4WRITE (*,100)(M(I,J),J=1,I)END DO100 FORMAT(1X,4I2)END程序運(yùn)行的結(jié)果是 : 12 63 7 14 8 2 623、閱讀以下FORTRAN程序 :CHARACTER(LEN=10) ACHARACTER(LEN=6) BDO I=1,10A(I:I)=' 'END DOA(1:5)='ABCDE'B='FGHIJK'A(4:9)=BWRITE(*,100) A100 FORMAT(1X,A)END程序運(yùn)行結(jié)果是： ABCFGHIJ