注冊(cè)暖通工程師公共基礎(chǔ)課件-計(jì)算機(jī)應(yīng)用基礎(chǔ)

按照翻譯類型分類,FORTRAN77程序設(shè)計(jì)語(yǔ)言屬于A)匯編型B)解釋型C)編譯型D)解釋型兼編譯型一個(gè)完整的FORTRAN77源程序的組成不應(yīng)該只有一個(gè)主程序沒有子程序B)有一個(gè)主程序和若干子程序C)有一個(gè)主程序和一個(gè)子程序D)只有子程序而沒有主程序下列關(guān)于FORTRAN77源程序編輯規(guī)則的敘述之中,正確的是編輯時(shí)一行都必須從第7列開始B)主程序第一行必須是PROGRAM語(yǔ)句C)每個(gè)FORMATO語(yǔ)句必須具有標(biāo)號(hào)D)每個(gè)子程序中必須有一個(gè)RETURN語(yǔ)句在FORTRAN77源程序中不能用作續(xù)行標(biāo)志的字符是A)0B)XC)+D)$下列關(guān)于FORTRAN77源程序編輯規(guī)則的敘述之中,正確的是IMPLICIT語(yǔ)句可以放在REAL語(yǔ)句行之后DATA語(yǔ)句可以在放在緊靠END語(yǔ)句行之前注釋行不可以放在END語(yǔ)句行之后D)FORMAT語(yǔ)句可以放在PROGRAM語(yǔ)句行之前下列FORTRAN77源程序的變量名之中,不符合規(guī)則的是A)WB)W3C)-3D)W3W閱讀下列程序X=0.618WRITE(*,'(E12.4)')XEND程序運(yùn)行后顯示結(jié)果是A).6180B)6.180E-01C).0618E+01D).6180E+00梯形的上底為A,下底為B,高為H,計(jì)算其面積的FORTRAN77表達(dá)式中錯(cuò)誤的是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的邏輯表達(dá)式是在FORTRAN77的變量類型說明語(yǔ)句中沒有A)REAl語(yǔ)句B)CHAR語(yǔ)句C)INTEGER語(yǔ)句D)LOGICAL語(yǔ)句一次成功的FORTRAN77源程序編譯操作,不能同時(shí)編譯一個(gè)主程序和一個(gè)子程序同時(shí)編譯幾個(gè)子程序同時(shí)編譯一個(gè)主程序和幾個(gè)子程序同時(shí)編譯幾個(gè)主程序閱讀下列程序F=1.0DO20,J=3,7,2DO20,K=J-1,J20F=F*KWRITE(*,'(13,F8.1)')J,FEND程序運(yùn)行結(jié)果是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的字符串被輸出顯示第一、二個(gè)字符是Aa或ab的字符串被輸出顯示首字符是a或b的字符串將被輸出顯示第一、二個(gè)字符是Aa或Bb的字符串將被輸出顯示閱讀下列程序LOGICALLREAD(*,*)A,BIF(L)THENX=B+2*AELSEX=BENDIFWRITE(*,*)XEND使用鍵盤為上述程序輸入兩個(gè)初值4和3,其輸出的X值是4.0B)3.0C)11.0D)10.0閱讀下列程序READ(*,*)KWRITE(*,100)K100FORMAT(15)END程序運(yùn)行時(shí)輸入初始值12345,那么顯示結(jié)果是12345B)2345C)****D)*****閱讀下列程序INTEGERFF(X,Y)=X+YA=-2.5B=2.1B=B+F(A,B)WRITE(*,'(F3.1)')BEND程序運(yùn)行的結(jié)果是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程序運(yùn)行的結(jié)果是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程序運(yùn)行結(jié)果是A)BIGMIDDLEB)*********C)BIGMIDSMAD)BIMIDSMAL閱讀下列程序N=0DO10K=1,3N=N+1M=K*N10CONTINUEWRITE(*,'(1X,2I3)')M,KEND程序運(yùn)行結(jié)果是A)94B)93C)124D)123(#^)閱讀下列程序FUN(c,d)=a*c+b/dWRITE(*,'(F4.1)')FUN(a,b)-FUN(b,a)END程序運(yùn)行結(jié)果是A)0.0B)4.0C)2.OD)3.O閱讀下列程序LOGICALL1,L2,L3,L4,L5DATAL1,L2,L3/3*.TRUE./WRITE(*,*)L4,L5END程序運(yùn)行結(jié)果是A)TTB)TFC)FFD)FT閱讀下列程序READ(*.500)R.WWRITE(*.500)R.W500FORMAT(1X,F5.2,F5.3)END程序運(yùn)行時(shí)輸入初始值01234567899,結(jié)果顯示的是閱讀下列程序Y=-123WRITE(*,200)Y200FORMAT('Y=',F5.1)END程序運(yùn)行結(jié)果是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程序運(yùn)行結(jié)果是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程序運(yùn)行結(jié)果是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程序運(yùn)行時(shí)輸入的的初始值是3,6,99,7,則運(yùn)行結(jié)果果是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程序運(yùn)行結(jié)果是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程序運(yùn)行結(jié)果是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程序運(yùn)行結(jié)果是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程序運(yùn)行時(shí)輸入初初始值24603357012240,輸出結(jié)果是是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程序運(yùn)行結(jié)果是A)9633B)9987C)9D)9525485665117413221點(diǎn)P在直角坐標(biāo)系中的的橫坐標(biāo)U=-3..5,縱坐標(biāo)V=1.88,使用下列FORTRRAN77程序

計(jì)算射線OP與X軸正向的夾夾角度數(shù).O是坐標(biāo)原點(diǎn).PK=45/ATTAN(1..O)U=-3.5V=1.8WRITE(*,,*)*PPK,'(ddeg)'END在輸出語(yǔ)句WRIITE(*,,*)與*PK,''(deg..)'之間的空白白處應(yīng)該添加加的是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程序運(yùn)行結(jié)果是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程序運(yùn)行結(jié)果是A)YOURBOOYSGIRRLS!BB)YOUUR凵BOYS凵GIRLSS!C)YOUR凵凵BOYSGGIRLS!!D)YYOURBOOYS凵GIRLSS!閱讀下列程序.其其功能是求出出方程2X3-33X2+4XX-11=00在區(qū)間(1,5)中的一個(gè)實(shí)實(shí)數(shù)根,運(yùn)行結(jié)果是是顯示根值和和對(duì)分次數(shù).使用的是二二分算法.請(qǐng)?jiān)谄渲衉____處填入適當(dāng)當(dāng)?shù)膬?nèi)容.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閱讀下列程序.其其功能是計(jì)算算Y=1+11.1X+11.2X2++1.3X33+1.4XX4+1.55X5當(dāng)X=3.1時(shí)的值.主程序調(diào)用了函數(shù)數(shù)子程序.請(qǐng)?jiān)谄?#348889;____處填入適當(dāng)當(dāng)?shù)膬?nèi)容.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有一個(gè)十進(jìn)制的四四位