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

A.5
B.10
C.20
D.-10

点击查看答案&解析

您可能感兴趣的试卷

你可能感兴趣的试题

1.单项选择题有程序：READ（*，10）IA，IIF（IA．GE．125）THENI=I+10，ELSEI=I-10ENDIFWRITE（*，*）I10FORMAT（I2，I1）END执行上面的程序时，从键盘输入365，2，则运行后结果I的值是：（）

A.15
B.-8
C.12
D.-5

点击查看答案&解析
2.单项选择题有程序：READ（*，50）SWRITE（*，100）S50FORMAT（1X，F7．3）100FORMAT（1X，F8．3）END执行此程序，由键盘输入123456789，则输出S的值为：（）

A.1234.576
B.2345.678
C.345.678
D.*******

点击查看答案&解析
3.单项选择题有程序：WRITE（*，400）876．345400FORMAT（1X，E8．0）此程序段的正确执行结果是：（）

A.8.E+02
B.1.E+03
C.格式错误
D.1.0000E+03

点击查看答案&解析
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上面程序的运行结果是：（）

A.TT
B.FF
C.TF
D.FT

点击查看答案&解析
5.单项选择题有程序：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

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

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

点击查看答案&解析
7.单项选择题有程序：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

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

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

点击查看答案&解析
9.单项选择题有程序：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

点击查看答案&解析
10.单项选择题有程序：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

点击查看答案&解析

最新试题

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

题型：单项选择题

有程序：DO10I=1，5，3DO10J=I，310K=I+JWRITE（*，*）KEND此程序的运行结果是：（）

题型：单项选择题

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

题型：单项选择题

有程序：INTEGERM（5，5）L=0DO40J=1，5DO40K=1，5M（J，K）=K40CONTINUEDO10I=1，5N=1IF（MOD（I，2）．EQ．0）N=2DO10J=N，5，2L=L+M（I，J）10CONTINUEWRITE（*，20）L20FORMAT（2X，‘L=’，I3）END此程序运行的结果为：（）

题型：单项选择题

有程序：LOGICALLL=．TRUE．READ（*，*）xIF（x．LT．0）THENL=．FALSE．ELSEWRITE（*，*）xENDIFIF（．NOT．L）WRITE（*，*）-xEND执行两次以上程序，若运行中的输入值分别为2．5和-1．0，则两次运行结果分别是：（）

题型：单项选择题

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

题型：单项选择题

有程序：INTEGERM（3，4）DATAM／4*-1，4*-2，4*-3／S=0DO10I=1．310S=S+M（I，I+1）DO20I=4，2，-120S=S-M（I-1，I）WRITE（*，*）SEND上面程序的运行结果为：（）

题型：单项选择题

有程序：DATAA，B，C／4．0，-8．0，3．0／P=B*B-4*A*CIF（P．GE．0．0）THENS=（-B+SQRT（P））／（2*A）T=C／（A*S）P=（S+T）／2ELSES=0T=0ENDIFWRITE（*，*）PEND执行此程序，则运行的结果是：（）

题型：单项选择题

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

题型：单项选择题

有程序：DIMENSIONA（2，2）INTEGERA，YY=0DO20I=1，2D020J=1，2A（I，J）=I*I+J*JY=Y+A（I，J）20CONTINUEWRITE（*，*）YEND此程序运行的结果为：（）

题型：单项选择题