最新FORTRAN程序設(shè)計(jì)復(fù)習(xí)題及答案資料

1、精品文檔FORTRA程序設(shè)計(jì)復(fù)習(xí)題精品文檔選擇題C (2)下列各FORTRA表達(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.只跟一個(gè)表達(dá)式數(shù)學(xué)式(3/5)ex+y 的FORTRA表達(dá)式是A) 3*EXP(X+Y)/5C) (3/5)*EXP(X+Y)下列FORTRAN7表達(dá)式中不合法的是A) A . GT. B . EQV C. GT. DC) .NOT . (X . LE . 0.0)下列敘述中不正確的是A) FORTRAN子程序可以單獨(dú)

2、編譯B) 3*E* *(X+Y)/5.0D) (3.0/5.0)EXP(X+Y)B) A . AND B. AND C. AND DD) A . LT. B. LT. C. LT. DB)對(duì)一個(gè)FORTRA源程序進(jìn)行編譯和連接無誤后可生成可執(zhí)行文件C) 即使編譯和連接都正確無誤，F(xiàn)ORTRAN!序運(yùn)行時(shí)仍可能出錯(cuò)D) FORTRAN連接的主要任務(wù)是把函數(shù)庫(kù)中的函數(shù)翻譯成機(jī)器指令 要任務(wù)為連接目標(biāo)文件) 在下列FORTRAN7運(yùn)算符中，優(yōu)先級(jí)最高的是A) .AND. B) .NOT. C) .OR. D) .EQ.B (6)FORTRAN 表達(dá)式"6/5+9/2*3/2" 的

3、值為A) 33 B) 1 C) 5 D) 3下列FORTRAN77表達(dá)式中，合法的是：A) 0.0 .L E.X .AND.NOT.X.GE.10.0B) 0.0.GE.X. LT.10.0C) 0.0.LE.X.GE.10.D) 10.0.LE.X.OR.AND.X.GT.0.0A)相當(dāng)于 0.0.LE.X .AND.(.NOT. ( X.GE.10.0 )提示:D (8)關(guān)于編譯一個(gè)FORTRAN!程序文件，下列說法中錯(cuò)誤的是A)B)C)D)允許編譯只有一個(gè)主程序而沒有子程序的源文件 允許編譯有多個(gè)子程序的源文件允許編譯只有一個(gè)子程序而沒有主程序的源文件 允許編譯有多個(gè)主程序的源文件在FO

4、RTRAN7源程序中，續(xù)行標(biāo)志符必須放在A)第1列B)第1-6列C)第6列D)第5列D (10)下列關(guān)于"SUBROUTINE MAP(X Y)"語(yǔ)句行的敘述中，不正確的是A)這是子程序的第一個(gè)語(yǔ)句B)字符串"MAP"是子程序名C)變量X是子程序的形參 D)子程序執(zhí)行后，MAP將返回整型數(shù)據(jù) 提示：子程序無返回值，自定義函數(shù)才有)A (11)FORTRAN表達(dá)式"2/4+0.5"的值是A) 0.5 B) 1 C) 1.0 D) 0 提示：2/4默認(rèn)等于整型，0.5=0.0D (12)FORTRAN表達(dá)式"MOD(4.9 ,

5、1.3)"的值是D)1.0C (9)A)1.3B)0.0C)4.9A (13下列FORTRA運(yùn)算符中，優(yōu)先級(jí)最低的是A)邏輯運(yùn)算符.AND.B )算術(shù)運(yùn)算符*(正確描述:C)關(guān)系運(yùn)算符= D)算術(shù)運(yùn)算符+A (14下列語(yǔ)句函數(shù)的定義中正確的是A) F(X，Y) = (X + Y)/(X*Y) + 7.0 B ) FUNCTIOhFUN(l , J , K) = 3*1 + 2*J + 0.5*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)識(shí)符中，不屬于 FORTRA

6、常量的是A) .TRUE.B) FALSE C )' ROO王 /D )' 123.0 /B (16)"整型變量 M能被整型變量 K整除”的FORTRAN7表達(dá)式是A) MOD(MK) = 0(MOD(M K)= =0) B)M- M/K*K .EQ. 0C) MOD(KM)= 0D)MOD(M K) = 0 =.TRUE.C (17)設(shè)有下列數(shù)組說明語(yǔ)句：REAL: A(1:10, - 1:10)D) TRUE該數(shù)組說明語(yǔ)句定義了數(shù)組A中的元素個(gè)數(shù)為A) 100 B)110C) 120D ) 121A (18)按隱含規(guī)則(默認(rèn)為整型)，語(yǔ)句IP=3.1415926執(zhí)

7、行之后，IP的值是A) 3B) 3.1416C) 3.141592D)3.141593D (19)下列數(shù)據(jù)中，不符合 FORTRAN常量表示法的是C (20)設(shè)C是復(fù)型變量，A) C= A+BC) C=(2.0,3D-2)A與B為有定義的實(shí)型變量，下列賦值語(yǔ)句中合法的是B) C=(3.5,1.5*2 )D) C=( A+ B, A-B)A) -25.6 B) 2.758D3C) 'FOOT '='B (21)有矩陣(數(shù)組)11112 2 2 2_F列DATA語(yǔ)句中正確的是A) DATA B/4*1.0,4*2.0/B) DATA(B(I,J), J=1,4), I=1,

8、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)嵌套時(shí)，下列敘述中正確的是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á)式中，各種運(yùn)算的順序是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)系

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

10、10,A(I)A (26)下列DO語(yǔ)句中，不正確實(shí)現(xiàn)循環(huán)的是(I-N 規(guī)則：I-N會(huì)被視為整型)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結(jié)構(gòu)中的THEN塊或ELSE塊不能是空塊B）塊IF結(jié)構(gòu)中至少有一個(gè) ELSE IF 語(yǔ)句或 ELSE語(yǔ)句C）每個(gè)ELSE IF語(yǔ)句要有一個(gè)對(duì)應(yīng)的 END IF語(yǔ)句D）一個(gè)塊IF結(jié)構(gòu)中只能有一個(gè) END IF語(yǔ)句A (28)下列數(shù)組說明語(yǔ)句中正確的是A) INTEGE

11、R A(-1:5,0:6)C) DOUBLE Y(1:N+1)B) REAL M(10:5)D) DOUBLE Z(14)B （29）設(shè)有一個(gè)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)用上述子程序的 正確語(yǔ)句是A) CALL SS(2.4,W*W,5,5.9,Z)B) CALL SS(0.0,4.2,P,Q,R)C) CALL SS(F,G,7.2,5.1)D) CALL SS(4.4*I,5.8*J,C,D)（

12、多了一個(gè)）（多了一個(gè)）（l,J可先賦值）A (30)在下列語(yǔ)句函數(shù)的定義中正確的是A) F(X,Y)=(X+Y)/(X*Y)+7.0C) H(A,B,C(I)= SIN(A) +SIN(B)+ C(I )B) FUNCTION,J,K)=3*I+2*J+0.5*KD) S(A,B,C)=A*B+ S(A*A,B,C)B （31） COM MON句的功能是A）給同一程序模塊中的若干變量分配同一存儲(chǔ)單元B）給不同程序模塊中的變量分配相同的存儲(chǔ)單元C）給程序中任意兩個(gè)變量分配相同的存儲(chǔ)單元D）給同一程序模塊中的不同變量分配相同的存儲(chǔ)單元B （32）下列表達(dá)式中值為整數(shù)4的是A) SQRT(16.0)

13、B)27/6C (34)語(yǔ)句 K=2+3.0*2/2A) 6.5執(zhí)行后，整型變量B） 5C) 16*0.5K的值是C) 6D) 4*1.0D) 7C （36）適用于字符型I/O的FORTRAN77格式編輯將是A) Fw.dB) Iw.dC) AD) Gw.dD (37)給定子例行程序如下SUBROUTINE SUB(K,A)B=K+2 ( K為整型，B)錯(cuò)誤；A不是整型，A)錯(cuò)誤；K為傳入，可為表達(dá)式,A=A+B A為傳出，不能為表達(dá)式)ENDF列調(diào)用語(yǔ)句中正確的是A) CALL SUB(N,N)B) CALL SUB(X,X)C) CALL SUB(N+2,X)D) CALL SUB(N,X

14、+3)C (38) 下列FORTRAN句中，正確的是A) READ(*,*) (N,A(K),K=1,N)B) WRITE(*,*) (M(K,J),K=1,10, J=1,10)C) WRITE(*,*) (10,A(K),K=1,10)D) DATA A,B,C/ 2*0.0 /C (39)對(duì)于下列給定的 FORTRAN明和賦初值語(yǔ)句：INTEGER A(2，2)DATA A/3，4，5，6/數(shù)組元數(shù)A(2， 1)的初值為A) 3 B) 5C) 4 D) 6C(40)下列對(duì)公用區(qū)的說明語(yǔ)句中錯(cuò)誤的是A) COMMON A(5), B B) COMMON/AB/ A(5), BC) COMM

15、ON AB/A(5), B/ D) COMMON/A(5), BD (41)下列各邏輯IF語(yǔ)句中正確的是A) IF(X<0.0) THEN 10B) 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、閱讀下列FORTRAN1序：program examplereal a,b,ca=1.0b=2.0c=3.0write(*,"(3(F5.2)") a,b,cend程序運(yùn)行的結(jié)果是：

16、1.00 2.00 3.002、閱讀下列FORTRA程序：program examplein teger : a=1in teger : b=2real : cc=a/bwrite(*,"(F5.2)") cend程序運(yùn)行結(jié)果是：0.003、閱讀下列FORTRA程序：program exampleimplicit nonein teger rain, win dspeedwrite(*,*) "Rai n:"read(*,*) rainwrite(*,*) "Win d:"read(*,*) win dspeedIf ( ra in&

17、gt;=500 .or. win dspeed >=10 ) the n write(*,*)"停止上班上課"elsewrite(*,*)"照常上班上課”end ifstopend運(yùn)行上述程序時(shí)，如果從鍵盤輸入Rain :505<回車>Win d：8< 回車>則最后輸出的結(jié)果為：_停止上班上課_4、閱讀下列FORTRA程序：program exampleimplicit nonereal a,b,a nscharacter operator read(*,*) aread(*,"(A1)") operator re

18、ad(*,*) bselect case(operator)case('+')ans = a+bcase('-')ans = a-bcase('*')ans = a*bcase('/')ans = a/bcase defaultwrite(*,"(' Unknown operator',A1)") operator stopend selectwrite(*,"(F6.2,A1,F6.2,'=',F6.2)") a,operator,b,ans stopend

19、運(yùn)行上述程序時(shí)，如果從鍵盤輸入100回車?回車200回車則最后輸出的結(jié)果為：_Unknown operator ?5、閱讀下列FORTRA程序：program exampleimplicit nonein teger iin teger strle nin teger, parameter : key = 2 character(le n=20) : stri ng write(*,*) "En coded stri ng:" read(*,*) stri ng strle n = len_trim(stri ng)do i = 1, strle nstri ng(i:i)

20、 = 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(*, "(12,12)") i,jend dowrite(*,*) "ano ther circle"end dostopend程序運(yùn)行的結(jié)果

21、是：12ano ther circle2 2 ano ther circle(按輸出格式，1、2前均有一空格。若題目無特殊說明，不需表達(dá)出；若有說明，則空格 用"”表示)7、閱讀下列FORTRA程序：program exampleimplicit nonein teger : dest = 6in teger floordo floor=1, destif ( floor=2 .or. floor=4 ) cyclewrite(*,*) floorend dostopend程序運(yùn)行的結(jié)果是：_J35 68、閱讀下列 FORTRAN7程序: program exampleimplici

22、t nonein teger, parameter : limit=10in teger coun terin teger : ans = 0coun ter = 1do while( coun ter <= limit )ans = ans + coun tercoun ter = coun ter + 2end dowrite(*,*) ansstopend程序運(yùn)行的結(jié)果是：259、閱讀下列FORTRAN!序：program exampleimplicit nonein teger, parameter : stude nts = 5in teger : stude nt(stude

23、 nts) = (/ 80, 90, 85, 75, 95 /)in teger ido while( .true.)write(*,*) "Query:"read(*,*) iif ( i<=0 .or. i>students ) exitwrite(*,*) stude nt(i)end dostopend運(yùn)行上述程序時(shí)，如果從鍵盤輸入3<回車>則最后輸出的結(jié)果為：_8510、閱讀下列 FORTRA程序：program exampleimplicit nonein teger, parameter : L=2, M=3, N=2real : A(

24、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) = 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é)果是：22 4928 64 11、閱讀下列 FORTRA程序：program exampleimplicit nonein teger : i,jloopl: do i=1,3Io

25、op2: do j=1,3if ( i=3 ) exit looplif ( j=2 ) cycle Ioop2write(*, "('(',i2,',',i2,')')") i, jend do loop2end do loop1stopend程序運(yùn)行的結(jié)果是：(1,1)(1.3) (2,1)(2.3) 12、閱讀下列 FORTRA程序：program example implicit nonereal : a=1.0call Show In teger(a)call ShowReal(a)stopendsubrout in

26、e Show In teger( num) implicit nonein teger : numwrite(*,*) numreturnendsubrout ine ShowReal( num) implicit nonereal : numwrite(*,*) numreturnend程序運(yùn)行的結(jié)果是：隨機(jī)數(shù)1.000000 13、閱讀下列 FORTRA程序： program exampleimplicit nonein teger, parameter : row = 2in teger, parameter : col = 2in teger : m(row, col)in teger

27、 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程序運(yùn)行的結(jié)果是：1 32 414、閱讀下列 FORTRA程序： program ex0805 implicit nonein teger : a = 1 in teger : b = 2 write(*,*) a,b call add(a) call add(b) write(*,*) a,b stop end subrouti ne add( num)

28、implicit nonein teger : numnum = nu m+1returnend程序運(yùn)行的結(jié)果是：122 315、閱讀下列 FORTRA程序：program exampleimplicit nonein teger, parameter : size=10integer : a(size) = (/ 5,3,6,4,8,7,1,9,2,10 /)in teger : i,jin teger : tdo i=1, size-1do j=i+1, sizeif ( a(i) > a(j) ) the nt=a(i)a(i)=a(j)a(j)=tend ifend doend

29、dowrite(*,"(1OI4)") astopend程序運(yùn)行的結(jié)果是 ：1 2 3 4 5 6 7 8 9 1016、閱讀下列 FORTRA程序：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、閱讀下列 FORTR

30、A程序：program 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程序運(yùn)行的結(jié)果是：1 21 218、閱讀下列 FORTRA程序：module globalimplicit nonereal a,bcom mon a,bend moduleprogr

31、am exampleuse globalimplicit nonea=1.0b=2.0call sub()end programsubrouti ne sub()use globalimplicit nonewrite(*,*) a,breturnend subrout ine程序運(yùn)行的結(jié)果是:1.000000 2.00000019、閱讀下列FORTRA程序：INTEGER A(3,3)DO K=1,3DO L=1,3A(K,L)=K*10+LEND DOEND DOWRITE(*,'(1X,3I3)') AEND程序運(yùn)行的結(jié)果是：11 21 3112 22 32 13 23

32、33 20、閱讀下列FORTRA程序：INTEGER FF(X,Y)=X+YA=-2.5B=4.0B=1.0+F(A,B)WRITE(*,20) B20 F0RMAT(1X,F4.1)END程序運(yùn)行的結(jié)果是：空21、閱讀下列FORTRA程序：X=0DO L=10, 5, 15X=X+1.0END DOEND程序運(yùn)行時(shí)執(zhí)行循環(huán)體的次數(shù)是：衛(wèi)_22、閱讀下列 FORTRAN7程序：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(l,J),J=1,l)END DO100 FORMAT(1X,4I2)END程序運(yùn)行的結(jié)果是：J2 6 3 7 14 8 2 623、閱讀下列FORTRA程序：CHARACTER(LEN=10) ACHARACTER(LEN=6) BDO 1=1,10A(I：I)=''END DOA(1：5)='ABCDE'B='FGHIJK'A(4：9)=BWRITE(*,100) A100 FORMAT(1X,A)END程序運(yùn)行結(jié)果是：ABCFGHIJK 24、 閱讀下列FORTR