有程序：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此程序執(zhí)行后的結(jié)果為：（）

有程序：ADD（X，Y）=X**2+YOPEN（8，F(xiàn)ILE=‘F’，STATUS=‘NEW’，ACCESS=‘DIRECT’，*FORM=‘UNFORMATTED’，REAL=16DO10I=1，4D=ADD（REAL（I），2、0）WRITE（8，REC=I）D10CONTINUECLOSE（8）OPEN（2，F(xiàn)ILE=‘F’，STATUS=‘OLD’，ACCESS=‘DIRECT’，*FORM=‘UNFORMATTFED’，REAL=6DO20I=2，4，2READ（2，REC=I）CWRITE（*，30）C20CONTINUE20FORMAT（1x，F(xiàn)4．1）CLOSE（2）END執(zhí)行此程序的結(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í)行此程序，則運行的結(jié)果是：（）

有程序：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’，程序運行結(jié)果是：（）

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

有程序：READ（*，50）SWRITE（*，100）S50FORMAT（1X，F(xiàn)7．3）100FORMAT（1X，F(xiàn)8．3）END執(zhí)行此程序，由鍵盤輸入123456789，則輸出S的值為：（）

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

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

有程序：LOGICALA，B，C，DINTEGERX，YDATAX，Y，A，B／1，-1，2*．FALSE．／C=．NOT．A．AND（B．OR．XGE．Y）D=．NOT．（A．AND．B．OR、X．GE．Y）WRITE（*，*）C，DEND上面程序的運行結(jié)果是：（）

有程序：INTEGERB（3，3）DATAB／3*2，3*3，3*4／DO10I=1，310WRITE（*，‘（1X，3I2）’）（B（I，J），J=1，3）END此程序的運行結(jié)果是：（）