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

1、FoRTRA程序設(shè)計復(fù)習(xí)題、選擇題B (1)下列各FORTRA表達(dá)式中合法的是16GT (. NOT只跟一個表達(dá)式)A) S+T* 2P >=C) A2+B2(C+D)<=C (2)數(shù)學(xué)式(35)ex+yB) .NOT. (A*B+C)D) (A+B) .NOT. A*B. 的FORTRA表達(dá)式是B) 3*E* *(X+Y)/A) 3*EXP(X+Y)5C) (35)*EXP(X+Y)D) EXP(X+Y)D (3)下列FORTRAN7表達(dá)式中不合法的是A) A . GT B. EQV C . GT DB) A . AND B . AND C. AND DC) .NOT . (X

2、. LE .D) A . LT . B . LT . C. LT . DD下列敘述中不正確的是A) FORTRAN子程序可以單獨編譯B) 對一個FORTRA源程序進(jìn)行編譯和連接無誤后可生成可執(zhí)行文件C) 即使編譯和連接都正確無誤，F(xiàn)ORTRA程序運行時仍可能出錯D) FORTRAN連接的主要任務(wù)是把函數(shù)庫中的函數(shù)翻譯成機器指令(正確描述：主要任務(wù)為連接目標(biāo)文件)B在下列FORTRAN7運算符中，優(yōu)先級最高的是A) .AND. B) .NOT. C) .OR. D) .EQ.B (6)FORTRAN 表達(dá)式"65+92*32"的值為A) 33 B) 1 C) 5 D) 3A

3、(7)下列FORTRAN77表達(dá)式中，合法的是：A) .AND.B) 10.0C)D)提示：A)相當(dāng)于.AND. ( .NOT.()D (8)關(guān)于編譯一個FORTRAI源程序文件，下列說法中 錯誤的是A) 允許編譯只有一個主程序而沒有子程序的源文件B) 允許編譯有多個子程序的源文件C) 允許編譯只有一個子程序而沒有主程序的源文件D) 允許編譯有多個主程序的源文件C (9)在FORTRAN7源程序中，續(xù)行標(biāo)志符必須放在A)第1列B)第1-6列C)第6列D)第5列D (10)下列關(guān)于"SUBROUTINE MAP(X Y)"語句行的敘述中，不正確的是A) 這是子程序的第一個語句

4、B)字符串"MAP"是子程序名C)變量X是子程序的形參 D)子程序執(zhí)行后，MAP將返回整型數(shù)據(jù) 提示：子程序無返回值，自定義函數(shù)才有)A (11)FORTRAN表達(dá)式"24+"的值是A) B) 1 C) D) 0提示：24默認(rèn)等于整型，=D (12)FORTRAN表達(dá)式"MOD "的值是A) B)0.0 C)D)A (13下列FORTRANi算符中，優(yōu)先級最低 的是A)邏輯運算符.AND.B )算術(shù)運算符*C)關(guān)系運算符= D)算術(shù)運算符+A (14下列語句函數(shù)的定義中正確的是A) F(X, Y) = (X + Y)(X*Y) + B

5、 ) FUNCTIoNFUN(I , J , K) = 3*1 + 2*J + *KC) H(A, B, C(I) = SIN(A) + SIN(B) + C(I)D)S(A , B, C) = A*B+ S(A*A, B,C)B (15下列標(biāo)識符中，不屬于FORTRA常量的是A) .TRUE. B) FALSE C )x ROO= / D )xxB (16)"整型變量 M能被整型變量 K整除"的FORTRAN7表達(dá)式是A)MOD(MK) =0(MOD(IM K)= =0) B)M- M/K*K .EQ. 0C)MOD(KM)=0D)MOD(M K) = 0 = .TRUE

6、.C (17)設(shè)有下列數(shù)組說明語句：REAL: A(1:10, - 1:10)該數(shù)組說明語句定義了數(shù)組A中的元素個數(shù)為A) 100 B ) 110C) 120 D ) 121A (18)按隱含規(guī)則(默認(rèn)為整型),語句IP=執(zhí)行之后，IP的值是A) 3B) 3.1416C)D)D (19)下列數(shù)據(jù)中，不符合 FORTRAN常量表示法的是A) B)C) 'FOOT ' ='D) TRUEC (20)設(shè)C是復(fù)型變量，A與B為有定義的實型變量，下列賦值語句中合法的是A) C= A+BB) C=, *2 )C) C=,3D-2)D) C=( A+ B A-B)B (21)有矩陣(

7、數(shù)組)1111 B2 2 2 2F列DATA語句中正確的是A) DATA B4*,4*B) DATA(B(I,J), J=1,4), I=1,2)/4*, 4*C) DATA B/4*,/ D) DATA(B(I,J),I=1,2), J=1,4)/4*, 4*C (21)在使用DO循環(huán)及循環(huán)嵌套時，下列敘述中正確的是A) 不僅可以從循環(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)在FORTRA表達(dá)式中，各

8、種運算的順序是A)邏輯運算，關(guān)系運算，算術(shù)運算C)關(guān)系運算，邏輯運算，算術(shù)運算B) 算術(shù)運算，關(guān)系運算，邏輯運算D)關(guān)系運算，算術(shù)運算，邏輯運算D (23)賦值語句X=4*(612)=4*0=執(zhí)行后，實型變量X的值是A) 2B) 2.0C) 1D)D (24)為了保證正確出數(shù)據(jù),格式編輯符中W與d的關(guān)系應(yīng)該是A) w>dB) w>d+2C) w>d+4D) w>d+6C (25)設(shè)下列各語句中用到的數(shù)組都已定義,則下列語句中正確的是A) READ(*,*)(I,A(I),I=1,1O)C) READ(*,*)N,(A(I),I=1,N)B) READ(*,*)(B,(I

9、,J),I=1,1O,J=1,1O)D) READ(*,*)(I=1,10,A(I)A (26)下列Do語句中，不正確實現(xiàn)循環(huán)的是(I-N 規(guī)則：I-N會被視為整型)A) DO 10 S=,B) DO 10 K=,C) DO 10 S=,D) DO 10 K=,D (27)下列說法中正確的是A)塊IF結(jié)構(gòu)中的THEN塊或ELSE塊不能是空塊B) 塊IF結(jié)構(gòu)中至少有一個 ELSE IF 語句或 ELSE語句C) 每個ELSE IF 語句要有一個對應(yīng)的 END IF語句D) 一個塊IF結(jié)構(gòu)中只能有一個 END IF語句A (28)下列數(shù)組說明語句中正確的是B) REAL M(10:5)D) DOU

10、BLE Z(14)A) INTEGER A(-1:5,0:6)C) DOUBLE Y(1:N+1)B (29)設(shè)有一個FORTRAN7子程序如下：SUBROUTINE SS(X,Y,S,T)S=X+Y( S,T為傳出，即需要輸出的(相當(dāng)于求圓的面積中的area ),只能T=X*Y為確定的數(shù)；X,Y為傳入(相當(dāng)于radius)，可為表達(dá)式)END調(diào)用上述子程序的正確語句是A) CALL SS,W*W,5,Z)B) CALL SS,P,Q,R)C) CALL SS(F,G,D) CALL SS*I,*J,C,D)(多了一個)(多了一個)(I,J可先賦值)A (30)在下列語句函數(shù)的定義中正確的是A

11、) F(X,Y)=(X+Y)(X*Y)+B) FUNCTION,J,K)=3*I+2*J+*KC) H(A,B,C(I)= SIN(A) +SIN(B)+ C(I ) D) S(A,B,C)=A*B+ S(A*A,B,C)B (31) COMMO語句的功能是A) 給同一程序模塊中的若干變量分配同一存儲單元B) 給不同程序模塊中的變量分配相同的存儲單元C) 給程序中任意兩個變量分配相同的存儲單元D) 給同一程序模塊中的不同變量分配相同的存儲單元B (32)下列表達(dá)式中值為整數(shù)4的是A) SQRT B)27/6C) 16*D) 4*C (34)語句K=2+*22執(zhí)行后，整型變量 K的值是A)B)

12、5C) 6D) 7C (36)適用于字符型I/O的FoRTRAN77格式編輯將是A)B)C) AD)D (37)給定子例行程序如下SUBROUTINE SUB(K,A)B=K+2( K為整型，B)錯誤；A不是整型，A)錯誤；K為傳入，可為表達(dá)式， A=A+B A為傳出，不能為表達(dá)式)END下列調(diào)用語句中正確的是A) CALL SUB(N,N) B) CALL SUB(X,X)C) CALL SUB(N+2,X)D) CALL SUB(N,X+3)C (38) 下列FORTRA語句中，正確的是J=1,10)A) READ(*,*) (N,A(K),K=1,N) B)WRITE(*,*) (M(K

13、,J),K=1,10,C) WRITE(*,*) (10,A(K),K=1,10)D) DATA A,B,C/ 2*C (39)對于下列給定的 FORTRA說明和賦初值語句：INTEGER A(2，2)DATA A/3，4，5，6/數(shù)組元數(shù)A(2， 1)的初值為A) 3 B) 5C) 4 D) 6C (40)下列對公用區(qū)的說明語句中錯誤的是A) COMMON A(5), BB) COMMON/AB/ A(5), BC) COMMON AB/A(5), B/ D) COMMONND. IF>=X<= Y=2*X+D) IF(X >= <= Y=2*X+二、閱讀題1、閱讀下

14、列FORTRA程序：Program examplereal a,b,ca=b=C=write(*,"(3)") a,b,cend程序運行的結(jié)果是：2、閱讀下列FORTRAI程序:PrOgram examplein teger : a=1in teger : b=2real : Cc=abwrite(*,"") Cend程序運行結(jié)果是： 3、閱讀下列FoRTRA程序：Program exampleimplicit nonein teger rain, win dspeedWrite(*,*) "Rai n:"read(*,*) rain

15、Write(*,*) "Win d:"read(*,*) Win dspeedIf ( rain>=500 .or. Win dspeed >=10 ) the nWrite(*,*)"停止上班上課"elseWrite(*,*)"照常上班上課"end ifstopend運行上述程序時，如果從鍵盤輸入Rain :505<回車>Win d：8< 回車>則最后輸出的結(jié)果為：停止上班上課4、閱讀下列FORTRA程序：PrOgram example implicit none real a,b,a ns Ch

16、araCter OPeratOr read(*,*) a read(*,"(A1)") OPeratOr read(*,*) bSeIeCt CaSe(OPeratOr) case('+') ans = a+bcase('-') ans = a-bcase('*')ans = a*bcase(7')ans = a/bCaSe defaultwrite(*,"(' UnknoWn OPerator',A1)") OPerator StoPend SeIeCtwrite(*,"

17、,A1,'=',") a,operator,b,a nsstopend運行上述程序時，如果從鍵盤輸入100回車回車200回車則最后輸出的結(jié)果為：_Unknown OPerator5、閱讀下列FoRTRA程序：PrOgram exampleimplicit nonein teger iin teger strle nin teger, Parameter : key = 2CharaCter(Ie n=20) : Stri ngWrite(*,*) "En coded Stri ng:" read(*,*) Stri ng strle n = Ien

18、 _trim(stri ng)do i = 1, strle nStri ng(i:i) = char( ichar(stri ng(i:i) + key )end dowrite(*,"('Stri ng:',A20)") Stri ngstopendBCDIJK回車 則最后輸出的結(jié)果為：DEFKLM6、閱讀下列FORTRA程序:PrOgram example implicit nonein teger i,jdo i=1,2do j=2, 3, 2write(*, "(I2,I2)") i,jend doWrite(*,*) &quo

19、t;ano ther circle"end dostopend程序運行的結(jié)果是ano ther CirGIe2 2 ano ther GirGIe（按輸出格式，1、2前均有一空格。若題目無特殊說明，不需表達(dá)出；若有說明，貝U 空格用“”表示）7、閱讀下列FoRTRA程序：PrOgram exampleimplicit nonein teger : dest = 6in teger floordo floor=1, destif ( floor=2 .or. floor=4 ) cycleWrite(*,*) floorend dostopend程序運行的結(jié)果是：_J35 68閱讀下列

20、FORTRAN7程序：PrOgram exampleimplicit nonein teger, Parameter : Iimit=10in teger CoUn terin teger : ans = 0CoUn ter = 1do while( CoUn ter <= limit )ans = ans + CoUn terCoUn ter = CoUn ter + 2end doWrite(*,*) ansstopend程序運行的結(jié)果是：J59、閱讀下列FORTRA程序：PrOgram example implicit nonein teger, Parameter : StUde

21、 nts = 5in teger : StUde nt(stude nts) = (/ 80, 90, 85, 75, 95 /)in teger ido while( .true.)Write(*,*) "Query:"read(*,*) iif ( i<=0 .or. i>stude nts) exitWrite(*,*) StUde nt(i)end dostopend運行上述程序時，如果從鍵盤輸入3<回車>則最后輸出的結(jié)果為：.8510、閱讀下列 FoRTRA程序：Program exampleimplicit nonein teger, P

22、arameter : L=2, M=3, N=2real : A(L,M) = (/ 1,2,3,4,5,6/)real : B(M,N) = (/ 1,2,3,4,5,6/)real : C(L,N)in teger : i,j,kdo i=1,Ldoj=1,NC(i,j)=do 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程序運行的結(jié)果是：22 4928 64 11、閱讀下列 FORTRANl序：PrOgram exampleimplicit nonein

23、 teger : i,jloop1: do i=1,3loop2: do j=1,3if ( i=3 ) exit Iooplif ( j=2 ) cycle Ioop2write(*, "('(',i2,',',i2,')')" ) i, jend do Ioop2end do Ioop1stopend程序運行的結(jié)果是：(1,1)(1.3) (2,1)(2.3) 12、閱讀下列 FoRTRA程序：Program example implicit nonereal : a=call ShoW In teger(a)call S

24、hOWReal(a)stopendSUbroUt ine Show In teger( num) implicit nonein teger : numWrite(*,*) numreturnendSUbrOUt ine ShOWReal( num) implicit nonereal : numWrite(*,*) numreturnend程序運行的結(jié)果是：隨機數(shù)13、閱讀下列 FORTRA程序:PrOgram exampleimplicit nonein teger, Parameter : row = 2in teger, Parameter : col = 2in teger : m(

25、roW, col)in teger rin teger Cdata (m(r,c), r=1,2), c=1,2) /1,2,3,4/ write(*,"(l3,l3,l3,l3)") ( m(r,c), c=1,2 ), r=1,2)StoPend程序運行的結(jié)果是：1 32 414、閱讀下列 FoRTRA程序：PrOgram ex0805implicit nonein teger : a = 1in teger : b = 2Write(*,*) a,bcall add(a)call add(b)Write(*,*) a,bstopendSUbrOUti ne add(

26、num)implicit nonein teger : numnum = nu m+1returnend程序運行的結(jié)果是：122 315、閱讀下列 FORTRA程序：PrOgram exampleimplicit nonein teger, Parameter : SiZe=10in teger : a(size) = (/ 5,3,6,4,8,7,1,9,2,10 /)in teger : i,jin teger : tdo i=1, SiZe-Ido j=i+1, SiZeif ( a(i) > a(j) ) the nt=a(i)a(i)=a(j)a(j)=tend ifend d

27、oend dowrite(*,"(1OI4)") aStoPend程序運行的結(jié)果是：1 2 3 4 5 6 7 8 9 1016、閱讀下列 FoRTRA程序：Program exampleimplicit nonereal : a=1real : b=2real , external : addWrite(*,*) add(a,b)stopendfun Cti On add(a,b)implicit nonereal : a,breal : addadd = a+breturnend程序運行的結(jié)果是：(類似的題目，寫亦可，但不可寫3)17、閱讀下列 FORTRA程序：PrO

28、gram exampleimplicit nonein teger : a,bcom mon a,ba=1b=2call ShowCom mon()Write(*,*) a, bendSUbrOUt ine ShowCom mon()implicit nonein teger : nu m1, num2com mon nu m1, num2Write(*,*) num1, num2returnend程序運行的結(jié)果是：1 21 2 18、閱讀下列 FoRTRA程序：module globalimplicit nonereal a,bcom mon a,bend modulePrOgram exa

29、mpleUSe globalimplicit nonea=b=call sub()end PrOgramSUbrOUti ne sub()USe globalimplicit noneWrite(*,*) a,breturnend SUbrOUt ine程序運行的結(jié)果是：19、閱讀下列FORTRA程序：INTEGER A(3,3)DO K=1,3DO L=1,3A(K, L)=K*10+LEND DOEND DOWRITE(*,'(1X,3I3)') AEND程序運行的結(jié)果是：11 21 3112 22 32 13 23 33 20、閱讀下列FORTRA程序：INTEGER F

30、F(X,Y)=X+YA=B=B=+F(A,B)WRITE(*,20) B20 FoRMAT(1X,END程序運行的結(jié)果是21、閱讀下列FORTRA程序：X=ODO L=10, 5, 15X=X+END DOEND程序運行時執(zhí)行循環(huán)體的次數(shù)是：_0_22、閱讀下列FORTRAN7程序:DlMENSION M(4,4)DATA M1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6DO I=1,4WRITE (*,100)(M(I,J),J=1,I)END DO100 FORMAT(1X,4I2)END程序運行的結(jié)果是：J2 6 3 7 14 8 2 623、閱讀下列FORTRAI程序：CHARACTER(LEN=10) ACHARACTER(LEN=6) BDO I=1,10A(I:I)=''END DOA(1:5)='ABCDE'B='FGHIJK'A(4:9)=BWRITE(*,