提高组(PASCAL 语言)参考答案与评分标准
一、单项选择题:(每题1.5 分)
1. E 2. C 3. D 4. E 5. C 6. E 7. C 8. B 9. A 10. B
二、不定项选择题:(每题1.5 分)
11. ABC 12. AB 13. C 14. BC 15. ABCD
16. AD 17. CD 18.AB 19. BD 20.(满分,空白0 分)
三、问题求解:(每题5 分)
1. 401 2. 9! (或362880)
四、阅读程序写结果
1. -13,57 (对1 个数给4 分,无逗号扣1 分)
2. 6 28 496 8128 33550336
(前2 个对1 个数给1 分,后3 个对1 个数给2 分)
3. 11
4. 6 2 5 4 3 7 9 9 7 3 4 5 2 6(数字之间无空格扣2 分)
五、完善程序(前5 空,每空2 分,后6 空,每空3 分)
1.① j=k (或k=j)
② p:=1 to k
③ perm2(j+1)
④ a[j]:=a[i];a[i]:=t
⑤ perm2(1)
2.① a1[i]:=a2[i];a2[i]:=t
② kz1[i]:=1; kz2[i]:=1
③ kz1[i]:=0; kz2[j]:=0
④ (a1[j]=a1[i]) and (kz1[j]=-1)
⑤ (a2[j]=a2[kj]) and (kz2[j]=-1)
⑥ cross(a1,a2,t1,t2,n)