单选题

有程序:LOGICALLL=.TRUE.READ(*,*)xIF(x.LT.0)THENL=.FALSE.ELSEWRITE(*,*)xENDIFIF(.NOT.L)WRITE(*,*)-xEND执行两次以上程序,若运行中的输入值分别为2.5和-1.0,则两次运行结果分别是:()

A2.5和1.0

B-2.5和1.0

C2.5和-1.0

D-2.5和-1.0

正确答案

来源:www.examk.com

答案解析

当输2.5时,执行ELSE后面的WRITE语句,而第二个IF语句不执行,x的值为2.5;当输入-1.0时,执行第一个IF语句后面的语句L=.FALSE.,而后执行第二个IF语句中的WRITE语句输入-x的值,应为1.0。
相似试题
  • 先张法和后张法的张拉程序有何不同?

    简答题查看答案

  • 有程序:WRITE(*,400)876.345400FORMAT(1X,E8.0)此程序段的正确执行结果是:()

    单选题查看答案

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

    单选题查看答案

  • 有程序:CHARACTER*4A,B*6A=‘ABCD’B=A∥‘EFGH’WRITE(*,*)BEND此程序执行后的输出结果为:()

    单选题查看答案

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

    单选题查看答案

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

    单选题查看答案

  • 有程序:F(X,Y)=X/Y+XY=-2.0X=4.0X=1.0*F(Y,X)WRITE(*,*)XEND此程序的运行结果是:()

    单选题查看答案

  • 有程序:DIMENSION(4,4)READ(*,*)AWRITE(*,10)A10FORMAT(1x,6E9.2)END此程序执行后的输出结果的记录数为:()

    单选题查看答案

  • 有程序:K=0DO10I=1,2DO10J=1,210K=K+I/JWRITE(*,*)KEND此程序的执行结果K值为()

    单选题查看答案