有程序：INTEGERM（3，4）DATAM／4*-1，4*-2，4*-3／S=0DO10I=1．310S=S+M（I，I+1）DO20I=4，2，-120S=S-M（I-1，I）WRITE（*，*）SEND上面程序的運行結(jié)果為：（）

有程序：CHARATERX*2，Y*3，Z*4DATAX，Y，Z／‘AB’，‘CDE’，‘FGHI’／WRITE（*，100）X，Y，Z100FORMAT（1X，A1，A2，A3）END此程序的運行結(jié)果是：（）

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

有程序：LOGICALLL=．TRUE．READ（*，*）xIF（x．LT．0）THENL=．FALSE．ELSEWRITE（*，*）xENDIFIF（．NOT．L）WRITE（*，*）-xEND執(zhí)行兩次以上程序，若運行中的輸入值分別為2．5和-1．0，則兩次運行結(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此程序的運行結(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é)果是：（）

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

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