注册暖通工程师公共基础课件-计算机应用基础

按照翻译类型分类,FORTRAN77程序设计语言属于A)汇编型B)解释型C)编译型D)解释型兼编译型一个完整的FORTRAN77源程序的组成不应该只有一个主程序没有子程序B)有一个主程序和若干子程序C)有一个主程序和一个子程序D)只有子程序而没有主程序下列关于FORTRAN77源程序编辑规则的叙述之中,正确的是编辑时一行都必须从第7列开始B)主程序第一行必须是PROGRAM语句C)每个FORMATO语句必须具有标号D)每个子程序中必须有一个RETURN语句在FORTRAN77源程序中不能用作续行标志的字符是A)0B)XC)+D)$下列关于FORTRAN77源程序编辑规则的叙述之中,正确的是IMPLICIT语句可以放在REAL语句行之后DATA语句可以在放在紧靠END语句行之前注释行不可以放在END语句行之后D)FORMAT语句可以放在PROGRAM语句行之前下列FORTRAN77源程序的变量名之中,不符合规则的是A)WB)W3C)-3D)W3W阅读下列程序X=0.618WRITE(*,'(E12.4)')XEND程序运行后显示结果是A).6180B)6.180E-01C).0618E+01D).6180E+00梯形的上底为A,下底为B,高为H,计算其面积的FORTRAN77表达式中错误的是A)1/2*(AB)*HB)(A+B)*H/2C)(A+B)/2*HD)0.5*(A+B)*H要选拔身高T>1.7米且体重W<62.5公斤的人,FORTRAN的逻辑表达式是在FORTRAN77的变量类型说明语句中没有A)REAl语句B)CHAR语句C)INTEGER语句D)LOGICAL语句一次成功的FORTRAN77源程序编译操作,不能同时编译一个主程序和一个子程序同时编译几个子程序同时编译一个主程序和几个子程序同时编译几个主程序阅读下列程序F=1.0DO20,J=3,7,2DO20,K=J-1,J20F=F*KWRITE(*,'(13,F8.1)')J,FEND程序运行结果是A)36.0B)5120.0C)95040.0D)9362880.0阅读下列程序CHARACTER*10WDO10K=1,10READ(*,'(A10)'WIF(W(1:2).EQ.'AB'.OR.W(1:2).EQ.'ab')WRITE(*,*)'',W10CONTINUEEND程序的功能是首字符是A或B的字符串被输出显示第一、二个字符是Aa或ab的字符串被输出显示首字符是a或b的字符串将被输出显示第一、二个字符是Aa或Bb的字符串将被输出显示阅读下列程序LOGICALLREAD(*,*)A,BIF(L)THENX=B+2*AELSEX=BENDIFWRITE(*,*)XEND使用键盘为上述程序输入两个初值4和3,其输出的X值是4.0B)3.0C)11.0D)10.0阅读下列程序READ(*,*)KWRITE(*,100)K100FORMAT(15)END程序运行时输入初始值12345,那么显示结果是12345B)2345C)****D)*****阅读下列程序INTEGERFF(X,Y)=X+YA=-2.5B=2.1B=B+F(A,B)WRITE(*,'(F3.1)')BEND程序运行的结果是A).1B).7C)2.1D)1.7阅读下列程序A=3.5CALLSUBA(A,A,A)WRITE(*,'(F4.1)')AENDSUBROUTINESUBA(X,Y,Z)Y=Y-2.0Z=Z+XEND程序运行的结果是A)7.0B)5.0C)3.0D)1.5阅读下列程序CHARACTERA*4,B*5,C*4DATAA,B,C/','MIDDLE','SMALL'/WRITE(*,20)A,B,C20FORMAT(1X,A2,A3,A4)END程序运行结果是A)BIGMIDDLEB)*********C)BIGMIDSMAD)BIMIDSMAL阅读下列程序N=0DO10K=1,3N=N+1M=K*N10CONTINUEWRITE(*,'(1X,2I3)')M,KEND程序运行结果是A)94B)93C)124D)123(#^)阅读下列程序FUN(c,d)=a*c+b/dWRITE(*,'(F4.1)')FUN(a,b)-FUN(b,a)END程序运行结果是A)0.0B)4.0C)2.OD)3.O阅读下列程序LOGICALL1,L2,L3,L4,L5DATAL1,L2,L3/3*.TRUE./WRITE(*,*)L4,L5END程序运行结果是A)TTB)TFC)FFD)FT阅读下列程序READ(*.500)R.WWRITE(*.500)R.W500FORMAT(1X,F5.2,F5.3)END程序运行时输入初始值01234567899,结果显示的是阅读下列程序Y=-123WRITE(*,200)Y200FORMAT('Y=',F5.1)END程序运行结果是A)Y=*****B)=*****C)Y=-123.0D)=-123.0阅读下列程序K(X,Y)=X/Y+XA=-2.0B=4.0B=1.0+K(A,B)WRITE(*,'(F4.1)')BEND程序运行结果是A)-1.0B)1.0C)2.0D)3.0阅读下列程序DIMENSIONM(3,3)DATAM/1,2,3,4,5,6,7,8,9/WRITE(*,100)(M(3,J),J=1,3)100FORMMAT(1XX,3I2))END程序运行结果是A)2588B)3369C)456DD)7889阅读下列程序INTEGERA(1000),GREAD(*,**)N,(AA(I),II=1,N))DO10I==1,N-11G=IDO20J==I+1,NNIF(A(J)..LT.A((G))THHENG=JENDIF20CONTINNUEK=A(I)A(I)=A(GG)A(G)=K10CONTIINUEWRITE(*,,'(1X,,10I2))')(A((I),I==1,N)END程序运行时输入的的初始值是3,6,99,7,则运行结果果是A)6788B)8876C)689DD)9886阅读下列程序I=1M=110IF(I..LE.3))THENFACT=1DO100K==1,2*II+1FACT=FACCT*K100CONTTINUEM=M+FACTTI=I+1GOTO10WRITE(*,,'(I155)')MEND程序运行结果是A)5040B)51160C))51666D)55167阅读下列程序DIMENSIOONS(33)DATAS/11.0,2..0,3.00/WRITE(*,,*)LA((3,S)ENDFUNCTIONNLA(NN,X)DIMENSIOONX(NN)LA=0L=2DO20I==1,NLA=LA+X((I)/L20CONTIINUEEND程序运行结果是A)1.00000000B)2..00000000C))1D))2阅读下列程序DIMENSIOONN(22)DO10I==1,2N(I)=010CONTIINUEK=2DO20I==1,KDO30J==1,KN(J)=N(II)+130CONTIINUE20CONTIINUEWRITE(*,,100),,N(2)100FORMAAT(I3,,I3)END程序运行结果是A)23BB)333C)222D))32阅读下列程序WRITE(*,,*)'INNPUTAA,B,H((cm)'READ(*,1100)A,,B,HS=(A+B)**H/2S=INT(S**10+0..5)/100WRITE(*,,200)SS100FORMMAT(3FF4.2)200FORMMAT(1XX,'S='',F6.22)END程序运行时输入初初始值24603357012240,输出结果是是A)S=3733.86BB)S=3373.900C)SS=*******D))S=377386000.00阅读下列程序INTEGERA(3,33)DATAA/99,8,7,,6,5,44,3,2,,1/WRITE(*,,10)(((A(M,NN),N=11,M=1,,3)10FORMAAT(I2//,2I2//,3I2))END程序运行结果是A)9633B)9987C)9D)9525485665117413221点P在直角坐标系中的的横坐标U=-3..5,纵坐标V=1.88,使用下列FORTRRAN77程序

计算射线OP与X轴正向的夹夹角度数.O是坐标原点.PK=45/ATTAN(1..O)U=-3.5V=1.8WRITE(*,,*)*PPK,'(ddeg)'END在输出语句WRIITE(*,,*)与*PK,''(deg..)'之间的空白白处应该添加加的是A)ATAN22(U/V))B)AATAN2((U,V)C)ATTAN2(VV/U)DD)ATAAN2(V,,U)阅读下列程序N=0DO10K==50,0,,-2DO10L==-100,,100,1110N=N+11WRITE(*,,*)NEND程序运行结果是A)5000B)50026C))52000D)55226阅读下列程序CHARACTEER*4AA,B,C**5DATAA,BB,C/'YYOUR',,'BOYSS','GIIRLS'//WRITE(*,,'(1X,,A4,A55,A6,AA1)')AA,B,C,,'!'END程序运行结果是A)YOURBOOYSGIRRLS!BB)YOUUR凵BOYS凵GIRLSS!C)YOUR凵凵BOYSGGIRLS!!D)YYOURBOOYS凵GIRLSS!阅读下列程序.其其功能是求出出方程2X3-33X2+4XX-11=00在区间(1,5)中的一个实实数根,运行结果是是显示根值和和对分次数.使用的是二二分算法.请在其中_____处填入适当当的内容.FUN(X)=22.0*X***3-3..0*X***2+4.00*X-111.0DATAXL,,XR,N//1.O,55.0,0//10CONTIINUE__6__X=(XL+XRR)/2.00__7__IF(ABS(FFX).LTT.1E-66.OR..N.GE..1000))THENWRITE(*,,'(1X,,A2,F112.7,AA5,14))')'X==',X,''N=',NNELSEIF(FUN(___8__))*FX.GGE.0.00)THENNXR=XELSEXL=XENDIFGOTO10ENDIFEND阅读下列程序.其其功能是计算算Y=1+11.1X+11.2X2++1.3X33+1.4XX4+1.55X5当X=3.1时的值.主程序调用了函数数子程序.请在其񕋙____处填入适当当的内容.PROGRAMPVALUUE__9__DATAA/11.0,1..1,1.22,1.3,,1.4,11.5/,NN,X/6,,3.1/__10__WRITE(*,,'(1X,,A5,6FF5.1)'')'a(kk)=',AAWRITE(*,,'(1X,,A2,F55.1,A66,F8.22)')'XX=',X,,';Y==',YENDFUNCTIONNPOLYY(B,M,,V)DIMENSIOONB(MM)POLY=B(11)FV=1.0DO10K=22,MFV=FV*V10__11___=POLLY+B(KK)*FVEND有一个十进制的四四位