計算機應用基礎7月8日上午fortran測試

1、（1）按照翻譯類型分類,FORTRAN77 程序設計語言屬于A) 匯編型 B) 解釋型 C) 編譯型 D) 解釋型兼編譯型一個完整的 FORTRAN77 源程序的組成不應該A) 只有一個主程序沒有子程序 B) 有一個主程序和若干子程序C) 有一個主程序和一個子程序 D) 只有子程序而沒有主程序下列關于 FORTRAN77 源程序編輯規(guī)則的敘述之中,正確的是A) 編輯時一行都必須從第 7 列開始 B) 主程序第一行必須是 PROGRAM 語句C) 每個 FORMATO 語句必須具有標號 D) 每個子程序中必須有一個 RETURN 語句在 FORTRAN77 源程序中不能用作續(xù)行標志的字符是A)

2、0 B) X C) + D) $下列關于 FORTRAN77 源程序編輯規(guī)則的敘述之中,正確的是（2）（3）（4）（5）A)B)C)D)IMPLICIT 語句可以放在 REAL 語句行之后 DATA 語句可以在放在緊靠 END 語句行之前注釋行不可以放在 END 語句行之后FORMAT 語句可以放在 PROGRAM 語句行之前（6）下列 FORTRAN77 源程序的變量名之中,不符合規(guī)則的是A) W B) W3 C) -3 D) W3W閱讀下列程序X=0.618 WRITE(*,(E12.4)X END程序運行后顯示結(jié)果是A) .6180 B) 6.180E-01 C) .0618E+01 D

3、) .6180E+00梯形的上底為 A,下底為 B,高為 H,計算其面積的 FORTRAN77 表達式中錯誤的是A) 1/2*(AB)*H B) (A+B)*H/2 C) (A+B)/2*H D) 0.5*(A+B)*H（7）（8）（9）要選拔身高 T1.7體重 W62.5 公斤的人,FORTRAN 的邏輯表達式是A) T.CE.1.7.AND.W.LE.62.5 B) T.LE.1.7.OR.W.GE.62.5C) T.GT.1.7.AND.W.LT.62.5 D) T.GT.1.7.OR.W.LT.62.5在 FORTRAN77 的變量類型說明語句中沒有（10）A) REAl 語句 B)

4、CHAR 語句 C)EGER 語句 D) LOGICAL 語句（11）一次成功的 FORTRAN77 源程序編譯操作,不能A)B)C)D)同時編譯一個主程序和一個子程序同時編譯幾個子程序同時編譯一個主程序和幾個子程序同時編譯幾個主程序（12）閱讀下列程序F=1.0DO 20,J=3,7,2 DO 20,K=J-1,J20 F =F*KWRITE(*,(13,F8.1)J,F END程序運行結(jié)果是A) 3 6.0 B) 5 120.0 C) 9 5040.0 D) 9362880.0（13） 閱讀下列程序CHARACTER*10 W DO 10 K=1,10 READ(*,(A 10)WIF (

5、W(1:2).EQ.AB.OR.W(1:2).EQ.ab)WRITE(*,*),W10 END程序的功能是CONTINUEA)B)C)D)首字符是 A 或 B 的字符串被輸出顯示第一、二個字符是 Aa 或 ab 的字符串被輸出顯示首字符是 a 或 b 的字符串將被輸出顯示第一、二個字符是 Aa 或 Bb 的字符串將被輸出顯示閱讀下列程序LOGICAL L READ(*,*)A,B L=A.GT.B IF(L)THENX=B+2*A ELSEX=B END IFWRITE(*,*)X END使用鍵盤為上述程序輸入兩個初值 4 和 3,其輸出的 X 值是A) 4.0 B) 3.0 C) 11.0

6、D) 10.0閱讀下列程序READ(*,*)K WRITE(*,100)K100 FORMAT(15) END程序運行時輸入初始值 12345,那么顯示結(jié)果是A) 12345 B) 2345 C) * D) *閱讀下列程序EGER F F(X,Y)=X+Y A=-2.5 B=2.1 B=B+F(A,B)WRITE(*,(F3.1)B END程序運行的結(jié)果是A) .1 B) .7 C) 2.1 D) 1.7閱讀下列程序A=3.5CALL SUBA(A,A,A)WRITE(*,(F4.1)A ENDSUBROUTINE SUBA(X,Y,Z) Y=Y-2.0Z=Z+X END程序運行的結(jié)果是A)

7、7.0 B) 5.0 C) 3.0 D) 1.5（18） 閱讀下列程序CHARACTER A*4,B*5,C*4DATA A,B,C/,MIDDLE,SMALL/ WRITE(*,20)A,B,C20 FORMAT(1X,A2,A3,A4) END程序運行結(jié)果是A) BIGMIDD（19） 閱讀下列程序N=0DO 10 K=1,3 N =N+1 M=K*N10 CONTINUE) * C) BIGMIDSMAD)BIMIDSMALWRITE(*,(1X,2I3)M,K END程序運行結(jié)果是A) 9 4 B) 9 3 C) 12 4 D) 12 3(#)閱讀下列程序FUN(c,d)=a*c+b/

8、d DATA a,b/1.0-1.0/WRITE(*,(F4.1)FUN(a,b)-FUN(b,a) END程序運行結(jié)果是A) 0.0 B) 4.0 C) 2.O D) 3.O閱讀下列程序LOGICAL L1,L2,L3,L4,L5 DATA L1,L2,L3/3*.TRUE./L4=.NOT.L1.AND.NOT.L2.AND.L3 L5=.NOT.L1.OR.NOT.L2.OR.L3 WRITE(*,*)L4,L5END程序運行結(jié)果是T T B) T F C) F F D) F T閱讀下列程序READ(*.500)R.WWRITE(*.500)R.W500 FORMAT(1X,F5.2,F

9、5.3) END程序運行時輸入初始值 01234567899,結(jié)果顯示的是A) *67.899 B) 12.3456.789 C)閱讀下列程序Y=-123WRITE(*,200)Y200 FORMAT(Y=,F5.1) END程序運行結(jié)果是A) Y=* B) =* C) Y=-123.0閱讀下列程序K(X,Y)=X/Y+X A=-2.0 B=4.0 B=1.0+K(A,B)WRITE(*,(F4.1)B END程序運行結(jié)果是A) -1.0 B) 1.0 C) 2.0 D) 3.0閱讀下列程序*D)123.4567.899D)=-123.0DIMENM(3,3)DATA M/1,2,3,4,5,

10、6,7,8,9/WRITE(*,100)(M(3,J),J=1,3)100 FORMAT(1X,3I2) END程序運行結(jié)果是A) 2 5 8 B) 3 6 9 C) 4 5 6（26） 閱讀下列程序EGER A(100),G READ(*,*)N,(A(I),I=1,N) DO 10 I=1,N-1G=IDO 20 J=I+1,N IF(A(J).LT.A(G)THENG=JENDIFD)7 8 920CONTINUE K=A(I) A(I)=A(G) A(G)=K CONTINUEWRITE(*,(1X,10I2)(A(I),I=1,N)END10程序運行時輸入的初始值是 3,6,9,7,

11、則運行結(jié)果是A) 6 7 8 B) 8 7 6 C) 6 8 9（27） 閱讀下列程序I=1 M=1D) 98610IF(I.LE.3)THEN FACT=1DO 100 K=1,2*I+1 FACT=FACT*K CONTINUE M=M+FACTI=I+1 GOTO 10WRITE(*,(I15)MEND100程序運行結(jié)果是A) 5040 B) 5160 C) 5166 D)（28） 閱讀下列程序5167DIMENS(3)DATA S/1.0,2.0,3.0/ WRITE(*,*)LA(3,S) ENDFUNCTION LA(N,X)DIMEN LA=0L=2X(N)DO 20 I=1,N

12、 LA=LA+X(I)/L CONTINUEEND20程序運行結(jié)果是A) 1.0000000 B)（29） 閱讀下列程序2.0000000C) 1 D)2DIMENN(2)DO 10 I=1,2 N(I)=0 CONTINUE K=2DO 20 I=1,KDO 30 J=1,K N(J)=N(I)+1 CONTINUE CONTINUE WRITE(*,100),N(2)103020100 FORMAT(I3,I3) END程序運行結(jié)果是A) 2 3 B) 3 3 C) 2 2 D) 3 2（30） 閱讀下列程序WRITE(*,*)INPUT A,B,H(cm) READ(*,100)A,B,

13、H S=(A+B)*H/2S=(S*10+0.5)/10WRITE(*,200)S100 FORMAT(3F4.2)200 FORMAT(1X,S=,F6.2) END程序運行時輸入初始值 246035701240,輸出結(jié)果是A) S=373.86 B) S=373.90 C) S=* D) S=3738600.00（31） 閱讀下列程序EGER A(3,3)DATA A/9,8,7,6,5,4,3,2,1/ WRITE(*,10)(A(M,N),N=1,M=1,3)10 FORMAT(I2/,2I2/,3I2) END程序運行結(jié)果是A) 9 6 3 B)5 2 5 4 8 51 1 7 4

14、1 39628 7 C) 9 D) 951點 P 在直角坐標系中的橫坐標 U=-3.5,縱坐標 V=1.8,使用下列 FORTRAN77 程序計算射線 OP 與 X 軸正向的夾角度數(shù).O 是坐標原點.PK=45/ATAN(1.O) U=-3.5V=1.8WRITE(*,*) *PK,(deg) END在輸出語句 WRITE(*,*)與*PK,(deg.)之間的空白處應該添加的是ATAN2(U/V) B) ATAN2(U,V) C) ATAN2(V/U) D) ATAN2(V,U)閱讀下列程序N=0DO 10 K=50,0,-2DO 10 L=-100,100,110 N=N+1 WRITE(*

15、,*)N END程序運行結(jié)果是A) 5000 B) 5026 C) 5200 D) 5226閱讀下列程序CHARACTER*4 A,B,C*5DATA A,B,C/YOUR,BOYS,GIRLS/ WRITE(*,(1X,A4,A5,A6,A1)A,B,C,! END程序運行結(jié)果是A)YOURBOYSGIRLS!B) YOUR 凵 BOYS 凵 GIRLS!C) YOUR 凵 BOYSGIRLS! D) YOURBOYS 凵 GIRLS!（35） 閱讀下列程序.其功能是求出方程 2X3-3X2+4X-11=0 在區(qū)間(1,5)中的一個實數(shù)根,運行結(jié)果是顯示根值和對分次數(shù).使用的是二分算法. 請

16、在其中處填入適當?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/10CONTINUE 6 X=(XL+XR)/2.0 7 IF(ABS(FX).LT.1E-6 .OR.N.GE.1000)THEN WRITE(*,(1X,A2,F12.7,A5,14)X=,X,N=,N ELSEIF(FUN( 8 )*FX.GE.0.0)THEN XR=XELSEXL=X ENDIF GOTO 10ENDIFEND（36） 閱讀下列程序.其功能是計算 Y=1+1.1X+1.2X2+1.3X3+1.4X4+1.5X5 當 X=3.1 時的值.主程序調(diào)用了函數(shù)子程序.請在其衉 處填入適當?shù)膬?nèi)容.PROGR 9 VALUEDATA A/1.0,1.1,1.2,1.3,1.4,1.5/,N,X/6,3.1/ 10 WRITE(*,(1X,A5,6F5.1)a(k)=,AWRITE(*,(1X,A2,F5.1,A6,F8.2)X=,X,; Y=,Y ENDFUNCTION POLY(B,M,V)DIMEN POLY=B(1)FV=1.0B(M)DO 10K=2,M FV