haihongyuan.com
海量文库 文档专家
全站搜索:
您现在的位置:首页 > 小学教育 > 学科竞赛学科竞赛

2004年小学信息学初赛----阅读程序

发布时间:2014-05-28 14:05:08  

2004年小学信息学初赛----阅读程序

NOIP 2004小学信息学 阅读程序 第1题

阅读程序,写出程序正确的运行结果:(6分) INPUT A,B

R=A MOD B

DO WHILE R<>0

A=B:B=R

R=A MOD B

LOOP

PRINT B

END

当A=22,B=4时结果为:___________

NOIP 2004小学信息学 阅读程序 第2题

阅读程序,写出程序正确的运行结果:(6分) DIM A$(7)

J=0

FOR I=0 TO 6

READ A$(I)

NEXT I

FOR I=1 TO 6

IF A$(J)<A$(I) THEN

J=I

END IF

NEXT I

FOR I=0 TO J-1

PRINT A$(I);

NEXT

PRINT

DATA m,o,r,n,i,n,g

End

运行结果:__________

NOIP 2004小学信息学 阅读程序 第3题

阅读程序,写出程序正确的运行结果:(6分) DIM A(16)

FOR I = 1 TO 16

A(I) = I

NEXT I

FOR I = 1 TO 3

J = 1: S = 1

FOR K = 1 TO I - 1

S = S * 2

NEXT K

DO WHILE J < 0

FOR K = 1 TO S

A(J + K - 1) = A(J + K - 1) + A(J + K - 1 + S) A(J + K - 1 + S) = A(J + K - 1) - A(J + K - 1 + S) A(J + K - 1) = A(J + K - 1) - A(J + K - 1 + S) NEXT K

J = J + S * 2

LOOP

NEXT I

FOR I = 16 TO 1 STEP -1

PRINT A(I);

IF I MOD 8 = 0 THEN PRINT

NEXT I

END

运行结果:__________

NOIP 2004小学信息学 阅读程序 第4题

阅读程序,写出程序正确的运行结果:(6分) INPUT "n="; N

DIM S$(N)

X$ = ""

FOR I = 1 TO N

S$(I) = RTRIM$(LTRIM$(STR$(I)))

X$ = X$ + S$(I)

NEXT I

P = LEN(X$)

FOR I = 1 TO N

PRINT S$(I);

NEXT I

PRINT

FOR I = 2 TO N - 1

PRINT S$(I); TAB(P); S$(N - I + 1)

NEXT I

FOR I = N TO 1 STEP -1

PRINT S$(I);

NEXT I

PRINT

END

运行结果:__________

网站首页网站地图 站长统计
All rights reserved Powered by 海文库
copyright ©right 2010-2011。
文档资料库内容来自网络,如有侵犯请联系客服。zhit326@126.com