有程序：DIMENSIONA（2，2）INTEGERA，YY=0DO20I=...

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

A.16
B.20
C.27
D.30

点击查看答案&解析

您可能感兴趣的试卷

你可能感兴趣的试题

1.单项选择题有程序：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此程序运行的结果为：（）

A.L=36
B.L=39
C.L=54
D.L=42

点击查看答案&解析

2.单项选择题有程序：INTEGERB（3，3）DATAB／3*2，3*3，3*4／DO10I=1，310WRITE（*，‘（1X，3I2）’）（B（I，J），J=1，3）END此程序的运行结果是：（）

A.2；2；2；3；3；3；4；4；4
B.2；3；4；2；3；4；2；3；4
C.3；3；3；3；3；3；3；3；3
D.4；3；2；4；3；2；4；3；2

点击查看答案&解析

3.单项选择题有程序：INTEGERPP=0DO10I=0，10，3DO10J=5，100，20DO10K=-10，-5，-110P=P+1WRITE（*，*）PEND此程序的运行结果是：（）

A.0
B.24
C.120
D.144

点击查看答案&解析

4.单项选择题有程序：M=2N=MD010I=1，N+1，NN=N*NM=M*N10CONTINUEWRITE（*，*）MEND此程序的运行结果是：（）

A.8
B.32
C.128
D.16

点击查看答案&解析

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

A.8
B.4
C.7
D.10

点击查看答案&解析

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

A.12
B.20
C.24
D.不定值

点击查看答案&解析

7.单项选择题有程序：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执行此程序，则运行的结果是：（）

A.0.0
B.1.0
C.2.0
D.3.0

点击查看答案&解析

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

A.2.5和1.0
B.-2.5和1.0
C.2.5和-1.0
D.-2.5和-1.0

点击查看答案&解析

9.单项选择题有程序：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

点击查看答案&解析

10.单项选择题有程序：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

点击查看答案&解析