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 >= 'A') and (change <= 'Z') (只写(change <= 'Z')也对)
② (str >= 'A') and (str <= 'Z') （只写str <= 'Z'也对）
③ str := change[ord(str) - ord('a') +1];   
④ ChangeString;

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

有没有试题吖?

完善程序
第一题应该更正为：
① (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]; 

第二题应该更正为：
③ a[ i ] > value （或a[ i ] >= value）
④ a[ i ] := value; (或a[ j ]:=value）


论坛里面的所有[ i ]都不能正常显示～～。哦。。