资源描述：
《FORTRAN90模拟测验》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、FORTRAN90模拟测验三（笔试部分）一、选择题（从4个可选答案中选择一个正确答案添入空白处）1.下列字符串中可用作FORTRAN90变量名的是A。（教材78）A．ABCB.A-BCDC.2ABCD.AB.C2.下列数据中不符合FORTRAN90常数表示的为D。（教材70）A.21.50B.+0.0D0C..TRUE.D.$10003.执行WRITE(8,'(1X,2I4)')(I,I=1,3)后生成B个记录。（教材146）A.1B.2C.3D.124.数学表达式的FORTRAN表达式为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.表达式：－B+SQRT(B*B-4.0*A*C).LE.3E-5值的类型是A。（教材84）A.逻辑型B.整型C.实型D.字符型6.下面格式输入语句（教材119）READ(*,‘(3F3.1)’)X如果输入1234.567则X的值为B。A.123.0B.12.3C.123
3、4.D.1234.5677.FORTRAN90语言中变量名长度为C个字符。（教材58）A.1-8B.8C.1-31D.318.按隐含约定，设X=2.5,Y=1.0,Z=3.0（教材93）执行赋值语句I=X+Y/Z后I的值为B。A.2.0B.2C.3D.3.09.下列语句中那个语句是错误的是C。（教材98）A.READ(*,*)XB.READ*,XC.PRINT(*,*)XD.PRINT*,X10.说明语句REALA(1:2,-1:10)说明数组A的元素个数为D。（教材200）A.11B.12C.22D.2411.
4、M能被N整除的FORTRAN表达式为D。（教材88）A.(M/M)=0B.(MMODN).EQ.0C.(M/N).EQ.0D.MOD(M,N).EQ.012．以下关于接口块的说法中，不正确的是C。（教材365）A．通知编译程序主调程序调用过程时所需要的接口信息。B.可用于重载赋值C.接口块中可以包含可执行语句D.可用于自定义运算符13．以下关于FORTRAN90中有关哑元(形参)、实元(实参)说法中，不正确的是A。（教材265）A．实元和哑元个数一定要相等B．实元和哑元个数可以不相等C．哑元可以用可调数组D．哑元
5、可以用假定形状数组14．下列关键字中不能用于说明变量属性的是C。（教材182）A．SAVEB．OPTIONALC．CYCLED．INTENT15．以下关于派生类型的说法中，不正确的是C。（教材294）A．派生类型说明中，不能有任何可执行语句B．可将一个派生类型变量的值整体赋给另一个派生类型变量C．派生类型成员为字符型时，长度可以不确定D．派生类型成员可以是自身同类型的指针二、填空题（在空白处添入正确内容）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执行以上程序后，输出的第一行是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执行以上程序后，输出的第一行是AB，第二行是BC，第三行是BD。3．阅读以下程序：MODULEaaINTEGER::J=2ENDMODULEaaSUBROUTINEp()USEaaDOI=1,3J=J+1PRINT'(I3)',JENDDOPRINT*ENDSUBROUT
8、INEPROGRAMMAINUSEaaDOI=0,2CALLp()ENDDOPRINT*,IENDPROGRAMMAIN执行以上程序后，输出的第一行是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
