有程序：CHARACTER*4STR1，STR2，STR3OPEN（UNIT=15，F(xiàn)ILE=‘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’，程序運(yùn)行結(jié)果是：（）

有程序：DATAA，B，C／4．0，-8．0，3．0／P=B*B-4*A*CIF（P．GE．0．0）THENS=（-B+SQRT（P））／（2*A）T=C／（A*S）P=（S+T）／2ELSES=0T=0ENDIFWRITE（*，*）PEND執(zhí)行此程序，則運(yùn)行的結(jié)果是：（）

下列說法中，正確的一條是（）

有程序：WRITE（*，400）876．345400FORMAT（1X，E8．0）此程序段的正確執(zhí)行結(jié)果是：（）

有程序：M=2N=MD010I=1，N+1，NN=N*NM=M*N10CONTINUEWRITE（*，*）MEND此程序的運(yùn)行結(jié)果是：（）

有程序：N=0DOK=6，2，-2N=N+KM=2*N10CONTINUEWRITE（*，*）MEND上面程序的運(yùn)行結(jié)果是：（）

有程序：DATAI，M，N／2，1，4／10M=M*II=I+1IF（I．GT．N）GOT020GOTO1020WRITE（*，*）MEND執(zhí)行此程序后，輸出結(jié)果為：（）

有程序：DIMENSIONA（4，3）DATAA／3*-1．0，3*-2．0，3*-3．0，3*-4．0／S=0．0DO10K=1，4D=ABS（A（K，1））DO20J=2，3IF（ABS（A（K，J））．GT．D）D=ABS（A（K，J））20CONTINUES=S+D10CONTINUEWRITE（*，*）SEND此程序執(zhí)行后的結(jié)果為：（）

有程序：CHARACTER*6SS=‘ABCDEF’CALLSS（S）ENDSUBROUTINESS（S1）CHARACTERS1*3WRITE（*，*）S1END此程序執(zhí)行后的輸出結(jié)果為：（）

有程序：DIMENSIONA（2，2）INTEGERA，YY=0DO20I=1，2D020J=1，2A（I，J）=I*I+J*JY=Y+A（I，J）20CONTINUEWRITE（*，*）YEND此程序運(yùn)行的結(jié)果為：（）