单选题

有程序: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

正确答案

来源:www.examk.com

答案解析

当打开一个新文件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轴旋转产生的旋转体的体积是:()

    单选题查看答案