单选题
有程序：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中读出字符串’FORMAT
A
NEW
DISK’，程序运行结果是：（）AFORMA
NEWDISK
BRMAT
NEWDISK
CFORMATA
NEW
DMATA
NEWDISK
正确答案
答案解析
从INPUT．DAT文件中读出的记录分别赋给变量STR1，STR2，STR3，按第10语句的格式，STR1=‘RMAT’，STR2=‘
NEW’，STR3=‘DISK’，则应选择答案B。
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此程序的运行结果是：（）
单选题查看答案