2019年fortranA

2018~2019学年第二学期FORTRAN期末考试卷A卷专业班级：学号：姓名：一、选择题(用铅笔把选中的方格涂黑40×1=40分) 1 A B C D 2 A B C D 3 A B C D 4 A B C D 5 A B C D 6 A B C D 7 A B C D 8 A B C D 9 A B C D 10 A B C D 11 A B C D 12 A B C D 13 A B C D 14 A B C D 15 A B C D 16 A B C D 17 A B C D 18 A B C D 19 A B C D 20 A B C D 21 A B C D 22 A B C D 23 A B C D 24 A B C D 25 A B C D 26 A B C D 27 A B C D 28 A B C D 29 A B C D 30 A B C D 31 A B C D 32 A B C D 33 A B C D 34 A B C D 35 A B C D 36 A B C D 37 A B C D 38 A B C D 39 A B C D 40 A B C D二、填空题（每空占一行，每行写一个答案25×2=50分）1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.21.22.23.24.25.三、程序 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 （10×1=10分）1、利用外部子程序求两正整数M、N的最大公约数，要求写主程序。注：变量M、N的值从文件Myfile1.dat中读取。一、选择题（40×1=40分）1、下列关于SUBROUTINESUB()语句的叙述中，正确的是。A、子程序执行后，SUB将返回整型数据B、SUB不能作为子程序名C、子程序缺少虚元D、这是子程序的第一个语句2、Fortran90中表达式的正确写法是。A、(Sin(4/∏)+cos(10*3.14/180))*exp(2.5)/(Sqrt(2.0)+abs(a*x)+log(3))B、(Sin(4/3.14)+cos(10*3.14/180))*exp(2.5)/(Sqrt(2.0)+abs(a*x)+log(3.0))C、(Sin(4/3.14)+cos(10))*exp(2.5)/(Sqrt(2.0)+abs(a*x)+log(3))D、(Sin(4/3.14)+cos(10*3.14/180))*exp(2.5)/(Sqrt(2)+abs(ax)+log(3.0))3、FORTRAN90源程序必须经过后才能被计算机执行。A、汇编B、编译C、解释D、翻译4、下列叙述错误的是。A、实型数值在计算机中表示没有误差B、整型数值在计算机中表示没有误差C、虚数组的大小不能超过实数组D、固定长度的字符型变量作虚元，其长度必须小于或等于所对应的实元长度5、没有目标变量的前提下，直接建立指针变量的关联状态方法有。A、=>B、=C、AllocateD、Nullify6、print‘(A)’,’A’,A语句中从左至右三个符号A的意义分别为。A、字符格式编辑符、字符变量、字符常量B、字符变量、字符格式编辑符、字符常量C、字符格式编辑符、字符常量、字符变量D、字符常量、字符格式编辑符、字符变量7、说明语句CHARACTER(5)::CH（10）的含义是。A、CH是长度为5的字符型变量B、CH是长度为10的字符型变量C、CH是字符型数组，有5个数组元素，每个元素是长度为10的字符串D、CH是字符型数组，有10个数组元素，每个元素是长度为5的字符串8、关于FORTRAN90的派生类型，以下说法正确的是。A、派生类型可由TYPE语句自定义或由系统自动生成B、派生类型成员为字符型时，其长度必须确定，不可用*C、派生类型的成员可以是派生类型、数组，但不可以具有指针属性D、派生类型不能作为数组元素的类型9、’HoHai’<‘HHU’的值为。A、.false.B、.true.C、1D、010、以下五种形式的数组：①常数组、②数组片段、③可调数组、④假定形状数组、⑤动态数组。其中不能出现在虚元表中的是。A、①③⑤B、①②④C、④⑤D、②⑤11、设有数组定义DIMENSIONA（5），B（4，7）则在执行下列语句后，A（4）的值为。A=8B=5A=A-B（2，1：5）A、8B、5C、3D、语法错12、关于FORTRAN90的内部函数ASSOCIATED，以下说法错误的是。A、函数ASSOCIATED的功能是测试指针的关联状态B、函数ASSOCIATED有两个虚元，其中第二个虚元是可选的C、函数ASSOCIATED的参数一定是一个D、函数ASSOCIATED的返回值是逻辑值13、下面对函数程序过程的描述，哪一句是错误的。A、函数过程可有参或无参，函数名的命名方式与变量相同B、虚参可以是变量名、过程名、数组名和指针等C、结果变量用于存放函数返回值，在过程体中至少应被赋值一次D、内部函数子程序不是一个独立的程序单位，它能被任何程序单位调用14、以下关于FORTRAN90符号名的属性的四种说法中，错误的是　　。A、PARAMETER属性说明符号常量B、INTENT属性说明虚元的意图，可用于具有指针属性的虚元C、POINTER::a(:)属性说明语句指明a是指向数组的指针，可动态分配内存空间D、ALLOCATABLE::a(:)属性说明语句指明a是可动态分配的数组15、下面分支语句正确的是。A、if(x>2)y=x+2B、if(x>2)theny=x+2C、if(x>2)y=x+2endifD、if(x>2)theny=x+216、调用子程序时，和虚数组结合的实元。A、只能是数组B、只能是数组元素C、只能是数组片段D、以上都可以17、下列关于FORTRAN90代码编辑规则的叙述，错误的是。A、IMPLICITNONE语句必不可少B、类型说明语句视情况可有可无C、注释语句可放在任何位置D、模块单元必须编写在代码的最开始18、If(L)thenPrint*,’True’ElsePrint*,’False’Endif设给逻辑型变量L赋值.TRUE.，则以上代码执行后输出的结果是　　。A、TrueB、FalseC、.True.D、没有输出19、下列关于指针变量的说法中，正确的是。A、如果指针变量作为外部过程的虚元，调用它的程序单元不需要编写关于该被调过程的接口块B、NULIFY语句使指针变量指向空，即该指针变量为空指针C、允许一个指针同时指向多个目标。D、新的指向操作并不影响指针变量原来的指向关系20、FORTRAN90中的数组片断（即数组的一部分），可用下标三元组形式表示。设有数组说明为B（10，6，4），则数组片断B（8：11：2，5，2：3）的结果是。A、形状为（2，2）的数组B、形状为（2，2，2）的数组C、一维数组D、语法错21、有如下循环入口语句：DOJ=1,15,3IF(MOD(J,10)==0)cyclePRINT*,JENDDO该语句输出的J的值是______。A、14710B、1471013C、14713D、1022、INTEGER,DIMENSION(-2:2,1:5)::A，SHAPE(A)的结果是。A、2B、5，5C、25D、523、以下说法中错误的是。A、超载赋值符形式上就是赋值号=B、赋值符的超载功能只能用SUBROUTINE来定义C、赋值符的超载功能实现不需要通过接口块D、不同类型的结构体变量之间不能直接相互赋值，除非定义超载24、以下是有格式顺序文件的OPEN语句，其中错误的是。A．OPEN（2，FILE=‘A.DAT’）B．OPEN（2，FILE=‘A.DAT’，STATUS='SCRATCH')C．OPEN（2，FILE=‘A.DAT’，FORM=‘FORMATTED’，）D．OPEN（2，FILE=‘A.DAT’，ACCESS=‘SEQUENTIAL’）25、下列程序运行结果是　　。CHARACTER(4)::A,B,C*5A=’YOUR’;B=’BOYS’;C=’GIRLS’WRITE(*,’(A4,A5,A6,A1)’)A,B,C,’!’ENDYOURBOYSGIRLS！B、YOURBOYSGIRLS!C、YOURBOYSGIRLS!D、YOURBOYSGIRLS!26、CASE结构中情况表达式的类型可以是。A、字符型、逻辑型B、实型、整型C、逻辑型、复型D、实型、字符型27、执行read‘(I3)’,x,y,z语句时，以下说法中错误的是。①可在一行输入完3个整数②可分三行输入3个整数③必须分三行完成输入④可分三行输入任意个数整数⑤必须一行输入完3个整数A、①⑤B、③④C、①④D、④⑤28、PRINT*,((’a’,J=1,2),I,I=1,2）执行该语句后，输出的结果是。A、aa1aa2B、’a’‘a’1‘a’‘a’2C、aaaaD、1aa2aa29、下列有关数组的说法正确的是。A、任何形式的数组定义语句中都可以出现变量B、任何形式的数组定义语句中都不可以出现变量C、常数组可在任何程序单元中使用D、数组元素的下标不能使用表达式30、设有下列变量和指针的定义：INTEGER,TARGET::i,jINTEGER,POINTER::p1,p2,p3i=25;j=69p1=>i;p2=>j能够正确实现两个指针变量交换的语句是。A、p1=p2;p2=p3;p3=p1B、p3=p1;p1=p2;p2=p3C、p1=>p2;p2=>p3;p3=>p1D、p3=>p1;p1=>p2;p2=>p331、INTEGER,DIMENSION(2,2)::AA=RESHAPE((/3,4,5,6/),(/2,2/))数组元素A（2，1）的值为。A、3B、4C、5D、632、FORTRAN90中一个INTEGER型数据的KIND值是1，那么该数据值的范围是。A、-2147484648~2147484647B、-32768~32767C、0~65535D、-128~12733、有关FORTRAN90各程序单元的说法错误的是。A、各程序单元都能实现递归调用B、主程序单元是独立的程序单元，应独立编写C、外部子程序单元是独立的程序单元，源程序中包含的个数任意D、除模块中的内部过程外，模块不能包含可执行语句34、REAL，DIMENSION(3，4)：：AREAD*,(A(K,1:4),K=1,3)执行时从键盘上输入的第二个数是数组A的第个元素。A、2B、5C、4D、635、Fortran90中，综合表达式中各成员的优先级从高到低是。最内层括号、函数、逻辑运算、关系运算B、逻辑运算、关系运算、算术运算C、>=、.not.、mod、+D、函数、括号、乘号、逻辑运算36、FORTRAN90自由格式规定，多条语句写在一行时用作语句分隔符的是　。A、&B、：C、；D、，37、下列四种程序结构块内，使用数组作为判别依据的是　。A、DO循环结构B、WHERE结构C、CASE选择结构D、块IF选择判定结构38、若过程的某哑元是过程名，调用过程时其对应的实元需要特别说明。以下关于实元的说明语句错误的是。A、REAL,EXTERNAL::fB、REAL,INTRINSIC::SINC、写该实元的接口块D、EXTERNAL::f39、以下关于DOWHILE(expression)……ENDDO循环结构的叙述中，正确的是。A、expression只能含有关系运算符B、expression只能含有逻辑运算符C、expression只能取逻辑值“真”或“假”D、expression不能包含算术或字符运算符40、以下带有控制信息表的读写语句中，错误的是。A、read(fmt=*,unit=2,iostat=ios)a,b,j,kB、write(unit=*,fmt=’(2A6,2I4)’,rec=number)a,b,j,kC、read(unit=2,fmt=’(2A6,2I4)’,rec=number)a,b,j,kD、write(iostat=ios,unit=3,rec=number)a,b,c,i,j,k二、填空题（请将答案按空填写在答题纸上。每空占一行，每行写一个答案25×2=50分）1、以下程序执行后，输出的第一行是(1)，第二行是(2)。RECURSIVEFUNCTIONF(n,x)RESULT(r)IMPLICITNONEINTEGER::nREAL::x,rIF(n==1)THENr=xELSEr=(1+x)*F(n-1,x)ENDIFENDFUNCTIONF!PROGRAMMAINIMPLICITNONEREAL::FPRINT‘(F7.3)’,F(2,0.5),F(3,0.8)ENDPROGRAMMAIN2、以下程序执行后，输出的第一行是(3)，输出的第二行是(4)。PROGRAMpointerIMPLICITNONEINTEGER,POINTER::a,b,cINTEGER,TARGET::x,y,zx=15;y=35;z=x+ya=>x;b=>y;c=>z;PRINT'(3I4)',a,b,cc=>a;a=>b;b=>ca=a+b;b=b+c;c=c+aa=>b;b=>c;c=>a;PRINT'(3I4)',a,b,cENDPROGRAMpointer3、下列程序执行后，输出的第一行是（5），第二行是（6），第三行是（7）。PROGRAMABCINTEGER,DIMENSION(8)::ARRINTEGER::I,J,SUMAARR=(/((3*J,J=1,3),2*I,I=1,2)/)SUMA=SUM(ARR,MASK=ARR>3)PRINT‘(4I3)’,ARRPRINT‘(I3)’,SUMAENDPROGRAMABC4、下列程序执行后，输出的S值是（8）。INTEGER::KREAL::SS=1.0DOK=2,4,2S=S+1/KENDDOWRITE(*,*)SEND5555776、以下程序执行后，输出的内容是(9)，自定义运算符.exchange.的功能是：(10)。PROGRAMTESTINTERFACEOPERATOR(.exchange.)FUNCTIONchange(x)RESULT(y)INTEGER::i,constantCHARACTER(LEN=*),INTENT(in)::xCHARACTER(LEN=50)::yENDFUNCTIONchangeENDINTERFACECHARACTER(LEN=50)::x,yx='2019,nANJINGyOUTHoLYMPICgAMES,success!'y=.exchange.(x)PRINT*,yENDPROGRAMTEST!--------------------------------------FUNCTIONchange(x)RESULT(y)INTEGER::i,constant=32!同一字母大小写的ASCII码值之差等于32CHARACTER(LEN=*)::x,yDOi=1,LEN(x)IF(x(i:i)>=‘A’.AND.x(i:i)<=‘Z’)THENy(i:i)=CHAR(ICHAR(x(i:i))+constant)ELSEIF(x(i:i)>=‘a’.AND.x(i:i)<=‘z’)THENy(i:i)=CHAR(ICHAR(x(i:i))-constant)ELSEy(i:i)=x(i:i)ENDIFENDDOENDFUNCTIONchange6、下列程序执行后，输出的第二行是（11），第三行是（12）。PROGRAMMAINIMPLICITNONEINTEGER::I,KK=3DOI=1,KPRINT*,‘I=’,I,FACT(I)ENDDOCONTAINSINTEGERFUNCTIONFACT(N)INTEGER::N,T,JT=2;J=2T=N**J+TFACT=TENDFUNCTIONFACTEND77、下列程序执行后，输出的第一行是（13），第四行是(14)。PROGRAMMAINIMPLICITNONETYPEROWINTEGER,DIMENSION(:),POINTER::RENDTYPEINTEGER::iTYPE(ROW),DIMENSION(1:5)::s,tDOi=1,5ALLOCATE(t(i)%R(1:i))t(i).R(1:i)=i**2ENDDOs=tDOi=1,5t(i).R(1:i)=t(i).R(1:i)+s(i).R(1:i)PRINT*,t(i).R(1:i)ENDDOENDPROGRAMMAIN8、对正整数n进行数字分离，即求出它每一位数字。例如：n的值是12345时，分离出1、2、3、4和5，请完善下列程序。PROGRAMSEPARATEIMPLICITNONEINTEGER,DIMENSION(12)::MINTEGER::N,K,I,TREAD*,N（15）DOWHILE(（16）)K=K+1M(K)=（17）N=（18）ENDDODOI=1,K/2!保证从高位数字到低位数字的输出顺序T=M(I)M(I)=（19）M(K-I+1)=TENDDOPRINT'(12I2)',（20）！只输出M数组中的实际数字ENDPROGRAMSEPARATE988、输入5个学生的学号和三门课的成绩，按学生的平均成绩从高到低输出成绩单。MODULETYPE_MODULETYPESTUDENTINTEGER::NO,SCORE1,SCORE2,SCORE3REAL::AVERAGEENDTYPESTUDENTENDMODULETYPE_MODULEPROGRAMMAIN（21）IMPLICITNONE（22）::STU(5),TEMPINTEGER::N,S1,S2,S3,I,JREAL::AVE(5)DOI=1,5PRINT'(1X,A,I1,A)','请输入第',I,'个学生的学号和三门课的成绩：'READ*,N,S1,S2,S3AVE(I)=(S1+S2+S3)/3.0STU(I)=（23）ENDDODOI=1,4（24）IF(（25）)THENTEMP=STU(I)STU(I)=STU(J)STU(J)=TEMPENDIFENDDOENDDOPRINT'(1X,5A12)','学号','成绩1','成绩2','成绩3','平均'PRINT'(1X,4I13,F12.2)',STUENDPROGRAMMAINPAGE第1页共10页_1234567890.unknown