当前位置:一级结构工程师基础知识题库>计算机应用基础题库

问题:

[单选] 有程序:N=0DOK=6,2,-2N=N+KM=2*N10CONTINUEWRITE(*,*)MEND上面程序的运行结果是:()

12。20。24。不定值。

问题:

[单选] 有程序:DO10I=1,5,3DO10J=I,310K=I+JWRITE(*,*)KEND此程序的运行结果是:()

8。4。7。10。

问题:

[单选] 有程序:M=2N=MD010I=1,N+1,NN=N*NM=M*N10CONTINUEWRITE(*,*)MEND此程序的运行结果是:()

8。32。128。16。

问题:

[单选] 有程序:INTEGERPP=0DO10I=0,10,3DO10J=5,100,20DO10K=-10,-5,-110P=P+1WRITE(*,*)PEND此程序的运行结果是:()

0。24。120。144。

问题:

[单选] 有程序:INTEGERB(3,3)DATAB/3*2,3*3,3*4/DO10I=1,310WRITE(*,‘(1X,3I2)’)(B(I,J),J=1,3)END此程序的运行结果是:()

2;2;2;3;3;3;4;4;4。2;3;4;2;3;4;2;3;4。3;3;3;3;3;3;3;3;3。4;3;2;4;3;2;4;3;2。

问题:

[单选] 有程序: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此程序运行的结果为:()

L=36。L=39。L=54。L=42。

问题:

[单选] 有程序:DIMENSIONA(2,2)INTEGERA,YY=0DO20I=1,2D020J=1,2A(I,J)=I*I+J*JY=Y+A(I,J)20CONTINUEWRITE(*,*)YEND此程序运行的结果为:()

16。20。27。30。

问题:

[单选] 有程序:INTEGERA(3)DATAA/3*1/N=2DO10I=1.NDO10J=1,N10A(I)=A(J)+1WRITE(*,*)A(N)END此程序的运行结果为:()

1。2。3。4。

问题:

[单选] 有程序:INTEGERM(3,4)DATAM/4*-1,4*-2,4*-3/S=0DO10I=1.310S=S+M(I,I+1)DO20I=4,2,-120S=S-M(I-1,I)WRITE(*,*)SEND上面程序的运行结果为:()

0.0。-1.0。-2.0。-6.0。

问题:

[单选] 有程序:INTEGERFF(X,Y)=X+YA=-2.0B=4.0B=1.0+F(A,B)WRITE(*,‘(1X,F3.1)’)BEND此程序的运行结果是:()

***。-1.5。-1.0。3.0。