有程序：CHARATERX*2，Y*3，Z*4DATAX，Y，Z／‘AB’，‘CDE’，‘FGHI’／WRITE（*，100）X，Y，Z100FORMAT（1X，A1，A2，A3）END此程序的運(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é)果是：（）

有程序：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é)果是：（）

有程序：INTEGERB（3，3）DATAB／3*2，3*3，3*4／DO10I=1，310WRITE（*，‘（1X，3I2）’）（B（I，J），J=1，3）END此程序的運(yùn)行結(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上面程序的運(yùn)行結(jié)果是：（）

有程序：INTEGERFF（X，Y）=X+YA=-2．0B=4．0B=1．0+F（A，B）WRITE（*，‘（1X，F(xiàn)3．1）’）BEND此程序的運(yùn)行結(jié)果是：（）

有程序：INTEGERM（5，5）L=0DO40J=1，5DO40K=1，5M（J，K）=K40CONTINUEDO10I=1，5N=1IF（MOD（I，2）．EQ．0）N=2DO10J=N，5，2L=L+M（I，J）10CONTINUEWRITE（*，20）L20FORMAT（2X，‘L=’，I3）END此程序運(yùn)行的結(jié)果為：（）

下列程序執(zhí)行時，需輸入數(shù)據(jù)的記錄個數(shù)必須為：DIMENSIONA（4，4）READ（*，*）A………………END（）

有程序：F（C，D）=A*C+B／DA=1．0B=2．0WRITE（*，*）F（A，B）+F（B，A）END此程序的運(yùn)行結(jié)果是：（）

有程序：INTEGERFF（X，Y）=X／Y+XA=-2．0B=4．0B=B+F（A，B）WRITE（*，20）B20FORMAT（1X，F(xiàn)4．1）END此程序的運(yùn)行結(jié)果是：（）