MRaZY MRain is CraZY! This is old CodeBeta.

NOIP2008 提高组 Pascal 语言 初赛卷答案

一、单项选择题：（每题1.5分）
1. C      2. A      3. B      4. C      5. B
6. D      7. D      8. E      9. B      10. C
二、 不定项选择题 （共10题，每题1.5分，共计15分。每题正确答案的个数大于或等于1。多选或少选均不得分）。
11. ABD   12. AC                13. BC    14. B            15. ABC
16. ABD   17. BCD    18. ABC   19. ACD   20. ABCD
三、问题求解：（共2题，每题5分，共计10分）
1．7
2．3060
四、阅读程序写结果（共4题，每题8分，共计32分）
1. 23 （信心题）
2. 1,3,2 (简单递归)
3. 132/213/231/312/321/ （全排列）
4. defghijxyzabc/hfizxjaybcccc （字符串替换）
五．完善程序 (前6空，每空3分，后5空，每空2分，共28分)
（说明：以下各程序填空可能还有一些等价的写法，各省可请本省专家审定和上机验证，不一定上报科学委员会审查）
1.        ① a[left]
② a[j] < value (或a[j] <= value)
③ a[i] > value （或a[i] >= value）
④ a[i] := value;
⑤ i,right,n-i+1
⑥ FindKth(left, i, n)

2.
① inc(j); (或者j := j+1;)
② a[i,j] > k
③ a[i,j] < k
④ answerx := i;
⑤ answery := j;