A.1.0
B.1.5
C.2.0
D.3.0
您可能感興趣的試卷
你可能感興趣的試題
A.***
B.-1.5
C.-1.0
D.3.0
A.0.0
B.-1.0
C.-2.0
D.-6.0
A.1
B.2
C.3
D.4
A.16
B.20
C.27
D.30
A.L=36
B.L=39
C.L=54
D.L=42
最新試題
有程序:INTEGERA(3)DATAA/3*1/N=2DO10I=1.NDO10J=1,N10A(I)=A(J)+1WRITE(*,*)A(N)END此程序的運行結果為:()
有程序:F(C,D)=A*C+B/DA=1.0B=2.0WRITE(*,*)F(A,B)+F(B,A)END此程序的運行結果是:()
有程序:DATAA,B,C/4.0,-8.0,3.0/P=B*B-4*A*CIF(P.GE.0.0)THENS=(-B+SQRT(P))/(2*A)T=C/(A*S)P=(S+T)/2ELSES=0T=0ENDIFWRITE(*,*)PEND執(zhí)行此程序,則運行的結果是:()
有程序:M=2N=MD010I=1,N+1,NN=N*NM=M*N10CONTINUEWRITE(*,*)MEND此程序的運行結果是:()
有程序:LOGICALLL=.TRUE.READ(*,*)xIF(x.LT.0)THENL=.FALSE.ELSEWRITE(*,*)xENDIFIF(.NOT.L)WRITE(*,*)-xEND執(zhí)行兩次以上程序,若運行中的輸入值分別為2.5和-1.0,則兩次運行結果分別是:()
有程序:DIMENSION(4,4)READ(*,*)AWRITE(*,10)A10FORMAT(1x,6E9.2)END此程序執(zhí)行后的輸出結果的記錄數(shù)為:()
有程序: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í)行此程序的結果是:()
有程序:CHARATERX*2,Y*3,Z*4DATAX,Y,Z/‘AB’,‘CDE’,‘FGHI’/WRITE(*,100)X,Y,Z100FORMAT(1X,A1,A2,A3)END此程序的運行結果是:()
下列程序執(zhí)行時,需輸入數(shù)據(jù)的記錄個數(shù)必須為:DIMENSIONA(4,4)READ(*,*)A………………END()
有程序:INTEGERM(3,3)DATAM/1,2,3,4,5,6,7,8,9/DO10I=1.3DO10J=1,3K=M(I,J)M(I,J)=M(J,I)M(J,I)=K10CONTINUEWRITE(*,100)((M(I,J),J=1,3),I=1,3)100FORMAT(1x,3I2)END此程序執(zhí)行后的結果為:()