单选题

有程序:CHARACTER*4STR1,STR2,STR3OPEN(UNIT=15,FILE=‘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’,程序运行结果是:()

AFORMANEWDISK

BRMATNEWDISK

CFORMATANEW

DMATANEWDISK

正确答案

来源:www.examk.com

答案解析

从INPUT.DAT文件中读出的记录分别赋给变量STR1,STR2,STR3,按第10语句的格式,STR1=‘RMAT’,STR2=‘NEW’,STR3=‘DISK’,则应选择答案B。
相似试题
  • 有程序:CHARACTER*4A,B*6A=‘ABCD’B=A∥‘EFGH’WRITE(*,*)BEND此程序执行后的输出结果为:()

    单选题查看答案

  • 有程序:CHARACTER*6SS=‘ABCDEF’CALLSS(S)ENDSUBROUTINESS(S1)CHARACTERS1*3WRITE(*,*)S1END此程序执行后的输出结果为:()

    单选题查看答案

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

    单选题查看答案

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

    单选题查看答案

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

    单选题查看答案

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

    单选题查看答案

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

    单选题查看答案

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

    单选题查看答案

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

    单选题查看答案