[单选题]

程序

character*(*)name

name=’apple’

L=len(name)

Do10I=1,L

10name(I:I)=char(Ichar(name(I:I))+I

print*,name

end

程序运行后输出结果为()

A .APPLE

B .brspj

C .jpsrb

D .apple

参考答案与解析:

相关试题

下列程序执行后的输出结果为()。CHARACTER*6CC=’123

[单选题]下列程序执行后的输出结果为()。CHARACTER*6CC=’1234567890’CALLSS(C)ENDSUEROUTINESS(C)CHARACTERC*2WRITE(*,*)CENDA . 123456B . 12C . 56D . 1234567890

  • 查看答案
  • 下列程序执行后的输出结果为()。CHARACTER9*CC=’123

    [单选题]下列程序执行后的输出结果为()。CHARACTER9*CC=’1234567890’CALLSS(C)ENDSUBROUTINESS(X)CHARACTERX*2WRITE(*,*)XENDA . 123456B . 12C . 56D . 567890

  • 查看答案
  • 有程序:CHARACTER*6SS=‘ABCDEF’CALLSS(S)ENDSU

    [单选题]有程序:CHARACTER*6SS=‘ABCDEF’CALLSS(S)ENDSUBROUTINESS(S1)CHARACTERS1*3WRITE(*,*)S1END此程序执行后的输出结果为:()A . ABCB . BCDC . CDED . DEF

  • 查看答案
  • 有程序:CHARACTER*4A,B*6A=‘ABCD’B=A∥‘EFGH’WR

    [单选题]有程序:CHARACTER*4A,B*6A=‘ABCD’B=A∥‘EFGH’WRITE(*,*)BEND此程序执行后的输出结果为:()A . ABCDEFGHB . ABCDEFC . ABCDD . EFGH

  • 查看答案
  • Apple

    [名词解释] Apple

  • 查看答案
  • Apple Talk

    [名词解释] Apple Talk

  • 查看答案
  • 有程序:CHARACTER*4STR1,STR2,STR3OPEN(UNIT=1

    [单选题]有程序: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&rsquo

  • 查看答案
  • Every valid character in a computer that

    [单选题]E.very valid character in a computer that uses even(71)must always have an even number of 1 bits.(71)A.parityB.checkC.testD.compare

  • 查看答案
  • Every valid character in a computer that

    [单选题]E.very valid character in a computer that uses even _____ must always have an even number of 1 bits.A.parityB.checkC.testD.compareA.B.C.D.

  • 查看答案
  • 特性曲character piece

    [名词解释] 特性曲character piece

  • 查看答案