計算機程序設(shè)計語言FORTRAN語言

1、計算機程序設(shè)計語言（FORTRAN語言）.編譯程序能將高級語言編寫的源程序轉(zhuǎn)換成。A.解釋程序B.匯編程序C映象程序D.目標(biāo)程序答案：D. 一個完整的FORTRAN（程序 。A.至少包括一個主程序B.至少包括一個主程序和一個子程序C.由一個主程序與一個以上的子程序組成D.由一個主程序與一個子程序組成答案：A.語句函數(shù)定義語句在程序內(nèi)合法的位置是。A.在程序塊開頭語句之后，END語句之前B.在程序塊開頭語句之后，可執(zhí)行語句之前C在說明語句之后，END語句之前D.在說明語句之后，可執(zhí)行語句之前答案：D4.下列關(guān)于函數(shù)子程序虛實參數(shù)的錯誤說法是A.可以沒有形參數(shù)B.虛實結(jié)合的數(shù)組長度可以不同C.實參

2、表與虛參表類型可以不同D .函數(shù)名可以作為虛參答案：C5,下列敘述中正確的是。A.FORTRA部序塊中，無名公用語句只能有一個B.FORTRA貨程序中，至少應(yīng)有一個 RETURNS旬C.FORTRAN1序塊中，最后一行必須是 END語句 D.FORTRA部序塊中，必須有變量說明語句答案：C6.運行下面的程序時得不到所需的結(jié)果，其主要原因是 INTEGER X(11)DATA X/9 8, 7, 6, 5, 4, 3, 2, 1 , 0, -1/DO 10 1=1, X(1) , -1WRITE(* *)1.0/SQRT(25.QREAL(X(1) )* * 2)10 CONTINUEENDA,

3、沒有給X(11)賦初值B,發(fā)生除以零的情況C發(fā)生負數(shù)開平方的情況D,循環(huán)參數(shù)設(shè)置錯誤答案：D7,下列數(shù)據(jù)中，不符合FORTRANt量表示法的是A.-25.6B.2.758D3C.FOOT=D.TRUE答案：D.有一段說明語句如下：DIMENSION A(5) , B(5)EQUIVALENCE(A(3) B(4)說明語句EQUIVALENCE(A(3) B(4)底程序中的作用是A.用于在數(shù)組A和B之間傳遞數(shù)據(jù)B.說明數(shù)組A和B是同一個數(shù)組C說明數(shù)組A和B共用相同的存儲單元D.說明數(shù)組A和B的部分元素共用相同的存儲單元答案：B.在數(shù)據(jù)塊子程序中。A.只能給無名公用區(qū)中的成員賦初值B.只能給有名公

4、用區(qū)中的成員賦初值C不分有名或無名，凡是公用區(qū)成員皆可賦初值D.只能給公用區(qū)中的數(shù)組賦初值答案：D.下列語句函數(shù)的定義中，正確的是 。A.FUNCTION(I J, K)=I*J+J*J+K*KB.F(X Y, Q(I)=SIN(X)+COS(Y)+Q(I)C.S(X Y, Z)=(X+Y+Z)* * 2+S(X*X Y, Z)D.F(X Y)=(X+Y)/X/Y+P答案：B.對任意輸入的X,下列程序執(zhí)行后K的值為。READ(* *) XK=SIN(X)WRITER *) KENDA.在區(qū)間-1, 1中的一個值B.一定等于0C在區(qū)間(-1, 1)中的一個值D.K=0或 K=1 或 K=-1答案

5、：A12.設(shè)有格式輸入語句如下：READ(* *,10) X10 FORMAT(1X F5.2)能使變量X的值為2.63的鍵盤輸入為。A.22.6300B.002630C.2.6300D.263000答案：A13.當(dāng)輸入1, 2, 3, 4下列程序執(zhí)行后的輸出結(jié)果為DIMENSION A(2 2)READ(* *) ASUM=0DO 10 I=1, 2DO 20 J=1 210 A(I, J)=A(I, J)+I+J WRITE(* *) A(1, 2) ENDA.6B.5C.7D.4答案：B.閱讀下列FORTRAN序：DO I=1, 5SUM=SUM+IENDDOWRITER *) SUME

6、ND上述程序運行后，輸出結(jié)果是A.15B.15.0C不確定D.0答案：D.閱讀下列FORTRAN序：S(X)=2*X*XY+1.0DATA A B, Y/3*2.0/P=S(A)*S(BA)4-S(Y)S(B)WRITER *) PEND上述程序運行后，輸出的P值為A.9.0B.-9.0C.7.0D.-7.0答案：A.下列程序執(zhí)行后的輸出結(jié)果為CHARACTER *6 SS=ABCDEFCALL SS(S)ENDSUBROUTINE SS(S1)CHARACTER S1*3WRITER *) S1ENDA.ABCB.BCC.CDED.DEF答案：C.下列程序的執(zhí)行結(jié)果K是。K=0DO 10 I

7、=1, 2DO 10 J= J 210 K=K+I/JWRITER *)KENDA.0B.2C.2.5D.1答案：C.下列關(guān)于子例行子程序虛實參數(shù)的正確說法是A.應(yīng)至少有一個形參數(shù)B.數(shù)組元素可以作為實參C數(shù)組元素可以作為虛參D.常數(shù)可以作為虛參答案：B.當(dāng)輸入150時，下列程序執(zhí)行后的輸出結(jié)果為READ(* *) XY=0.0IF(X.GT.O.0) THENY=1.0ELSE IF(X.GE.150) THENY=2.0ELSEY=3.0END IFWRITER *) YENDA.0.0B.1.0C.2.0D.3.0答案：B.當(dāng)輸入1, 2, 3, 4, 5, 6下列程序執(zhí)行后的輸出結(jié)果為

8、DIMENSION A(2 3)READ(* *) ACALL SS1(A)ENDSUBROUTINE SS1(B)DIMENSION B(3 2)WRITE(* *) B(3, 1)ENDA.2B.3C.4D.5答案：D.下列程序執(zhí)行后的輸出結(jié)果為。F1(X)=2.0/(1.0+X)F2(Y)=F1(Y)*Y+1.0A=F1(1.0)+F2(1.0)WRITER 10) A10 FORMAT(IX E8.2)ENDA.3.00B.3.0C.3.00E+00D.0.30E+01答案：A.閱讀下列FORTRAN序：S=1.0DO 100 K=3 1, -1DO 100 N=1, -3100 S=

9、2*SWRITE(* *) SEND運行上述程序后，輸出的S值為A.1.0B.8.0C.512.0D.4.0答案：C.閱讀下列FORTRAN序：INTEGER A(4 5)DATA A/5*1, 5*2, 5*3, 5*4/M=0DO 10 K=1 410 M=M+A(K, K+1)WRITER *) MEND執(zhí)行上述程序后，輸出的M值為。A.8B.9C.10D.11答案：C.閱讀下列FORTRAN序：INTEGER M(3 3)DATA M/1, 2, 3, 4, 5, 6, 7, 8, 9/DO 10 1=1 3WRITE(* 100) (M(I, J), J=1, I)10 CONTIN

10、UE10 FORMAT (1X 312)END上述程序執(zhí)行后，輸出結(jié)果是。A.1 4 75 86 9B.1 2 34 5 67 8 9C.156 9D.15 7 8 9答案：A25.定義一個長度為10的一維整型數(shù)組M,并且要求分別給數(shù)組元素賦值為 M (K)=K+1 1 M(10)=1O下列各程序段中錯誤的是。A.DIMENSION M(10)M(10)=1DO 10 K=1 1010 M(K)=K+1B.DIMENSION M(10)M(10)=1DO 10 K=1 910 M(K)=K+1C.DIMENSION M(10)M(10)=1DO 10 K=2 1010 M(K-1) =KD.D

11、IMENSION M(10)DO 10 K=1 1010 M(K)=K+1 M(10)=1答案：C26.閱讀下列FORTRAN序：M=3DO K=1 MM=5WRITE(* *) K, MENDDOEND上述程序的運行結(jié)果是。A.1 55555B.1 555C編譯出錯，不能運行D.1 333答案：C.閱讀下列FORTRAN序：LOGICAL PQREAD(* 100)P, Q100 FORMAT(2L4)F(P) THENY=1.0ELSE IF(Q) THENY=2.0ELSE IF(.NOT.O.PR.Q)THENY=3.0ELSEY=0.0VENDIFWRITER *) YEND在執(zhí)行上

12、述程序時，由鍵盤輸入 FABDTXYZ最后輸出的Y值為A.0.0B.1.0C.2.0D.3.0答案：B.閱讀下列FORTRAN序：PARAMETER(L=3)INTEGER N(L)DATA N/3*0/DO 20 I=1, LDO 20 J=1 LN(J)=N(1) +120 CONTINUEWRITER *) N(L)END上述程序運行后，輸出結(jié)果是。A.3B.5C.7D.9答案：D.閱讀下列FORTRAN!序：X=1.0Y=2.0CALL SUB(XY, Z, 3.0)WRITER 100) X, Y, Z100 FORMAT(1X 13.1)ENDSUBROUTINE SUB(AB,

13、X, Z)A=A+1B=B+2Y=1.0X=Y+ZEND執(zhí)行上述程序后，輸出的結(jié)果為A.2.05.04.0B.4.01.02.0C.4.02.04.0D.2.04.04.0答案：C.下列程序執(zhí)行后的輸出結(jié)果為K=0DO 10 1=1 6, 2DO 10 J= J 6, 3IF(K.LT.I*J) K=I*J10 CONTINUEWRITE(* *) KENDA.18B.30C.25D.36答案：D.閱讀下列FORTRAN序：CHARACTER A*5A=ABCDECALL S(A)ENDSUBROUTINE S(X)CHARACTER X*3WRITER *)XEND執(zhí)行上述程序后，輸出的X值

14、為A.ABB.DEC.CDED.ABC答案：A.閱讀下列FORTRAN!序：INTEGER S(24) , A(2)DATA S/4*1 4*2/CALL SUB(S2, 4, A)M=A(1) -A(2)WRITE(* *) MENDSUBROUTINE SUB(SN K A)INTEGER S(N K), A(N)DO 20 I=1 NA(I)=0DO 10 J=1 K10 A(I)=A(I)+S(I J)A(I)=A(I)/K20 CONTINUEEND執(zhí)行上述程序后，輸出的M值為A.0B.1C.2D.3答案：B33.當(dāng)輸入150H, f1,下列程序執(zhí)行后的輸出結(jié)果為READ(* *)

15、XY=0.0IF(X.GT.O.C) THENY=1.0ELSE IF(X.GE.150) THENY=2.0ELSEY=3.0END IFWRITER *)YENDA.0.0B.1.0C.2.0D.3.0答案：D34.閱讀下列FORTRAN序：DO 20 K=2 5, 2S=1.0DO 10 J=K 510 S=S+J20 CONTINUE*WRITER *) SEND執(zhí)行上述程序后，輸出的S值為A.9.0B.1.0C.24.0D.10.0答案：D35.閱讀下列FORTRAN!序：REAL A(5)COMMON /CC/XDATA A/1 2, 3, 4, 5/X=0Y=FUN(A 5) +FUN(A 5)WRITE(* *) YENDFUNCTION FUN(A N)REAL A(N)COMMON /CC/XX=X+1F=1DO 10 I=N 1F=F+A(I)10 CONTINUEFU