问题：
[单选] 有程序：ADD（X，Y）=X**2+YOPEN（8，FILE=‘F’，STATUS=‘NEW’，ACCESS=‘DIRECT’，*FORM=‘UNFORMATTED’，REAL=16DO10I=1，4D=ADD（REAL（I），2、0）WRITE（8，REC=I）D10CONTINUECLOSE（8）OPEN（2，FILE=‘F’，STATUS=‘OLD’，ACCESS=‘DIRECT’，*FORM=‘UNFORMATTFED’，REAL=6DO20I=2，4，2READ（2，REC=I）CWRITE（*，30）C20CONTINUE20FORMAT（1x，F4．1）CLOSE（2）END执行此程序的结果是：（）
3.0；11.0。6.0；11.0。6.0；18.0。11.0；18.0。
问题：
[单选] 有程序：READ（*，100）A100FORMAT（3x，F6．2）WRITE（*，200）A200FORMAT（1x，F8．2）END当执行此程序时，从键盘输入1234567890↙，则程序的运行结果是：（）
A.4567.89。B.1234.56。C.******。D.1234.5。
问题：
[单选] 有程序：CHARATERX*2，Y*3，Z*4DATAX，Y，Z／‘AB’，‘CDE’，‘FGHI’／WRITE（*，100）X，Y，Z100FORMAT（1X，A1，A2，A3）END此程序的运行结果是：（）
ABCDEF。ACDFGH。******。ABCDEFGHI。
问题：
[单选] 有程序：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上面程序的运行结果是：（）
TT。FF。TF。FT。
问题：
[单选] 有程序：WRITE（*，400）876．345400FORMAT（1X，E8．0）此程序段的正确执行结果是：（）
['['
8.E+02。
1.E+03。格式错误。
1.0000E+03。
问题：
[单选] 有程序：READ（*，50）SWRITE（*，100）S50FORMAT（1X，F7．3）100FORMAT（1X，F8．3）END执行此程序，由键盘输入123456789，则输出S的值为：（）
1234.576。2345.678。345.678。*******。
问题：
[单选] 有程序：READ（*，10）IA，IIF（IA．GE．125）THENI=I+10，ELSEI=I-10ENDIFWRITE（*，*）I10FORMAT（I2，I1）END执行上面的程序时，从键盘输入365，2，则运行后结果I的值是：（）
15。-8。12。-5。
问题：
[单选] 有程序：I=5J=10K=20M=-10IF（I．GT．M）M=IIF（J．GT．M）M=JIF（K．GT．M）M=KWRITE（*，*）MEND此程序的运行结果是：（）
5。10。20。-10。
问题：
[单选] 有程序：LOGICALLL=．TRUE．READ（*，*）xIF（x．LT．0）THENL=．FALSE．ELSEWRITE（*，*）xENDIFIF（．NOT．L）WRITE（*，*）-xEND执行两次以上程序，若运行中的输入值分别为2．5和-1．0，则两次运行结果分别是：（）
2.5和1.0。-2.5和1.0。2.5和-1.0。-2.5和-1.0。
问题：
[单选] 有程序：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执行此程序，则运行的结果是：（）
0.0。1.0。2.0。3.0。
