Question

noip2008普及组初赛答案

给我吧 noip2008普及组初赛答案 尽快 快的加80分

Answer 1

NOIP2008年普及组（Pascal语言）参考答案与评分标准

一、单项选择题：（每题1.5分）
1. A 2. B 3. C 4. C 5. B
6. D 7. C 8. D 9. A 10. B
11. D 12. A 13. B 14. B 15. B
16. A 17. B 18. A 19. B 20. D
二、问题求解：（共2题，每题5分，共计10分）
1．12 4
2．7(1->2->5->6)
三、阅读程序写结果（共4题，每题8分，共计32分）
1. 23
2. 2,3,1
3. 5 4 10 1 6 22 -59 -6 -11 -6
4. DBGEFCA （求树的后序遍历）

四．完善程序 (前4空，每空2.5分，后6空，每空3分，共28分)
（说明：以下各程序填空可能还有一些等价的写法，各省可请本省专家审定和上机验证，不一定上报科学委员会审查）
1. ① (change[i] >= 'A') and (change[i] <= 'Z') (只写(change[i] <= 'Z')也对)
② (str[i] >= 'A') and (str[i] <= 'Z') （只写str[i] <= 'Z'也对）
③ str[i] := change[ord(str[i]) - ord('a') +1];
④ ChangeString;

2． ① a[left]
② a[j] < value (或a[j] <= value)
③ a[i] > value （或a[i] >= value）
④ a[i] := value;
⑤ i,right,n
⑥ FindKth(left, i, n)

Answer 2

NOIP2008年普及组（Pascal语言）参考答案与评分标准

一、单项选择题：（每题1.5分）
1. A 2. B 3. C 4. C 5. B
6. D 7. C 8. D 9. A 10. B
11. D 12. A 13. B 14. B 15. B
16. A 17. B 18. A 19. B 20. D
二、问题求解：（共2题，每题5分，共计10分）
1．12 4
2．7
三、阅读程序写结果（共4题，每题8分，共计32分）
1. 23
2. 2,3,1
3. 5 4 10 1 6 22 -59 -6 -11 -6
4. DBGEFCA （求树的后序遍历）

四．完善程序 (前4空，每空2.5分，后6空，每空3分，共28分)

1. ① (change[i] >= 'A') and (change[i] <= 'Z') (只写(change[i] <= 'Z')也对) 还可以是ord(change[i])<97
② (str[i] >= 'A') and (str[i] <= 'Z') （只写str[i] <= 'Z'也对）
还可以是ord(str[i])<97
③ str[i] := change[ord(str[i]) - ord('a') +1];
④ ChangeString;

2． ① a[left]
② a[j] < value (或a[j] <= value)
③ a[i] > value （或a[i] >= value）
④ a[i] := value;
⑤ i,right,n
⑥ FindKth(left, i, n)

Answer 3

NOIP2008年普及组(Pascal语言)参考答案与评分标准
一、单项选择题:(每题1.5分)
1.
A
2.
B
3.
C
4.
C
5.
B
6.
D
7.
C
8.
D
9.
A
10.
B
11.
D
12.
A
13.
B
14.
B
15.
B
16.
A
17.
B
18.
A
19.
B
20.
D
二、问题求解:(共2题，每题5分，共计10分)
1.12
4
2.7(1->2->5->6)
三、阅读程序写结果(共4题，每题8分，共计32分)
1.
23
2.
2,3,1
3.
5
4
10
1
6
22
-59
-6
-11
-6
4.
DBGEFCA
(求树的后序遍历)
四.完善程序
(前4空，每空2.5分，后6空，每空3分，共28分)
(说明:以下各程序填空可能还有一些等价的写法，各省可请本省专家审定和上机验证，不一定上报科学委员会审查)
1.
①
(change[i]
>=
'A')
and
(change[i]
<=
'Z')
(只写(change[i]
<=
'Z')也对)
②
(str[i]
>=
'A')
and
(str[i]
<=
'Z')
(只写str[i]
<=
'Z'也对)
③
str[i]
:=
change[ord(str[i])
-
ord('a')
+1];
④
ChangeString;
2.
①
a[left]
②
a[j]
<
value
(或a[j]
<=
value)
③
a[i]
>
value
(或a[i]
>=
value)
④
a[i]
:=
value;
⑤
i,right,n
⑥
FindKth(left,
i,
n)

Answer 4

ABCCBDCDABDABBBABABD

12

4

7

23

2,3,1

5 4 10 1 6 22 -59 -6 -11 -6

DBGEFCA

ord(change[i])<97

ord(str[i])<97

str[i]:=change[ord(str[i])-ord('a')+1]);

ChangeString;

a[left]

a[j]<value

a[i]>value

a[i]:=value

i,right,n

FindKth(left,i,n)

Answer 5

应该是全对的，我核实过了！！！！！！谢谢！！！！！