A.IF(x、LT、O、O.GT.5.0)x=TRUE
B.IF(.NOT.(x.LT.1.0))y=FALSE
C.IF(xEQV.Y)A=T
D.IF(x.LT.1.0)THENY=.FALSE
您可能感興趣的試卷
- 一級(jí)注冊(cè)結(jié)構(gòu)工程師基礎(chǔ)知識(shí)考前沖刺(一)
- 一級(jí)注冊(cè)結(jié)構(gòu)工程師基礎(chǔ)知識(shí)考前沖刺(二)
- 一級(jí)注冊(cè)結(jié)構(gòu)工程師基礎(chǔ)知識(shí)考前沖刺(二)
- 一級(jí)注冊(cè)結(jié)構(gòu)工程師基礎(chǔ)知識(shí)考前沖刺(三)
- 一級(jí)注冊(cè)結(jié)構(gòu)工程師基礎(chǔ)知識(shí)模擬試題(三)
- 一級(jí)注冊(cè)結(jié)構(gòu)工程師基礎(chǔ)知識(shí)模擬試題(四)
- 一級(jí)注冊(cè)結(jié)構(gòu)工程師基礎(chǔ)知識(shí)模擬試題(四)
你可能感興趣的試題
A.IF(NX.BQ.NY)THENGOTO10
B.IFA.LT.BPRANT*
C.IF(ABS(x).LE.1E-5)x=5
D.IF(S.AND.(S.LE.2.0))S=2*3
A.WRITE(*,*)(I,A(I),I=1,N)
B.WRITE(*,*)(N,A(I),I=1,N)
C.READ(*,*)N,(A(I),I=1,N)
D.READ(*,*)(N,A(I),I=1,N)
A.Fw.d
B.Iw.d
C.A
D.Gw.d
A.NEWWANGYou
B.NEWWANGYou
C.NEWWANGYou
D.NEW,WANG,You
A.(M/N).NE.0
B.NOT.(MOD(M,N).NE.0)
C.MOD(M,N).NE.0
D.INT(M/N).NE.0
最新試題
有程序:CHARACTER*4STR1,STR2,STR3OPEN(UNIT=15,F(xiàn)ILE=‘INPUT.DAT’,STATUS=‘OLD’)READ(15,10)STR1,STR2,STR310FORMAT(A6,1x,A5,1x,A4)WRITE(*,’(1x,3A)’)STR1,STR2,STR3CLOSE(15)END用此程序從文件INPUT.DAT中讀出字符串’FORMATANEWDISK’,程序運(yùn)行結(jié)果是:()
有程序:READ(*,50)SWRITE(*,100)S50FORMAT(1X,F(xiàn)7.3)100FORMAT(1X,F(xiàn)8.3)END執(zhí)行此程序,由鍵盤輸入123456789,則輸出S的值為:()
有程序:F1(x)=2.0/(1.0+x)F2(Y)=F1(Y)*Y+1.0A=F1(1.0+F2(1.0)WRITE(*,10)A10FORMAT(1x,E8.2)END此程序執(zhí)行后的輸出結(jié)果為:()
有程序:ADD(X,Y)=X**2+YOPEN(8,F(xiàn)ILE=‘F’,STATUS=‘NEW’,ACCESS=‘DIRECT’,*FORM=‘UNFORMATTED’,REAL=16DO10I=1,4D=ADD(REAL(I),2、0)WRITE(8,REC=I)D10CONTINUECLOSE(8)OPEN(2,F(xiàn)ILE=‘F’,STATUS=‘OLD’,ACCESS=‘DIRECT’,*FORM=‘UNFORMATTFED’,REAL=6DO20I=2,4,2READ(2,REC=I)CWRITE(*,30)C20CONTINUE20FORMAT(1x,F(xiàn)4.1)CLOSE(2)END執(zhí)行此程序的結(jié)果是:()
有程序:DIMENSIONA(4,3)DATAA/3*-1.0,3*-2.0,3*-3.0,3*-4.0/S=0.0DO10K=1,4D=ABS(A(K,1))DO20J=2,3IF(ABS(A(K,J)).GT.D)D=ABS(A(K,J))20CONTINUES=S+D10CONTINUEWRITE(*,*)SEND此程序執(zhí)行后的結(jié)果為:()
有程序:DIMENSIONx(3,3)READ(*,*)xCALLSSl(x(1,2))ENDSUBROUTINESSl(x)DIMENSIONx(3)WRITE(*,*)x(2)END當(dāng)輸入1、2、3、4、5、6、7、8、9時(shí),此程序執(zhí)行后的輸出結(jié)果為:()
有程序:INTEGERM(5,5)L=0DO40J=1,5DO40K=1,5M(J,K)=K40CONTINUEDO10I=1,5N=1IF(MOD(I,2).EQ.0)N=2DO10J=N,5,2L=L+M(I,J)10CONTINUEWRITE(*,20)L20FORMAT(2X,‘L=’,I3)END此程序運(yùn)行的結(jié)果為:()
有程序:INTEGERA(3)DATAA/3*1/N=2DO10I=1.NDO10J=1,N10A(I)=A(J)+1WRITE(*,*)A(N)END此程序的運(yùn)行結(jié)果為:()
有程序:INTEGERFF(X,Y)=X+YA=-2.0B=4.0B=1.0+F(A,B)WRITE(*,‘(1X,F(xiàn)3.1)’)BEND此程序的運(yùn)行結(jié)果是:()
有程序:LOGICALLL=.TRUE.READ(*,*)xIF(x.LT.0)THENL=.FALSE.ELSEWRITE(*,*)xENDIFIF(.NOT.L)WRITE(*,*)-xEND執(zhí)行兩次以上程序,若運(yùn)行中的輸入值分別為2.5和-1.0,則兩次運(yùn)行結(jié)果分別是:()