FORTRAN程序設(shè)計(jì)復(fù)習(xí)題及答案(共16頁(yè))

1、精選優(yōu)質(zhì)文檔-傾情為你奉上FORTRAN程序設(shè)計(jì)復(fù)習(xí)題一、 選擇題B (1)下列各FORTRAN表達(dá)式中合法的是A) S+T*2P = 0.0 B) .NOT. (A*B+C) C) A2+B2/(C+D) = D)算術(shù)運(yùn)算符 A (14下列語(yǔ)句函數(shù)的定義中正確的是A）F(X，Y)(XY)/(X*Y)7.0 B）FUNCTION FUN(I，J，K)3*I2*J0.5*KC）H(A，B，C(I)SIN(A)SIN(B)C(I) D)S(A，B，C)A*BS(A*A，B，C) B（15下列標(biāo)識(shí)符中，不屬于FORTRAN常量的是A）.TRUE. B）FALSE C）ROOT D）123.0 B（1

2、6）整型變量M能被整型變量K整除的FORTRAN77表達(dá)式是A）MOD(M，K)0 （MOD(M，K)= =0） B）MM/K*K .EQ. 0C）MOD(K，M)0 D）MOD(M，K)0 = .TRUE. C（17）設(shè)有下列數(shù)組說(shuō)明語(yǔ)句：REAL: A(1:10，1:10)該數(shù)組說(shuō)明語(yǔ)句定義了數(shù)組A中的元素個(gè)數(shù)為A）100 B）110 C）120 D）121A (18)按隱含規(guī)則（默認(rèn)為整型），語(yǔ)句IP=3.執(zhí)行之后，IP的值是A) 3 B) 3.1416C) 3. D)3.D (19)下列數(shù)據(jù)中，不符合 FORTRAN常量表示法的是A) -25.6 B) 2.758D3 C)FOOT=

3、D) TRUEC (20)設(shè)C是復(fù)型變量，A與B為有定義的實(shí)型變量，下列賦值語(yǔ)句中合法的是A) C=A+BB) C=(3.5,1.5*2)C) C=(2.0,3D-2)D) C=(AB,A-B)B (21)有矩陣(數(shù)組) 下列DATA語(yǔ)句中正確的是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)嵌套時(shí)，下列敘述中正確的是A) 不僅可以從循環(huán)體內(nèi)轉(zhuǎn)到

4、循環(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)算的順序是A) 邏輯運(yùn)算，關(guān)系運(yùn)算，算術(shù)運(yùn)算B) 算術(shù)運(yùn)算，關(guān)系運(yùn)算，邏輯運(yùn)算C) 關(guān)系運(yùn)算，邏輯運(yùn)算，算術(shù)運(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的值是A) 2 B) 2.0 C) 1 D) 1.0D (24)為了保證正確出數(shù)據(jù),格式編輯符Ew.d中w與d的關(guān)系應(yīng)該

5、是A) wd B) wd+2 C) wd+4 D) wd+6C (25)設(shè)下列各語(yǔ)句中用到的數(shù)組都已定義,則下列語(yǔ)句中正確的是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)下列DO語(yǔ)句中,不正確實(shí)現(xiàn)循環(huán)的是(I-N規(guī)則：I-N會(huì)被視為整型)A) DO 10 S=-1.6,-5.3,-0.4 B) DO 10 K=-1.6,-5.3,-0.4C) DO 10 S=-5.3,-1.6,-0.4 D) DO 10

6、 K=1.6,5.3,-1.4D (27)下列說(shuō)法中正確的是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ù)組說(shuō)明語(yǔ)句中正確的是A) INTEGER A(-1:5,0:6) B) REAL M(10:5)C) DOUBLE Y(1:N+1) D) DOUBLE Z(14)B (29)設(shè)有一個(gè)FORTRAN77子程序如下: SUBROUTINE SS(X,Y,S,T) S=X+Y（S,T為傳出，即需要輸

7、出的（相當(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)（多了一個(gè)） B) CALL SS(0.0,4.2,P,Q,R) （多了一個(gè)）C) CALL SS(F,G,7.2,5.1) D) CALL SS(4.4*I,5.8*J,C,D)（I,J可先賦值）A (30)在下列語(yǔ)句函數(shù)的定義中正確的是A) F(X,Y)=(X+Y)/(X*Y)+7.0B) FUNCTION(I,J,K)=3*I+2*J+0.5*KC) H(A,B,C(I)=SIN(A)+

8、SIN(B)+C(I)D) S(A,B,C)=A*B+S(A*A,B,C)B (31)COMMON語(yǔ)句的功能是A) 給同一程序模塊中的若干變量分配同一存儲(chǔ)單元B) 給不同程序模塊中的變量分配相同的存儲(chǔ)單元C) 給程序中任意兩個(gè)變量分配相同的存儲(chǔ)單元D) 給同一程序模塊中的不同變量分配相同的存儲(chǔ)單元B (32)下列表達(dá)式中值為整數(shù)4的是A) SQRT(16.0)B)27/6 C) 16*0.5D) 4*1.0C (34)語(yǔ)句K=2+3.0*2/2執(zhí)行后，整型變量 K的值是A) 6.5B) 5C) 6D) 7C (36)適用于字符型 I/O的 FORTRAN77格式編輯將是A) Fw.dB) Iw

9、.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á)式）END下列調(diào)用語(yǔ)句中正確的是A) CALL SUB(N,N) B) CALL SUB(X,X)C) CALL SUB(N+2,X)D) CALL SUB(N,X+3)C (38) 下列FORTRAN語(yǔ)句中，正確的是 A) READ(*,*) (N,A(K),K=1,N) B) WRITE(*,*) (M(K,J),K=1,10, J=1,10) C) WRITE(*,*) (10,A(K),

10、K=1,10) D) DATA A,B,C/2*0.0/ C (39)對(duì)于下列給定的FORTRAN說(shuō)明和賦初值語(yǔ)句： INTEGER A(2，2) DATA A/3，4，5，6/ 數(shù)組元數(shù)A(2，1)的初值為 A) 3 B) 5 C) 4 D) 6 C (40)下列對(duì)公用區(qū)的說(shuō)明語(yǔ)句中錯(cuò)誤的是 A) COMMON A(5), B B) COMMON/AB/ A(5), B C) COMMON AB/A(5), B/ D) COMMON/A(5), BD (41)下列各邏輯IF語(yǔ)句中正確的是A) IF(X=0.0).AND.(X.LT.1.0)Y=2*X+1.0C) IF(0.0=X= 0.0.

11、AND.X =500 .or. windspeed =10 ) then write(*,*) 停止上班上課 else write(*,*) 照常上班上課 end ifstopend運(yùn)行上述程序時(shí)，如果從鍵盤輸入 Rain：505Wind： 8則最后輸出的結(jié)果為: 停止上班上課 4、閱讀下列FORTRAN程序:program exampleimplicit none real a,b,ans character operator read(*,*) a read(*,(A1) operator read(*,*) b select case(operator) case(+) ans = a+

12、b case(-) ans = a-b case(*) ans = a*b case(/) ans = a/b case default write(*,(Unknown operator ,A1) operatorstop end select write(*,(F6.2,A1,F6.2,=,F6.2) a,operator,b,ans stopend運(yùn)行上述程序時(shí)，如果從鍵盤輸入 100?200則最后輸出的結(jié)果為: Unknown operator ? 5、閱讀下列FORTRAN程序：program exampleimplicit none integer i integer strlen

13、 integer, parameter : key = 2 character(len=20) : string write(*,*) Encoded string: read(*,*) string strlen = len_trim(string) do i = 1, strlen string(i:i) = char( ichar(string(i:i) + key ) end do write(*,(String:,A20) string stopendBCDIJK則最后輸出的結(jié)果為: DEFKLM 6、閱讀下列FORTRAN程序： program exampleimplicit no

14、ne integer i,j do i=1, 2 do j=2, 3, 2 write(*, (I2,I2) i,jend dowrite(*,*) another circle end do stopend程序運(yùn)行的結(jié)果是: 1 2 another circle 2 2 another circle （按輸出格式，1、2前均有一空格。若題目無(wú)特殊說(shuō)明，不需表達(dá)出；若有說(shuō)明，則空格用“”表示）7、閱讀下列FORTRAN程序：program exampleimplicit none integer : dest = 6 integer floor do floor=1, dest if ( fl

15、oor=2 .or. floor=4 ) cyclewrite(*,*) floor end do stopend程序運(yùn)行的結(jié)果是: 1 3 5 6 8、閱讀下列FORTRAN77程序：program exampleimplicit none integer, parameter : limit=10 integer counter integer : ans = 0 counter = 1 do while( counter = limit ) ans = ans + counter counter = counter + 2 end do write(*,*) ans stopend程序運(yùn)

16、行的結(jié)果是: 25 9、閱讀下列FORTRAN程序：program exampleimplicit none integer, parameter : students = 5 integer : student(students) = (/ 80, 90, 85, 75, 95 /) integer i do while( .true. ) write(*,*) Query: read(*,*) i if ( istudents ) exit write(*,*) student(i) end do stopend運(yùn)行上述程序時(shí)，如果從鍵盤輸入 3則最后輸出的結(jié)果為: 85 10、閱讀下列F

17、ORTRAN程序：program exampleimplicit none integer, parameter : L=2, M=3, N=2 real : A(L,M) = (/ 1,2,3,4,5,6/) real : B(M,N) = (/ 1,2,3,4,5,6/) real : C(L,N) integer : i,j,k do i=1,L do j=1,N C(i,j) = 0.0 do k=1,M C(i,j) = C(i,j)+A(i,k)*B(k,j) end doend do end do do i=1,L write(*,*) C(i,:) end do stopend

18、程序運(yùn)行的結(jié)果是: 22 49 28 64 11、閱讀下列FORTRAN程序：program exampleimplicit none integer : i,j loop1: do i=1,3 loop2: do j=1,3 if ( i=3 ) exit loop1 if ( j=2 ) cycle loop2 write(*, (,i2,i2,) ) i, j end do loop2 end do loop1 stopend程序運(yùn)行的結(jié)果是: (1,1) (1,3) (2,1) (2,3) 12、閱讀下列FORTRAN程序：program exampleimplicit none re

19、al : a=1.0 call ShowInteger(a) call ShowReal(a) stopendsubroutine ShowInteger(num)implicit none integer : num write(*,*) num returnendsubroutine ShowReal(num)implicit none real : num write(*,*) num returnend程序運(yùn)行的結(jié)果是: 隨機(jī)數(shù) 1. 13、閱讀下列FORTRAN程序：program exampleimplicit none integer, parameter : row = 2 i

20、nteger, parameter : col = 2 integer : m(row, col) integer r integer c data (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 3 2 4 14、閱讀下列FORTRAN程序：program ex0805implicit none integer : a = 1 integer : b = 2 write(*,*) a,b call add(a) call add(b)

21、 write(*,*) a,b stopendsubroutine add(num)implicit none integer : num num = num+1 return end程序運(yùn)行的結(jié)果是: 1 2 2 3 15、閱讀下列FORTRAN程序：program exampleimplicit none integer, parameter : size=10 integer : a(size) = (/ 5,3,6,4,8,7,1,9,2,10 /) integer : i,j integer : t do i=1, size-1 do j=i+1, size if ( a(i) a(

22、j) ) then t=a(i) a(i)=a(j)a(j)=t end ifend do end do write(*,(10I4) a stopend程序運(yùn)行的結(jié)果是: 1 2 3 4 5 6 7 8 9 10 16、閱讀下列FORTRAN程序：program exampleimplicit none real : a=1 real : b=2 real, external : add write(*,*) add(a,b) stopendfunction add(a,b)implicit none real : a,b real : add add = a+b returnend程序運(yùn)行

23、的結(jié)果是: 3. (類似的題目，寫3.0亦可，但不可寫3)17、閱讀下列FORTRAN程序：program exampleimplicit none integer : a,b common a,b a=1 b=2 call ShowCommon() write(*,*) a, b endsubroutine ShowCommon()implicit none integer : num1, num2 common num1, num2 write(*,*) num1, num2 returnend程序運(yùn)行的結(jié)果是: 1 2 1 2 18、閱讀下列FORTRAN程序：module global

24、 implicit none real a,b common a,bend moduleprogram example use global implicit none a=1.0 b=2.0 call sub()end programsubroutine sub() use global implicit none write(*,*) a,b returnend subroutine程序運(yùn)行的結(jié)果是: 1. 2. 19、閱讀下列FORTRAN程序: INTEGER A(3,3) DO K=1,3 DO L=1,3 A(K,L)=K*10+L END DO END DOWRITE(*,(1X

25、,3I3) A END 程序運(yùn)行的結(jié)果是: 11 21 31 12 22 32 13 23 33 20、閱讀下列FORTRAN程序: INTEGER F F(X,Y)=X+Y A=-2.5 B=4.0 B=1.0+F(A,B) WRITE(*,20) B 20 FORMAT(1X,F4.1) END 程序運(yùn)行的結(jié)果是: 2.0 21、閱讀下列FORTRAN程序: X=0 DO L=10, 5, 15 X=X+1.0 END DOEND 程序運(yùn)行時(shí)執(zhí)行循環(huán)體的次數(shù)是: 0 22、閱讀下列FORTRAN77程序: DIMENSION M(4,4) DATA M/1,2,3,4,5,6,7,8,9,

26、0,1,2,3,4,5,6/ DO I=1,4 WRITE (*,100)(M(I,J),J=1,I) END DO100 FORMAT(1X,4I2) END 程序運(yùn)行的結(jié)果是: 1 2 6 3 7 1 4 8 2 6 23、閱讀下列FORTRAN程序: CHARACTER(LEN=10) A CHARACTER(LEN=6) B DO I=1,10 A(I:I)= END DO A(1:5)=ABCDE B=FGHIJK A(4:9)=B WRITE(*,100) A 100 FORMAT(1X,A) END 程序運(yùn)行結(jié)果是： ABCFGHIJK 24、 閱讀下列FORTRAN程序： X=0.0 Y=2.0 CALL SUB(X,Y,Z,3.0) WRITE(*,(1X,3F5.1)X,Y,Z END SUBROUTINE SUB(A,B,X,Z) A=A+1 B=B+2.0 Y=1.0 X=X+Y END 程序運(yùn)行結(jié)果是: 1.0 4.0 1.0 25、 閱讀下列FORTRAN程序: INTEGER N(20) DO M=1,20 N(M)=0 END DOK=5 DO M=1,K DO J=1,K N(J)