FORTRAN90模擬測(cè)驗(yàn)

《FORTRAN90模擬測(cè)驗(yàn)》由會(huì)員上傳分享，免費(fèi)在線(xiàn)閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫(kù)。

1、FORTRAN90模擬測(cè)驗(yàn)三（筆試部分）一、選擇題（從4個(gè)可選答案中選擇一個(gè)正確答案添入空白處）1.下列字符串中可用作FORTRAN90變量名的是A。（教材78）A．ABCB.A-BCDC.2ABCD.AB.C2.下列數(shù)據(jù)中不符合FORTRAN90常數(shù)表示的為D。（教材70）A.21.50B.+0.0D0C..TRUE.D.$10003.執(zhí)行WRITE(8,'(1X,2I4)')(I,I=1,3)后生成B個(gè)記錄。（教材146）A.1B.2C.3D.124.數(shù)學(xué)表達(dá)式的FORTRAN表達(dá)式為B。（教材103）A.S

2、QRT(X)**3)*LOG(X**2+Y**2)/XB.SQRT(X**3)*LOG((X**2+Y**2)/X)C.(SQRT(X))**3*LN((X**2+Y**2)/X)D.SQRT(X**3)*LN(((X**2)+Y**2)/X)5.表達(dá)式：－B+SQRT(B*B-4.0*A*C).LE.3E-5值的類(lèi)型是A。（教材84）A.邏輯型B.整型C.實(shí)型D.字符型6.下面格式輸入語(yǔ)句（教材119）READ(*,‘(3F3.1)’)X如果輸入1234.567則X的值為B。A.123.0B.12.3C.123

3、4.D.1234.5677.FORTRAN90語(yǔ)言中變量名長(zhǎng)度為C個(gè)字符。（教材58）A.1-8B.8C.1-31D.318.按隱含約定，設(shè)X=2.5,Y=1.0,Z=3.0（教材93）執(zhí)行賦值語(yǔ)句I=X+Y/Z后I的值為B。A.2.0B.2C.3D.3.09.下列語(yǔ)句中那個(gè)語(yǔ)句是錯(cuò)誤的是C。（教材98）A.READ(*,*)XB.READ*,XC.PRINT(*,*)XD.PRINT*,X10.說(shuō)明語(yǔ)句REALA(1:2,-1:10)說(shuō)明數(shù)組A的元素個(gè)數(shù)為D。（教材200）A.11B.12C.22D.2411.

4、M能被N整除的FORTRAN表達(dá)式為D。（教材88）A.(M/M)=0B.(MMODN).EQ.0C.(M/N).EQ.0D.MOD(M,N).EQ.012．以下關(guān)于接口塊的說(shuō)法中，不正確的是C。（教材365）A．通知編譯程序主調(diào)程序調(diào)用過(guò)程時(shí)所需要的接口信息。B.可用于重載賦值C.接口塊中可以包含可執(zhí)行語(yǔ)句D.可用于自定義運(yùn)算符13．以下關(guān)于FORTRAN90中有關(guān)啞元(形參)、實(shí)元(實(shí)參)說(shuō)法中，不正確的是A。（教材265）A．實(shí)元和啞元個(gè)數(shù)一定要相等B．實(shí)元和啞元個(gè)數(shù)可以不相等C．啞元可以用可調(diào)數(shù)組D．啞元

5、可以用假定形狀數(shù)組14．下列關(guān)鍵字中不能用于說(shuō)明變量屬性的是C。（教材182）A．SAVEB．OPTIONALC．CYCLED．INTENT15．以下關(guān)于派生類(lèi)型的說(shuō)法中，不正確的是C。（教材294）A．派生類(lèi)型說(shuō)明中，不能有任何可執(zhí)行語(yǔ)句B．可將一個(gè)派生類(lèi)型變量的值整體賦給另一個(gè)派生類(lèi)型變量C．派生類(lèi)型成員為字符型時(shí)，長(zhǎng)度可以不確定D．派生類(lèi)型成員可以是自身同類(lèi)型的指針二、填空題（在空白處添入正確內(nèi)容）1．閱讀以下程序：FUNCTIONfac(A)RESULT(rfac)INTEGERA,rfacINTEGER

6、,SAVE::C=3B=1C=C+1rfac=A+B+CENDFUNCTIONPROGRAMmainINTEGER::A=3,J,facDOJ=0,2PRINT*,fac(J)ENDDOENDPROGRAMmain執(zhí)行以上程序后，輸出的第一行是5，第三行是9。2.閱讀以下程序：SUBROUTINEswap(S1,S2)CHARACTER(*)S1,S2CHARACTER(3)TT=S1;S1=S2;S2=TENDSUBROUTINEPROGRAMMAINCHARACTER(3)::S1='BD',S2='BC',

7、S3='AB'IF(S1>S2)CALLswap(S1,S2)IF(S2>S3)CALLswap(S2,S3)IF(S1>S2)CALLswap(S1,S2)PRINT*,S1;PRINT*,S2;PRINT*,S3ENDPROGRAMMAIN執(zhí)行以上程序后，輸出的第一行是AB，第二行是BC，第三行是BD。3．閱讀以下程序：MODULEaaINTEGER::J=2ENDMODULEaaSUBROUTINEp()USEaaDOI=1,3J=J+1PRINT'(I3)',JENDDOPRINT*ENDSUBROUT

8、INEPROGRAMMAINUSEaaDOI=0,2CALLp()ENDDOPRINT*,IENDPROGRAMMAIN執(zhí)行以上程序后，輸出的第一行是345，第二行是678，第三行是91011。4．閱讀以下程序：PROGRAMMAININTEGER::A(3,3),I,J,K,NDOK=1,5IF(K<=3)THENDOI=1,KN=N+1A(I,K-I+1)=NENDD