单项选择题有程序：CHARATERX*2，Y*3，Z*4DATAX，Y，Z／‘AB’，‘CDE’，‘FGHI’／WRITE（*，100）X，Y，Z100FORMAT（1X，A1，A2，A3）END此程序的运行结果是：（）

A.ABCDEF
B.ACDFGH
C.******
D.ABCDEFGHI

点击查看答案&解析

您可能感兴趣的试卷

你可能感兴趣的试题

1.单项选择题有程序：READ（*，100）A100FORMAT（3x，F6．2）WRITE（*，200）A200FORMAT（1x，F8．2）END当执行此程序时，从键盘输入1234567890↙，则程序的运行结果是：（）

A.4567.89
B.1234.56
C.******
D.1234.5

点击查看答案&解析
2.单项选择题有程序：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执行此程序的结果是：（）

A.3.0；11.0
B.6.0；11.0
C.6.0；18.0
D.11.0；18.0

点击查看答案&解析
3.单项选择题

有程序：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’，程序运行结果是：（）

A.FORMANEWDISK
B.RMATNEWDISK
C.FORMATANEW
D.MATANEWDISK

点击查看答案&解析
4.单项选择题有程序：DIMENSIONA（4，3）DATAA／3*-1．0，3*-2．0，3*-3．0，3*-4．0／S=0．0DO10K=1，4D=ABS（A（K，1））DO20J=2，3IF（ABS（A（K，J））．GT．D）D=ABS（A（K，J））20CONTINUES=S+D10CONTINUEWRITE（*，*）SEND此程序执行后的结果为：（）

A.15.0
B.12.0
C.9.0
D.10.0

点击查看答案&解析
5.单项选择题有程序：INTEGERM（3，3）DATAM／1，2，3，4，5，6，7，8，9／DO10I=1．3DO10J=1，3K=M（I，J）M（I，J）=M（J，I）M（J，I）=K10CONTINUEWRITE（*，100）（（M（I，J），J=1，3），I=1，3）100FORMAT（1x，3I2）END此程序执行后的结果为：（）

A.1；4；7；2；5；8；3；6；9
B.1；2；3；4；5；6；7；8；9
C.9；6；3；8；5；2；7；4；1
D.7；8；9；4；5；6；1；2；3

点击查看答案&解析
6.单项选择题有程序：DATAI，M，N／2，1，4／10M=M*II=I+1IF（I．GT．N）GOT020GOTO1020WRITE（*，*）MEND执行此程序后，输出结果为：（）

A.6
B.24
C.120
D.720

点击查看答案&解析
7.单项选择题有程序：CHARACTER*4A，B*6A=‘ABCD’B=A∥‘EFGH’WRITE（*，*）BEND此程序执行后的输出结果为：（）

A.ABCDEFGH
B.ABCDEF
C.ABCD
D.EFGH

点击查看答案&解析
8.单项选择题有程序：CHARACTER*6SS=‘ABCDEF’CALLSS（S）ENDSUBROUTINESS（S1）CHARACTERS1*3WRITE（*，*）S1END此程序执行后的输出结果为：（）

A.ABC
B.BCD
C.CDE
D.DEF

点击查看答案&解析
9.单项选择题有程序：DIMENSIONx（3，3）READ（*，*）xCALLSSl（x（1，2））ENDSUBROUTINESSl（x）DIMENSIONx（3）WRITE（*，*）x（2）END当输入1、2、3、4、5、6、7、8、9时，此程序执行后的输出结果为：（）

A.3
B.4
C.5
D.6

点击查看答案&解析
10.单项选择题下列程序执行时，需输入数据的记录个数必须为：DIMENSIONA（4，4）READ（*，*）A………………END（）

A.1个
B.4个
C.16个
D.不超过16个

点击查看答案&解析

最新试题

有程序：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上面程序的运行结果是：（）

题型：单项选择题

有程序：I=5J=10K=20M=-10IF（I．GT．M）M=IIF（J．GT．M）M=JIF（K．GT．M）M=KWRITE（*，*）MEND此程序的运行结果是：（）

题型：单项选择题

有程序：DATAI，M，N／2，1，4／10M=M*II=I+1IF（I．GT．N）GOT020GOTO1020WRITE（*，*）MEND执行此程序后，输出结果为：（）

题型：单项选择题

有程序：INTEGERA（3）DATAA／3*1／N=2DO10I=1．NDO10J=1，N10A（I）=A（J）+1WRITE（*，*）A（N）END此程序的运行结果为：（）

题型：单项选择题

有程序：CHARACTER*6SS=‘ABCDEF’CALLSS（S）ENDSUBROUTINESS（S1）CHARACTERS1*3WRITE（*，*）S1END此程序执行后的输出结果为：（）

题型：单项选择题

有程序：INTEGERFF（X，Y）=X／Y+XA=-2．0B=4．0B=B+F（A，B）WRITE（*，20）B20FORMAT（1X，F4．1）END此程序的运行结果是：（）

题型：单项选择题

有程序：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’，程序运行结果是：（）

题型：单项选择题

有程序：N=0DOK=6，2，-2N=N+KM=2*N10CONTINUEWRITE（*，*）MEND上面程序的运行结果是：（）

题型：单项选择题

下列说法中，正确的一条是（）

题型：单项选择题