FORTRAN程序设计复习题

v1.0可编写可改正FORTRAN程序设计复习题一、选择题B(1)以下各FORTRAN表达式中合法的是A)S+T*2P>=B).NOT.(A*B+C)C)A2+B2/(C+D)<=D)(A+B).NOT．A*B．GT．(.NOT.只跟一个表达式)C(2)数学式(3/5)ex+y的FORTRAN表达式是A)3*EXP(X+Y)/5B)3*E**(X+Y)/C)(3/5)*EXP(X+Y)D)EXP(X+Y)D(3)以下FORTRAN77表达式中不合法的是A)A．GT．B．EQV．C．GT．DB)A．AND．B．AND．C．AND．DC).NOT．(X．LE．D)A．LT．B．LT．C．LT．DD(4)以下表达中不正确的选项是FORTRAN子程序能够独自编译对一个FORTRAN源程序进行编译和连结无误后可生成可履行文件即便编译和连结都正确无误，FORTRAN程序运转时仍可能犯错D)FORTRAN连结的主要任务是把函数库中的函数翻译成机器指令(正确描绘：主要任务为连结目标文件)B(5)在以下FORTRAN77运算符中，优先级最高的是A).AND.B).NOT.C).OR.D).EQ.B(6)FORTRAN表达式"6/5+9/2**3/2"的值为A)33B)1C)5D)3A(7)以下FORTRAN77表达式中，合法的是：A).AND..B)10.0C)D)提示：A）相当于.AND.（.NOT.（））D(8)对于编译一个FORTRAN源程序言件，以下说法中错误的选项是1v1.0可编写可改正同意编译只有一个主程序而没有子程序的源文件同意编译有多个子程序的源文件同意编译只有一个子程序而没有主程序的源文件同意编译有多个主程序的源文件C(9)在FORTRAN77源程序中，续行标记符一定放在A)第1列B)第1-6列C)第6列D)第5列D(10)以下对于"SUBROUTINEMAP(X，Y)"语句行的表达中，不正确的选项是A)这是子程序的第一个语句B)字符串"MAP"是子程序名变量X是子程序的形参D)子程序履行后，MAP将返回整型数据提示：子程序无返回值，自定义函数才有）A(11)FORTRAN表达式"2/4+"的值是A)B)1C)D)0提示：2/4默认等于整型，=》D(12)FORTRAN表达式"MOD，"的值是A)B)0.0C)D)A(13以下FORTRAN运算符中，优先级最低的是A）逻辑运算符.AND.B）算术运算符*C)关系运算符>=D)算术运算符＋A(14以下语句函数的定义中正确的选项是A）F(X，Y)＝(X＋Y)/(X*Y)＋B）FUNCTIONFUN(I，J，K)＝3*I＋2*J＋*KC）H(A，B，C(I))＝SIN(A)＋SIN(B)＋C(I)D)S(A，B，C)＝A*B＋S(A*A，B，C)B（15以下表记符中，不属于FORTRAN常量的是A）.TRUE.B）FALSEC）ˊROOT＝ˊD）ˊˊB（16）"整型变量M能被整型变量K整除"的FORTRAN77表达式是A）MOD(M，K)＝0（MOD(M，K)==0）B）M－C）MOD(K，M)＝0D）MOD(M，K)＝0==.TRUE.2v1.0可编写可改正C（17）设有以下数组说明语句：REAL::A(1:10，－1:10)该数组说明语句定义了数组A中的元素个数为A）100B）110C）120D）121A(18)按隐含规则（默以为整型），语句IP=履行以后，IP的值是A)3B)3.1416C)D)D(19)以下数据中，不切合FORTRAN常量表示法的是A)B)C)‘FOOT’‘=’D)TRUEC(20)设C是复型变量，A与B为有定义的实型变量，以下赋值语句中合法的是A)C=A+BB)C=,**2)C)C=,3D-2)D)C=(A＋B,A-B)B(21)有矩阵(数组)1111B2222以下DATA语句中正确的选项是A)DATAB/4*,4*B)DATA((B(I,J),J=1,4),I=1,2)/4*,4*C)DATAB/4*,/D)DATA((B(I,J),I=1,2),J=1,4)/4*,4*C(21)在使用DO循环及循环嵌套时，以下表达中正确的选项是不单能够从循环体内转到循环体外，也能够从循环体外转到循环体内外循环与内循环的DO循环控制变量能够不一样．也能够同样能够从循环体内转到循环体外，但不可以从循环体外转到循环体内DO循环控制变量在循环体内能够再赋值，也能够被引用B(22)在FORTRAN表达式中，各样运算的次序是A)逻辑运算，关系运算，算术运算B)算术运算，关系运算，逻辑运算3v1.0可编写可改正C)关系运算，逻辑运算，算术运算D)关系运算，算术运算，逻辑运算D(23)赋值语句X=4**(6/12)=4**0=履行后,实型变量X的值是A)2B)2.0C)1D)D(24)为了保证正确出数据,格式编写符中w与d的关系应当是A)w>dB)w>d+2C)w>d+4D)w>d+6C(25)设以下各语句顶用到的数组都已定义,则以下语句中正确的选项是A)READ(*,*)(I,A(I),I=1,10)B)READ(*,*)(B,(I,J),I=1,10,J=1,10)C)READ(*,*)N,(A(I),I=1,N)D)READ(*,*)(I=1,10,A(I))A(26)以下DO语句中,不正的确现循环的是(I-N规则：I-N会被视为整型)A)DO10S=,,B)DO10K=,,C)DO10S=,,D)DO10K=,,D(27)以下说法中正确的选项是块IF构造中的THEN块或ELSE块不可以是空块B)块IF构造中起码有一个ELSEIF语句或ELSE语句C)每个ELSEIF语句要有一个对应的ENDIF语句D)一个块IF构造中只好有一个ENDIF语句A(28)以下数组说明语句中正确的选项是A)INTEGERA(-1:5,0:6)B)REALM(10:5)C)DOUBLEY(1:N+1)D)DOUBLEZ(14)B(29)设有一个FORTRAN77子程序以下:SUBROUTINESS(X,Y,S,T)S=X+Y（S,T为传出，即需要输出的（相当于求圆的面积中的area），只好4v1.0可编写可改正T=X*Y为确立的数；X,Y为传入（相当于radius），可为表达式）END调用上述子程序的正确语句是A)CALLSS,W*W,5,,Z)（多了一个）B)CALLSS,,P,Q,R)（多了一个）C)CALLSS(F,G,,D)CALLSS*I,*J,C,D)（I,J可先赋值）A(30)在以下语句函数的定义中正确的选项是A)F(X,Y)=(X+Y)/(X*Y)+B)FUNCTION(I,J,K)=3*I+2*J+*KC)H(A,B,C(I))=SIN(A)+SIN(B)+C(I)D)S(A,B,C)=A*B+S(A*A,B,C)B(31)COMMON语句的功能是给同一程序模块中的若干变量分派同一储存单元给不一样程序模块中的变量分派同样的储存单元给程序中随意两个变量分派同样的储存单元给同一程序模块中的不一样变量分派同样的储存单元B(32)以下表达式中值为整数4的是A)SQRTB)27/6C)16**D)4*C(34)语句K=2+**2/2履行后，整型变量K的值是A)B)5C)6D)7C(36)合用于字符型I/O的FORTRAN77格式编写将是A)B)C)AD)D(37)给定子例行程序以下SUBROUTINESUB(K,A)B=K+2（K为整型，B）错误；A不是整型，A）错误；K为传入，可为表达式，A=A+BA为传出，不可以为表达式）5v1.0可编写可改正END以下调用语句中正确的选项是A)CALLSUB(N,N)B)CALLSUB(X,X)C)CALLSUB(N+2,X)D)CALLSUB(N,X+3)C(38)以下FORTRAN语句中，正确的选项是A)READ(*,*)(N,A(K),K=1,N)B)WRITE(*,*)(M(K,J),K=1,10,J=1,10)C)WRITE(*,*)(10,A(K),K=1,10)D)DATAA,B,C/2*C(39)对于以下给定的FORTRAN说明和赋初值语句：INTEGERA(2，2)DATAA/3，4，5，6/数组元数A(2，1)的初值为A)3B)5C)4D)6C(40)以下对公用区的说明语句中错误的选项是A)COMMONA(5),BB)COMMON/AB/A(5),BC)COMMONAB/A(5),B/D)COMMONND.IF>=X<=Y=2*X+D)IF(X>=<=Y=2*X+二、阅读题1、阅读以下FORTRAN程序:programexamplereala,b,ca=b=c=write(*,"(3)")a,b,cend程序运转的结果是:6v1.0可编写可改正2、阅读以下FORTRAN程序：programexampleinteger::a=1integer::b=2real::cc=a/bwrite(*,"")cend程序运转结果是:3、阅读以下FORTRAN程序:programexampleimplicitnoneintegerrain,windspeedwrite(*,*)"Rain:"read(*,*)rainwrite(*,*)"Wind:"read(*,*)windspeedIf(rain>=500.or.windspeed>=10)thenwrite(*,*)"停止上班上课"elsewrite(*,*)"照旧上班上课"7v1.0可编写可改正endifstopend运转上述程序时，假如从键盘输入Rain：505<回车>Wind：8<回车>则最后输出的结果为:停止上班上课4、阅读以下FORTRAN程序:programexampleimplicitnonereala,b,anscharacteroperatorread(*,*)aread(*,"(A1)")operatorread(*,*)bselectcase(operator)case('+')ans=a+bcase('-')ans=a-bcase('*')ans=a*bcase('/')ans=a/b8v1.0可编写可改正casedefaultwrite(*,"('Unknownoperator',A1)")operatorstopendselectwrite(*,",A1,,'=',")a,operator,b,ansstopend运转上述程序时，假如从键盘输入100<回车><回车>200<回车>则最后输出的结果为:Unknownoperator5、阅读以下FORTRAN程序：programexampleimplicitnoneintegeriintegerstrleninteger,parameter::key=2character(len=20)::stringwrite(*,*)"Encodedstring:"read(*,*)stringstrlen=len_trim(string)doi=1,strlenstring(i:i)=char(ichar(string(i:i))+key)enddowrite(*,"('String:',A20)")stringstop9v1.0可编写可改正endBCDIJK<回车>则最后输出的结果为:DEFKLM6、阅读以下FORTRAN程序：programexampleimplicitnoneintegeri,jdoi=1,2doj=2,3,2write(*,"(I2,I2)")i,jenddowrite(*,*)"anothercircle"enddostopend程序运转的结果是:12anothercircle22anothercircle（按输出格式，1、2前均有一空格。若题目无特别说明，不需表达出；如有说明，则空格用“□”表示）7、阅读以下FORTRAN程序：programexampleimplicitnoneinteger::dest=610v1.0可编写可改正integerfloordofloor=1,destif(floor==2.or.floor==4)cyclewrite(*,*)floorenddostopend程序运转的结果是:13568、阅读以下FORTRAN77程序：programexampleimplicitnoneinteger,parameter::limit=10integercounterinteger::ans=0counter=1dowhile(counter<=limit)ans=ans+countercounter=counter+2enddowrite(*,*)ansstopend程序运转的结果是:2511v1.0可编写可改正9、阅读以下FORTRAN程序：programexampleimplicitnoneinteger,parameter::students=5integer::student(students)=(/80,90,85,75,95/)integeridowhile(.true.)write(*,*)"Query:"read(*,*)iif(i<=0.or.i>students)exitwrite(*,*)student(i)enddostopend运转上述程序时，假如从键盘输入3<回车>则最后输出的结果为:8510、阅读以下FORTRAN程序：programexampleimplicitnoneinteger,parameter::L=2,M=3,N=2real::A(L,M)=(/1,2,3,4,5,6/)real::B(M,N)=(/1,2,3,4,5,6/)real::C(L,N)integer::i,j,k12v1.0可编写可改正doi=1,Ldoj=1,NC(i,j)=dok=1,MC(i,j)=C(i,j)+A(i,k)*B(k,j)enddoenddoenddodoi=1,Lwrite(*,*)C(i,:)enddostopend程序运转的结果是:2249286411、阅读以下FORTRAN程序：programexampleimplicitnoneinteger::i,jloop1:doi=1,3loop2:doj=1,3if(i==3)exitloop1if(j==2)cycleloop2write(*,"('(',i2,',',i2,')')")i,jenddoloop2enddoloop113v1.0可编写可改正stopend程序运转的结果是:(1,1)(1,3)(2,1)(2,3)12、阅读以下FORTRAN程序：programexampleimplicitnonereal::a=callShowInteger(a)callShowReal(a)stopendsubroutineShowInteger(num)implicitnoneinteger::numwrite(*,*)numreturnendsubroutineShowReal(num)implicitnonereal::numwrite(*,*)num14v1.0可编写可改正returnend程序运转的结果是:随机数13、阅读以下FORTRAN程序：programexampleimplicitnoneinteger,parameter::row=2integer,parameter::col=2integer::m(row,col)integerrintegercdata((m(r,c),r=1,2),c=1,2)/1,2,3,4/write(*,"(I3,I3,/,I3,I3)")((m(r,c),c=1,2),r=1,2)stopend程序运转的结果是:132414、阅读以下FORTRAN程序：programex0805implicitnoneinteger::a=1integer::b=2write(*,*)a,bcalladd(a)calladd(b)15v1.0可编写可改正write(*,*)a,bstopendsubroutineadd(num)implicitnoneinteger::numnum=num+1returnend程序运转的结果是:122315、阅读以下FORTRAN程序：programexampleimplicitnoneinteger,parameter::size=10integer::a(size)=(/5,3,6,4,8,7,1,9,2,10/)integer::i,jinteger::tdoi=1,size-1doj=i+1,sizeif(a(i)>a(j))thent=a(i)a(i)=a(j)a(j)=tendif16v1.0可编写可改正enddoenddowrite(*,"(10I4)")astopend程序运转的结果是16、阅读以下FORTRAN程序：programexampleimplicitnonereal::a=1real::b=2real,external::addwrite(*,*)add(a,b)stopendfunctionadd(a,b)implicitnonereal::a,breal::addadd=a+breturnend程序运转的结果是:(近似的题目，写亦可，但不行写3)17、阅读以下FORTRAN程序：programexample17v1.0可编写可改正implicitnoneinteger::a,bcommona,ba=1b=2callShowCommon( )write(*,*)a,bendsubroutineShowCommon( )implicitnoneinteger::num1,num2commonnum1,num2write(*,*)num1,num2returnend程序运转的结果是:121218、阅读以下FORTRAN程序：moduleglobalimplicitnonereala,bcommona,bendmoduleprogramexampleuseglobal18v1.0可编写可改正implicitnonea=b=callsub( )endprogramsubroutinesub( )useglobalimplicitnonewrite(*,*)a,breturnendsubroutine程序运转的结果是:19、阅读以下FORTRAN程序:INTEGERA(3,3)DOK=1,3DOL=1,3A(K,L)=K*10+LENDDOENDDOWRITE(*,'(1X,3I3)')AEND程序运转的结果是:11213112223213233320、阅读以下FORTRAN程序:19v1.0可编写可改正INTEGERFF(X,Y)=X+YA=B=B=+F(A,B)WRITE(*,20)BFORMAT(1X,END程序运转的结果是:21、阅读以下FORTRAN程序:X=0DOL=10,5,15X=X+ENDDOEND程序运转时履行循环体的次数是:022、阅读以下FORTRAN77程序:DIMENSIONM(4,4)DATAM/1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6/DOI=1,4WRITE(*,100)(M(I,J),J=1,I)ENDDOFORMAT(1X,4I2)END程序运转的结果是:12620v1.0可编写可改正371482623、阅读以下FORTRAN程序:CHARACTER(LEN=10)ACHARACTER(LEN=6)BDOI=1,10A(I:I)=''ENDDOA(1:5)='ABCDE'B='FGHIJK'A(4:9)=BWRITE(*,100)AFORMAT(1X,A)END程序运转结果是：ABCFGHIJK24、阅读以下FORTRAN程序：X=Y=CALLSUB(