更多"执行下列程序：
CLEAR
SET TALK OFF
"的相关试题:
[单项选择]执行下列程序：
CLEAR
SET TALK OFF
STORE 1 TO i,a,b
DO WHILE i＜=3
DO PROG1
"P("+STR(i,1)+")="+STR(a,2)+","
i=i+1
ENDDO
"b="+STR(b,2)
RETURN
PROCEDURE PROGl
a=a*2
b=b+a
SET TALK ON
RETURN
程序的运行结果为（ ）。
A. P(1)=2，P(2)=3，P(3)=4，b=15
B. P(1)=2，P(2)=4，P(3)=6，b=8
C. P(1)=2，P(2)=4，P(3)=6，b=18
D. P(1)=2，P(2)=4，P(3)=8，b=15
[单项选择]执行下列程序：
CLEAR
SET TALK OFF
STORE 1 TO i,a,b
DO WHILE i＜=3
DO PROG1
"P("+STR(i,1)+")="+STR(a,2)+","
i=i+1
ENDDO
"b="+STR(b,2)
RETURN
PROCEDURE PROGl
a=a*2
b=b+a
SET TALK ON
RETURN
程序的运行结果为
A. P(1)=2，P(2)=3，P(3)=4，b=15
B. P(1)=2，P(2)=4，P(3)=6，b=8
C. P(1)=2，P(2)=4，P(3)=6，b=18
D. P(1)=2，P(2)=4，P(3)=8，b=15
[填空题]运行下列程序，其结果应该是 [15] 。
SET TALK OFF
CLEAR
STORE 2 TO X，Y
D0 WHILE.T.
Y=Y+3
DO CASE
CASE INT(Y/5)*5=Y
LOOP
CASE Y=10
EXIT
OTHERWISE
X=X+Y
ENDCASE
’X=’+STR(X，2)，’Y=’+STR(Y，2)
ENDDO
SET TALK ON．
[填空题]阅读下列程序，并给出运行结果
SET，FALK OFF
CLEAR
STORE 0 T0 X，Y，S1，S2，S3
D0 WHILE X<1O
X=X +l
DO CASE
CASE INT(X/2)=X/2
S1：SI+X/2
CASE MOD(XJ 3)=0
S2=S2+X/3
CASE INT(X/2)<>X/2
S3=S3+1
ENDCASE
ENDDO
S1,S2,S3
SET TALK 0N
RETURN
运行以上程序后，屏幕显示 [10] 。
[填空题]阅读下列程序，并给出运行结果
SET，FALK OFF
CLEAR
STORE 0 T0 X，Y，S1，S2，S3
D0 WHILE X<1O
X=X +l
DO CASE
CASE INT(X/2)=X/2
S1：SI+X/2
CASE MOD(XJ 3)=0
S2=S2+X/3
CASE INT(X/2)<>X/2
S3=S3+1
ENDCASE
ENDDO
S1,S2,S3
SET TALK 0N
RETURN
运行以上程序后，屏幕显示 [10] 。
[单项选择]设有如下程序文件：
SET TALK OFF
CLEAR
DIMENSION a(2，3)
i=1
DO WHILE i＜=2
j=1
DO WHILE j＜=3
a(i，)=i+j
a(i，j)
j=j+1
ENDDO
i=i+1
ENDDO
SET TALK ON
RETURN
执行此程序，程序的运行结果为( )。
A. ARCHIVE
B. CODE
C. ALT
D. ALIGN
[单项选择]设有如下程序文件：
SET TALK OFF
CLEAR
DIMENSION a(2，3)
i=1
DO WHILE i＜=2
j=1
DO WHILE j＜=3
a(i，)=i+j
a(i，j)
j=j+1
ENDDO
i=i+1
ENDDO
SET TALK ON
RETURN
执行此程序，程序的运行结果为
A. 2 3 4
B. 1 2 3
C. 1 2 3
D. 2 3 4
