（单选题）
有程序：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执行此程序的结果是：（）
A3.0；11.0
B6.0；11.0
C6.0；18.0
D11.0；18.0
正确答案
答案解析
当打开一个新文件F．DAT后，共往里写了4条记录。每条记录分别按照定义的语句函数进行计算，第一条记录的值为3．0，第二条记录的值为6．0，第3条记录的值为11．0，第4条记录的值为18．0。按照循环语句只输出第2条及第4条记录的值，则应选择答案C。
相似试题
（单选题）
有程序：F（X，Y）=X／Y+XY=-2．0X=4．0X=1．0*F（Y，X）WRITE（*，*）XEND此程序的运行结果是：（）
（单选题）
有程序：F1（x）=2．0／（1．0+x）F2（Y）=F1（Y）*Y+1．0A=F1（1．0+F2（1．0）WRITE（*，10）A10FORMAT（1x，E8．2）END此程序执行后的输出结果为：（）
（单选题）
有程序：INTEGERFF（X，Y）=X+YA=-2．0B=4．0B=1．0+F（A，B）WRITE（*，‘（1X，F3．1）’）BEND此程序的运行结果是：（）
（单选题）
有程序：INTEGERFF（X，Y）=X／Y+XA=-2．0B=4．0B=B+F（A，B）WRITE（*，20）B20FORMAT（1X，F4．1）END此程序的运行结果是：（）
（单选题）
有程序：CHARATERX*2，Y*3，Z*4DATAX，Y，Z／‘AB’，‘CDE’，‘FGHI’／WRITE（*，100）X，Y，Z100FORMAT（1X，A1，A2，A3）END此程序的运行结果是：（）
（单选题）
有程序：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=x2／2和直线x=1，x=2，y=-1围成的图形，绕直线y=-1旋转所得旋转体体积为：（）
（单选题）
已知两直线l1：x／2=（y+2）／-2=（1-x）／-1和l2：（x-1）／4=（y-3）／M=（z+1）／-2相互垂直，则M的值为：（）
（单选题）
曲线y=sinx（0≤x≤π／2）与直线x=π／2，y=0围成一个平面图形。此平面图形绕x轴旋转产生的旋转体的体积是：（）
