最新FORTRAN程序設(shè)計復習題及答案資料

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

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)對一個FORTRA源程序進行編譯和連接無誤后可生成可執(zhí)行文件C) 即使編譯和連接都正確無誤，F(xiàn)ORTRAN!序運行時仍可能出錯D) FORTRAN連接的主要任務是把函數(shù)庫中的函數(shù)翻譯成機器指令 要任務為連接目標文件) 在下列FORTRAN7運算符中，優(yōu)先級最高的是A) .AND. B) .NOT. C) .OR. D) .EQ.B (6)FORTRAN 表達式"6/5+9/2*3/2" 的

3、值為A) 33 B) 1 C) 5 D) 3下列FORTRAN77表達式中，合法的是：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)相當于 0.0.LE.X .AND.(.NOT. ( X.GE.10.0 )提示:D (8)關(guān)于編譯一個FORTRAN!程序文件，下列說法中錯誤的是A)B)C)D)允許編譯只有一個主程序而沒有子程序的源文件 允許編譯有多個子程序的源文件允許編譯只有一個子程序而沒有主程序的源文件 允許編譯有多個主程序的源文件在FO

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

5、1.3)"的值是D)1.0C (9)A)1.3B)0.0C)4.9A (13下列FORTRA運算符中，優(yōu)先級最低的是A)邏輯運算符.AND.B )算術(shù)運算符*(正確描述:C)關(guān)系運算符= D)算術(shù)運算符+A (14下列語句函數(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下列標識符中，不屬于 FORTRA

6、常量的是A) .TRUE.B) FALSE C )' ROO王 /D )' 123.0 /B (16)"整型變量 M能被整型變量 K整除”的FORTRAN7表達式是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ù)組說明語句：REAL: A(1:10, - 1:10)D) TRUE該數(shù)組說明語句定義了數(shù)組A中的元素個數(shù)為A) 100 B)110C) 120D ) 121A (18)按隱含規(guī)則(默認為整型)，語句IP=3.1415926執(zhí)

7、行之后，IP的值是A) 3B) 3.1416C) 3.141592D)3.141593D (19)下列數(shù)據(jù)中，不符合 FORTRAN常量表示法的是C (20)設(shè)C是復型變量，A) C= A+BC) C=(2.0,3D-2)A與B為有定義的實型變量，下列賦值語句中合法的是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語句中正確的是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)嵌套時，下列敘述中正確的是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表達式中，各種運算的順序是A) 邏輯運算，關(guān)系運算，算術(shù)運算C)關(guān)系運算，邏輯運算，算術(shù)運算B) 算術(shù)運算，關(guān)系

9、運算，邏輯運算D) 關(guān)系運算，算術(shù)運算，邏輯運算D (23)賦值語句X=4*(6/12)=4*0=1.0執(zhí)行后，實型變量X的值是D) 1.0A) 2B) 2.0C) 1D （24）為了保證正確出數(shù)據(jù),格式編輯符Ew.d中w與d的關(guān)系應該是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,J),I=1,1O,J=1,1O)D) READ(*,*)(I=1,

10、10,A(I)A (26)下列DO語句中，不正確實現(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結(jié)構(gòu)中的THEN塊或ELSE塊不能是空塊B）塊IF結(jié)構(gòu)中至少有一個 ELSE IF 語句或 ELSE語句C）每個ELSE IF語句要有一個對應的 END IF語句D）一個塊IF結(jié)構(gòu)中只能有一個 END IF語句A (28)下列數(shù)組說明語句中正確的是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è)有一個FORTRAN7子程序如下SUBROUTINE SS(X,Y,S,T)S=X+Y（S,T為傳出，即需要輸出的（相當于求圓的面積中的area），只能T=X*Y 為確定的數(shù)；X,Y為傳入（相當于radius），可為表達式）END調(diào)用上述子程序的 正確語句是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、多了一個）（多了一個）（l,J可先賦值）A (30)在下列語句函數(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）給同一程序模塊中的若干變量分配同一存儲單元B）給不同程序模塊中的變量分配相同的存儲單元C）給程序中任意兩個變量分配相同的存儲單元D）給同一程序模塊中的不同變量分配相同的存儲單元B （32）下列表達式中值為整數(shù)4的是A) SQRT(16.0)

13、B)27/6C (34)語句 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)錯誤；A不是整型，A)錯誤；K為傳入，可為表達式,A=A+B A為傳出，不能為表達式)ENDF列調(diào)用語句中正確的是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)對于下列給定的 FORTRAN明和賦初值語句：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), B B) COMMON/AB/ A(5), BC) COMM

15、ON AB/A(5), B/ D) COMMON/A(5), BD (41)下列各邏輯IF語句中正確的是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程序運行的結(jié)果是：

16、1.00 2.00 3.002、閱讀下列FORTRA程序：program examplein teger : a=1in teger : b=2real : cc=a/bwrite(*,"(F5.2)") cend程序運行結(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運行上述程序時，如果從鍵盤輸入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、運行上述程序時，如果從鍵盤輸入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程序運行的結(jié)果

21、是：12ano ther circle2 2 ano ther circle(按輸出格式，1、2前均有一空格。若題目無特殊說明，不需表達出；若有說明，則空格 用"”表示)7、閱讀下列FORTRA程序：program exampleimplicit nonein teger : dest = 6in teger floordo floor=1, destif ( floor=2 .or. floor=4 ) cyclewrite(*,*) floorend dostopend程序運行的結(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程序運行的結(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運行上述程序時，如果從鍵盤輸入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程序運行的結(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程序運行的結(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程序運行的結(jié)果是：隨機數(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程序運行的結(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程序運行的結(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程序運行的結(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程序運行的結(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程序運行的結(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程序運行的結(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程序運行的結(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程序運行的結(jié)果是：空21、閱讀下列FORTRA程序：X=0DO L=10, 5, 15X=X+1.0END DOEND程序運行時執(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程序運行的結(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程序運行結(jié)果是：ABCFGHIJK 24、 閱讀下列FORTR