計算機技術(shù)基礎(chǔ)(Fortran)試題庫..

1、、選擇題1、下列關(guān)于 "SUBROUTINE MAP(，X Y)" 語句行的敘述中，不正確的是 ( )A) 這是子程序的第一個語句B) 字符串"MAP"是子程序名C)變量X是子程序的形參D)子程序執(zhí)行后，MAP各返回整型數(shù)據(jù)2、FORTRAN表達(dá)式"2/4+0.5"的值是()A) 0.5 B) 1 C) 1.0 D) 03、閱讀下列FORTRA程序：PI=3.14159265WRITE(*,'(F7.4) ')PIEND程序運行后輸出結(jié)果是 ( )A) 3.142 B) 3.1415 C) 0.31416 D) 3.1

2、4164、圓的直徑存放在整型變量K之中，下列計算圓面積的表達(dá)式中正確的是()A) 3.1415926*K*K/4B) 3.1415926*(K*K/4)C) 3.1415926*(K/2)*2D) 3.1415926*(K/2)*(K/2)5、 要判斷”月收入 M在2000元以上(含2000元)且5000元以下)不含5000元)"的職工，應(yīng)該使用的邏輯表達(dá)式是 ( )A) M .GE. 2000 .AND. M .LE. 5000 B) M .GE. 2000 .OR. M .LE. 5000C) M .GE. 2000 .AND. M .LT. 5000 D) M .GE. 200

3、0 .OR. M .LT. 50006、設(shè)FORTRA子程序如下：SUBROUTINE SUB(，I X)B=I+1X=X+BEND若主程序中的變量 MB已按I-N規(guī)則賦值，則調(diào)用上述子程序的語句中正確的是()A) CALL SUB(M， M)B) CALL SUB(M+4 ， B)C) CALL SUB(B， B)D) CALL SUB(M， B+4)7、下列不是FORTRA常量的是()A) (3.0,4.0) B) 3.1416D+00 C) 2/3 D) 'Very good!'8、閱讀下列FORTRAI程序: F=1.0DO 20 K=3, 7, 3DO 20 L=K-

4、1, K20 WRTTE(*,'(I3, F8.1)'K, F*KEND 程序運行結(jié)果的最后一行是 ( )A) 3 6.0 B) 6 6.0 C) 6 180.0 D) 7 180.09、 在FORTRA中，下列運算符的優(yōu)先順序是()A) 邏輯運算，關(guān)系運算，算術(shù)運算B)關(guān)系運算，邏輯運算，算術(shù)運算C) 算術(shù)運算，關(guān)系運算，邏輯運算D)關(guān)系運算，算術(shù)運算，邏輯運算10、使用FORTRA內(nèi)部函數(shù)時，所給的自變量 ()A) 只能是常量B)只能是變量C) 只能是常量或者變量 D) 可以是常量、變量或者表達(dá)式11、設(shè) X=2.0, Y=8.0, Z=6.0, L=.TRUE., 則下列

5、 FORTRA表達(dá)式中值為.TRUE的是()A) X+Z.GT.Y.AND.LB) .NOT.(Y.LT.Z+X).NEQV.NOT.LC) .NOT.L.OR.(L.EQV.Y+X.EQ.Z) D) Y+X.GE.Z+X.AND.(L.AND.FALSE.)12 、 下列輸出語句行中正確的是 ( )A) WRITE(* ， *)(A(K ， L) ， K=1， 3， L=1， 3)B) WRITE(* ， *)A(K ， L) ， K=1， 3， L=1， 3C) WRITE(* ， *)(A(K ， L) ， K=1， 3)， L=1 ， 3)D) WRITE(* ， *)(A(K ， L

6、) ， K=1， 3) ， L=1， 313、給定下列FORTRA子程序如下：SUBROUTINE SUB(，KA)A=SQRT(K*K+1.0)END下列調(diào)用語句中正確的是( )A) CALL SUB(N,N)B) CALL SUB(X,X)C) CALL SUB(N,X*X)D) CALL SUB(11,X)14、閱讀下列FORTRA程序:INTEGER AA(2,3)DATA AA/1,2,3,4,5,6/CALL S2D19(AA)CALL S2D19(AA(1,2)ENDSUBROUTINE S2D19(BB)INTEGER BB(2,2)WRITE(*,'(1X,2I3)&

7、#39;) BB(1,1),BB(2,2)END程序運行結(jié)果是( )A) 1 4B) 1 5C) 1 4 D) 1 23 62 62 53 415、閱讀下列FORTRA程序:INTEGER A(3,3)DO 10 K=1,3DO 10 L=1,310 A(K,L)=K*10+LWRITE(*,'(1X,3I3)')AEND程序運行結(jié)果是 : ( )A) 11 21 31B) 11 12 13C) 31 32 33D) 33 32 3112 22 3221 22 2321 22 2332 22 2113 23 3331 32 3311 12 1331 21 1116、閱讀下列FO

8、RTRA程序：WRITE(*,10)'YEAR:', 199610 FORMAT(/3X,A,I4)END程序運行結(jié)果是(人代表空格，下同)()A) AAAAAYEAR:1996B) AAYEAR:1996C) 空白行D)空白行AAAAAYEAR:1996AAYEAR:199617、 某函數(shù)子程序中使用了IMPLICIT、READ COMPLE和FUNCTION四種語句,其中屬于可執(zhí)行語句的是 : ()A)FUNCTION B) READ C) COMPLEX D) IMPLICIT18、閱讀下列FORTRA程序：DIMENSION M(4,4)DATA M/1,2,3,4,5

9、,6,7,8,9，0,1,2,3,4,5,6/DO 10 I=1,4WRITE (*,100)(M(I,J),J=1,I)10 CONTINUE第 3 頁 /共 頁100 FORMAT(1X,4I2)END程序運行的結(jié)果是（)A) 1 2 3 4B) 1 5 9 3C) 1D) 16 7 8 60 4 2 62661 2 1 53 7 1 937 116 6 4 82 6 3 448 2 6619、閱讀下列FORTRA程序：CHARACTER*® A, B*6DO 10 1=1,10A(I:I)=''10 COUNTINUEA(1:5)='ABCDE'

10、B='FGHIJK'A(4:9)=BWRITE(*,100) A100 FORMAT(1X,A)END程序運行結(jié)果是：()A) ABCDEFGHIJ B) ABCDEGHIJK C) ABCFGHIJK D) BCDEFGHIJK20、閱讀下列FORTRA程序：INTRINSIC SIN , COSWRITE(*, *)FUN(SIN , 30.0)/FUN(COS,30.0)ENDFUNCTION FUN(F,X)X=X*3.14159/180FUN=F(X)ENDD) ctg30。的值Z1,Z2,Zn的標(biāo)準(zhǔn)差 d :程序運行結(jié)果是()A) sin30。的值 B) cos30

11、。的值 C) tg30。的值二、填空題1、下列FORTRA子程序的功能是用以下公式計算一組數(shù)據(jù)2 2 2 2 2(T =(Z1 +Z2 + +Zn)/n- (Z1+Z2+Zn)/n 請在程序中的下劃線處填入合適的內(nèi)容?！? 】SIGMA(Z , N)REAL Z(N)SUMX=0.0SUMX2=0.0DO 10 K=1,N【2】SUMX=SUMX+XSUMX2=SUMX2+X*X10 CONTINUEAV=SUMX/NAV2=SUMX2/NS2=AV2-AV*AVSIGMA=【3】END 2、下列FORTRAN1序的功能是將30個學(xué)生的考試成績讀入數(shù)組 A,然后統(tǒng)計并且輸出最高的 分?jǐn)?shù)以及小于

12、60分、6080分與大于80分的三個分?jǐn)?shù)段的學(xué)生數(shù)。 請在程序中的下劃線處填 入合適的內(nèi)容?！? 】A(30), B, C(3)DATA C/3*0/READ(*,*)A【5】DO 10 K=2,30IF(A(K).GT.B) B=A(K)10 CONTINUEDO 30 K=1,30IF (A(K) .L T.60)C(1)=C(1)+1IF (A(K).GT.80)C(3)=C(3)+1IF(A(K).LE.80【6】A(K).GE.60)C(2)=C(2)+130 CONTINUEWRITE(*,*) B,CEND3、下列FORTRA程序的功能是用對分法求出方程4.1x3-5.2x=11

13、.8 在區(qū)間(1 , 5)中的一個實數(shù)根，要求輸出根的近似值和對分次數(shù)。請在程序中的下劃線處填入合適的內(nèi)容?！? 】=4.4*X*3-5.2*X-11.8DATA XL,XR,N/1.0,5.0,0/10 N=N+1X=(XL+XR)/2.0FX=FUN(X)IF (ABS(FX).LT.1E-6.0R.N.GE.1000)THENWRITE(*,'(1X,A2,F12.7,A5,I4)')'X=',X,'N=', NELSEIF(FUN(XR)*FX.GE.O.O) THENXR=X【8】XL=XENDIF【9】ENDIFEND4、 下列FOR

14、TRAN1序的功能是計算多項式y(tǒng)=2+2.1x+3.2x3+5.4x5 在x=1.7時的值。主程序 調(diào)用了函數(shù)子程序 POLY請在程序中的下劃線處填入合適的內(nèi)容。PROGRAM PVALUEREAL A(6)DATA A/【10】/DATA N, X/6，1.7/Y=POLY(A,N,X)WRITE(*,'(1X,A5,6F5.1)')'a(k)=',AWRITE(*,'(1X,A2,F5.1,A6,F8.2)')'X=',X,' Y=',YENDFUNCTION POLY(B,M,V)【11】POLY=B(1)F

15、V=1.0DO 10 K=2, MFV=FV*V10 POLY=POLY+【12】END5、 下列FORTRAN1序的功能是使用篩法篩選出N以內(nèi)的所有素數(shù)并輸出。其算法如下：在N以內(nèi)的自然數(shù)列中先篩除 2的倍數(shù)(不包括2);在2之后未篩去的第一個數(shù)是 3,于是再篩 除3的倍數(shù)；在3之后未篩去的第一個數(shù)是 5,于是再篩除5的倍數(shù)；如此重復(fù)下去，直到遇見 篩剩下的第一個數(shù)是最接近 N的平方根的那個數(shù)為止。請在程序中下劃線處填入合適的內(nèi)容。PARAMETER (N=100)【13】A(N),P(N)A(1)=0DO 10 K=2,N10 A(K)=KDO 20 K=3,N20 IF(MOD(A(K)

16、,2).EQ.0)A(K)=0ISR=SQRT(FLOAT(N)DO 30 M=3,ISR,2DO 30 K=M+2, N30 IF(A(K).NE.O.AND.MOD(A(K),M).EQ.O)【14】M=1DO 40 K=1,NIF(A(K).NE.0)THENP(M)=【15】M=M+1ENDIF40 CONTINUEWRITE(*,'(1X,1OI8)')(P(K),K=1,M-1)END三、編寫程序題1、以循環(huán)來計算 1/1!+1/2!+1/3!+1/4!+1/10! 的值。2、編寫一個程序計算圓面積，輸入兩個參數(shù)，一個參數(shù)為輸入圓的半徑長，另一個參數(shù)用來 返回圓面積

17、。3、利用選擇排序法編制程序，將數(shù)組A中所有的數(shù)值(5,3,6,4,8,7,1,9,2,10)從小到大排列。第7頁/共 頁參考答案及評分標(biāo)準(zhǔn)、選擇題1、D2、A3、D4、A5、C6、B7、C8、B9、C10、D11、B12、C13、D14、A15、A16、D17、B18、C19、C20、C、填空題1】FUNCTION【2】X= Z(K)3】 SQRT(S2)【4】INTEGER或者REAL5】 B=A(1)6】 .AND.7】 FUN(X)8】 ELSE9】 GOTO 1010】 2.0, 2.1 0.0，3.2 ， 0.0 ， 5.4注：順序不可顛倒，小數(shù)點前后的 0 可以省略其中的一個。)

18、11】 DIMENSION B(M) 或者 REAL B(M)12】 B(K)*FV 或者 FV*B(K)13】 INTEGER14】 A(K)=0 或者 A(K)=0.015】 A(K)三、編寫程序題1、解題程序：program main implicit none integer, parameter : max=10 integer i real item real ans ans = 1.0 item = 1.0 do i=2,max item = item/real(i) ans = ans+item end dowrite(*,*) ans stop end program 2、解

19、題程序 : program main implicit none real radius, area write(*,*) " 請輸入半徑長 " read(*,*) radius call CircleArea(radius, area) write(*,"('面積 = 'F8.3)") areastop end program subroutine CircleArea(radius, area) implicit none real, parameter : PI=3.14159 real radius, area area = ra

20、dius*radius*PI end subroutine 3、解題程序 :program main implicit 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, sizeif ( a(i) > a(j) ) then ! a(i)跟 a(j) 交換t=a(i) a(i)=a(j) a(j)=t end if end do end do write(*,"(10

21、I4)") a stop end第 # 頁 /共 頁、選擇題1、 下列關(guān)于FORTRA源程序編輯規(guī)則的敘述之中,正確的是()A) IMPLICIT語句可以放在REAL語句行之后B) DATA語句可以在放在緊靠 END語句行之前C) 注釋行不可以放在 END語句行之后D) FORMAT語句可以放在PROGRAM句行之前2、 下列FORTRAN程序的變量名之中，不符合規(guī)則的是()A) W B) W3 C) -3 D) W3W3、 若FORTRAI中一個INTEGER型數(shù)據(jù)占用2個字節(jié)，那么該類型的數(shù)據(jù)值范圍是()A) -2147484648 2147483647 B) -32768 32

22、767C) 04294967295 D) 0655354、閱讀下列程序X=0.618WRITE(*,'(E12.4)')XEND程序運行后顯示結(jié)果是 ( )A) .6180 B) 6.180E-01 C) .0618E+01 D) .6180E+005、 梯形的上底為A,下底為B,高為H,計算其面積的FORTRA表達(dá)式中錯誤的是()A) 1/2*(AB)*H B) (A+B)*H/2C) (A+B)/2*H D) 0.5*(A+B)*H6、 要選拔身高T>1.7米且體重W<62.5公斤的人FORTRAN的邏輯表達(dá)式是()A) T.CE.1.7.AND.W.LE.62

23、.5B) T.LE.1.7.OR.W.GE.62.5C) T.GT.1.7.AND.W.LT.62.5D) T.GT.1.7.OR.W.LT.62.57、 在FORTRA的變量類型說明語句中沒有()A) REAl 語句 B) CHAR 語句 C) INTEGER 語句 D) LOGICAL 語句8、一次成功的FORTRA源程序編譯操作，不能()A) 同時編譯一個主程序和一個子程序B)同時編譯幾個子程序C) 同時編譯一個主程序和幾個子程序D)同時編譯幾個主程序9、閱讀下列程序F=1.0DO 20,J=3,7,2DO 20,K=J-1,J20 F =F*K WRITE(*,'(13,F8.

24、1)')J,F END 程序運行結(jié)果是A) 3 6.0 B) 5 120.0 C) 9 5040.0 D) 9362880.010、閱讀下列程序 CHARACTER*10 W DO K=1,10READ *,WIF (W(1:2).EQ.'AB'.OR.W(1:2).EQ.'ab')WRITE(*,*)'',W ENDDOEND 程序的功能是 ( )A) 首字符是A或B的字符串被輸出顯示B) 第一、二個字符是 AB或ab的字符串被輸出顯示C) 首字符是 a 或 b 的字符串將被輸出顯示D) 第一、二個字符是 Aa或Bb的字符串將被輸出顯示

25、11、閱讀下列程序 LOGICAL L READ(*,*)A,B L=A.GT.B IF(L)THEN X=B+2*A ELSE X=B END IF WRITE(*,*)X END使用鍵盤為上述程序輸入兩個初值4和3,其輸出的X值是()A) 4.0 B) 3.0 C) 11.0 D) 10.012、閱讀下列程序READ(*,*)K WRITE(*,100)K 100 FORMAT(I5) END程序運行時輸入初始值 12345, 那么顯示結(jié)果是A) 2345 B) 12345 C) * D) *13、閱讀下列程序INTEGER FF(X,Y)=X+YA=-2.5B=2.1B=B+F(A,B)

26、WRITE(*,'(F3.1)')BEND程序運行的結(jié)果是 ( )A) .1 B) .7 C) 2.1 D) 1.714、閱讀下列程序A=3.5CALL SUBA(A,A,A)WRITE(*,'(F4.1)')AENDSUBROUTINE SUBA(X,Y,Z)Y=Y-2.0Z=Z+XEND程序運行的結(jié)果是 ( )A) 7.0 B) 5.0 C) 3.5 D) 1.515、閱讀下列程序CHARACTER A*4,B*5,C*4DATA A,B,C/'BIG ' ,'MIDDLE','SMALL'/WRITE(*,2

27、0)A,B,C20 FORMAT(1X,A2,A3,A4)END程序運行結(jié)果是 ( )A) BIGMIDDLE B) * C) BIGMIDSMA D) BIMIDSMAL16、閱讀下列程序N=0DO 10 K=1,3N =N+1M=K*N10 CONTINUEWRITE(*,'(1X,2I3)')M,KEND程序運行結(jié)果是 ( )A) 9 4 B) 9 3 C) 12 4 D) 12 3(#A)17 、 閱讀下列程序FUN(c,d)=a*c+b/dDATA a,b/1.0,1.0/WRITE(*,'(F4.1)')FUN(a,b)-FUN(b,a)END 程序

28、運行結(jié)果是 ( )A) 0.0 B) 4.0 C) 2.O D) 3.O18 、 閱讀下列程序LOGICAL L1,L2,L3,L4,L5DATA L1,L2,L3/3*.TRUE./L4=.NOT.L1.AND.NOT.L2.AND.L3L5=.NOT.L1.OR.NOT.L2.OR.L3WRITE(*,*)L4,L5END 程序運行結(jié)果是 ( )A) T T B) T F C) F F D) F T19、閱讀下列程序DIMENSION M(3,3)DATA M/1,2,3,4,5,6,7,8,9/WRITE(*,100)(M(3,J),J=1,3)100 FORMAT(1X,3I2)END

29、 程序運行結(jié)果是 ( )A) 2 5 8 B) 3 6 9 C) 4 5 6 D) 7 8 920、閱讀下列程序INTEGER A(100),GREAD(*,*)N,(A(I),I=1,N)DO 10 I=1,N-1 G=I第 3 頁/ 共 頁DO 20 J=I+1,NIF(A(J). LT.A(G)THENG=JENDIF20 CONTINUEK=A(I)A(I)=A(G)A(G)=K10 CONTINUEWRITE(*,'(1X,1OI2)')(A(I),I=1,N)END程序運行時輸入的初始值是3,6,9,8,則運行結(jié)果是()A) 6 9 8 B) 8 9 6 C) 6

30、8 9 D) 9 8 6二、填空題1、 閱讀下列程序，其功能是求出方程2X3-3X2+4X-11=0在區(qū)間(1,5)中的一個實數(shù)根，運行結(jié)果是顯示根值和對分次數(shù)，使用的是二分算法。請在其中 處填入適當(dāng)?shù)膬?nèi)容。FUN(X)=2.0*X*3-3.0*X*2+4.0*X-11.0DATA XL,XR,N/1.O,5.0,0/10 CONTINUE【1】X=(XL+XR)/2.0【2】IF(ABS(FX).LT.1E-6 .OR.N.GE.1000)THENWRITE(*,'(1X,A2,F12.7,A5,14)')'X=',X,'N=',NELSEIF

31、(FUN(【3】)*FX.GE.0.0)THENXR=XELSEXL=XENDIFGOTO 10ENDIFEND2、 閱讀下列程序.其功能是計算 Y=1 + 1.1X+1.2X2+1.3X3+1.4X4+1.5X5當(dāng)X=3.1時的值。主程 序調(diào)用了函數(shù)子程序。請在其中 處填入適當(dāng)?shù)膬?nèi)容。PROGRAM PVALUE【4】DATA A/1.0,1.1,1.2,1.3,1.4,1.5/,N,X/6,3.1/【5】WRITE(*,'(1X,A5,6F5.1)')'a(k)=',AWRITE(*,'(1X,A2,F5.1,A6,F8.2)')'X

32、=',X,' Y=',YENDFUNCTION POLY(B,M,V)DIMENSION B(M)POLY=B(1)FV=1.0DO 10K=2,MFV=FV*V10【6 =POLY+B(K)*FVEND3、函數(shù)子程序DTOH能夠?qū)⒁粋€十進(jìn)制正整數(shù)DEC轉(zhuǎn)換為一個表示十六進(jìn)制數(shù)的字符字符串，其長度不超過 &例如127轉(zhuǎn)換為'7F'。算法是：將 DEC除16取余，將所得的商再除 16取余，如此反復(fù)，直到商和零為止，最后按照逆序輸出所得的各個余數(shù)。請在其中_處填入適當(dāng)?shù)膬?nèi)容。CHARACTER*8 FUNCTION DTOH(DEC)INTEGER

33、DEC,R,POSPOS=9DTOH=”111 CONTINUE【7】IF(POS.GE.1)THEN R=MOD(DEC,16)IF(R.LT.1O)THEN【8 】=CHAR(ICHAR('0')+R )ELSEDTOH(POS:POS)=CHAR(ICHAR('A')+R-1O)ELSEDTOH=' *GOTO999ENDIFDEC=DEC/16IF(【9 )GOTO 111999 CONTINUEENDPROGRAM DECHEXCHARACTER*8 DTOHWRETE(*,*) DTOH(127)END4、有一個十進(jìn)制的四位數(shù) ABCD與 一

34、個十進(jìn)制的三位數(shù) CDC的差等于十進(jìn)制的三位數(shù) ABC.下列程序按"ABCD=9876的樣式打印出ABCD這個數(shù)。請在其中外填入適當(dāng)?shù)膬?nèi)容INTEGER A,B,C,DDO 10 A=1,9DO 10 B=0,9DO 10 C=1,9【10】L=1000*A+100*B+10*C+DM=100*C+10*D+CN=100*B+CIF(【11】)WRITE(*,'(【12】)')'XABCD=',A,B,C,D10 CONTINUEEND5、 閱讀下列程序，其功能是使用篩法選出N以內(nèi)的所有素數(shù)并顯示算法在N以內(nèi)的自然數(shù)列中先篩除2的倍數(shù)；在2之后篩乘下的

35、第一個數(shù)是3,于是再篩除3的倍數(shù)；在3之后篩剩下的第一個數(shù)是 5,于是再篩除5的倍數(shù)；如此重復(fù)下去，直到遇見篩剩下的第一個數(shù)是最 接近N的平方根的那個數(shù)為止。請在其中 填入適當(dāng)?shù)膬?nèi)容。PROGRAM PRINESPARAMETER (N=100)INTEGER A(N),P(N)DO 10 K=1,N10 A(K)=KDO 20 K=3,N20 IF(【13】.EQ.0)A(K)=0ISR=SQRT(REAL(N)DO 30M=3,ISR,2DO 30K=M+2,N30 IF(A(K).NE.0.AND.MOD(A(K),M).EQ.0)A(K)=0M=1DO 40K=2.NIF(A(K).NE.0)THEN【14】M=M+1ENDIF40 CONTINUE【15】）WRITE(*,'(1X,1018)')(P(K),END二、編寫程序題1、以循環(huán)來計算等差數(shù)列 1+3+5+7+99的值。）從大到小