单选题

有程序:CHARACTER*6SS=‘ABCDEF’CALLSS(S)ENDSUBROUTINESS(S1)CHARACTERS1*3WRITE(*,*)S1END此程序执行后的输出结果为:()

AABC

BBCD

CCDE

DDEF

正确答案

来源:www.examk.com

答案解析

S1的长度为3个字符,则存放S字符串的前3个字符,所以输出结果为ABC。
相似试题
  • 有程序:CHARACTER*4A,B*6A=‘ABCD’B=A∥‘EFGH’WRITE(*,*)BEND此程序执行后的输出结果为:()

    单选题查看答案

  • 有程序:CHARACTER*4STR1,STR2,STR3OPEN(UNIT=15,FILE=‘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’,程序运行结果是:()

    单选题查看答案

  • 有程序:F(C,D)=A*C+B/DA=1.0B=2.0WRITE(*,*)F(A,B)+F(B,A)END此程序的运行结果是:()

    单选题查看答案

  • 有程序:INTEGERFF(X,Y)=X+YA=-2.0B=4.0B=1.0+F(A,B)WRITE(*,‘(1X,F3.1)’)BEND此程序的运行结果是:()

    单选题查看答案

  • 有程序:INTEGERA(3)DATAA/3*1/N=2DO10I=1.NDO10J=1,N10A(I)=A(J)+1WRITE(*,*)A(N)END此程序的运行结果为:()

    单选题查看答案

  • 有程序:INTEGERFF(X,Y)=X/Y+XA=-2.0B=4.0B=B+F(A,B)WRITE(*,20)B20FORMAT(1X,F4.1)END此程序的运行结果是:()

    单选题查看答案

  • 有程序:DIMENSIONA(2,2)READ(*,*)ASUM=0DO10I=1,2D010J=1,210A(I,J)=A(I,J)+I+JWRITE(*,*)A(1,2)END当输入1、2、3、4时,此程序执行后的输出结果为:()

    单选题查看答案

  • 有程序: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上面程序的运行结果是:()

    单选题查看答案

  • 有程序:DIMENSIONA(2,2)INTEGERA,YY=0DO20I=1,2D020J=1,2A(I,J)=I*I+J*JY=Y+A(I,J)20CONTINUEWRITE(*,*)YEND此程序运行的结果为:()

    单选题查看答案