单选题

有程序:K=1DO10I=1,2DO10J=1,210K=K*I/JWRITE(*,*)KEND此程序执行后的输出结果为()

A1

B0

C0.5

D2

正确答案

来源:www.examk.com

答案解析

因为I=1,J=2时,K=1×1/2,表达式结果为0,K为0。
相似试题
  • 有程序:K=0DO10I=1,2DO10J=1,210K=K+I/JWRITE(*,*)KEND此程序的执行结果K值为()

    单选题查看答案

  • 有程序:K=0DO10I=1,6,2DO10J=1,6,3IF(K.LT.I*J)K=I*J10CONTINUEWRITE(*,*)KEND此程序执行后的输出结果为:()

    单选题查看答案

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

    单选题查看答案

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

    单选题查看答案

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

    单选题查看答案

  • 有程序: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此程序执行后的结果为:()

    单选题查看答案

  • 有程序:I=5J=10K=20M=-10IF(I.GT.M)M=IIF(J.GT.M)M=JIF(K.GT.M)M=KWRITE(*,*)MEND此程序的运行结果是:()

    单选题查看答案

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

    单选题查看答案

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

    单选题查看答案