(普及组PASCAL语言　二小时完成)　　　　　　　　

一、选择一个正确答案代码(A/B/C/D)，填入每题的括号内(每题1.5分，多选无分，共30分)

1.在计算机内部，一切信息存取、处理和传递的形式是( )

  　A)ASCII码     B)BCD码     C)二进制      D)十六进制

2.在树型目录结构中，不允许两个文件名相同主要指的是( )

　A)同一个磁盘的不同目录下 　B)不同磁盘的同一个目录下

　C)不同磁盘的不同目录下 　 C)同一个磁盘的同一个目录下

3.WORD是一种( )

　A)操作系统     B)文字处理软件       C)多媒体制作软件     D)网络浏览器

4.计算机软件保护法是用来保护软件( )的。

　A)编写权 　B)复制权 　C)使用权 　D)著作权

5.下面关于算法的错误说法是( )

　A)算法必须有输出 　B)算法必须在计算机上用某种语言实现

　C)算法不一定有输入 D)算法必须在有限步执行后能结束

6.解释程序的功能是( )

  　A)将高级语言程序转换为目标程序　B)将汇编语言程序转换为目标程序

  　C)解释执行高级语言程序　　　　　D)解释执行汇编语言程序

7.与二进制数101.01011等值的十六进制数为( )

  　A)A.B          B)5.51              C)A.51                     D)5.58

8.断电后计算机信息依然存在的部件为( )

  　A)寄存器       B)RAM存储器          C)ROM存储           D)运算器

9.2KB的内存能存储( )个汉字的机内码

　A)1024 　B)516 　C)2048 　D)218

10.DOS暂驻区中的程序主要是用于( )

  　A)执行DOS内部命令　B)执行DOS外部命令

  　C)执行DOS所有命令　D)基本输入输出

11.若我们说一个微机的CPU是用的PII300，此处的300确切指的是( )

　A)CPU的主时钟频率 　　　　B)CPU产品的系列号

　C)每秒执行300百万条指令 　D)此种CPU允许最大内存容量

12.运算17 MOD 4的结果是( )

   　A)7       B)3          C)1           D)4

13.应用软件和系统软件的相互关系是( )

   　A)后者以前为基础　B)前者以后者为基础

   　C)每一类都以另一类为基础　D)每一类都不以另一类为基础

14.以下对Windows的叙述中，正确的是( )

　A)从软盘上删除的文件和文件夹，不送到回收站

　B)在同一个文件夹中，可以创建两个同类、同名的文件

　C)删除了某个应用程序的快捷方式，将删除该应用程序对应的文件

　D)不能打开两个写字板应用程序

15.Email邮件本质上是一个( )

　A)文件 　B)电报 　C)电话 　D)传真

16.计算机病毒是( )

　A)通过计算机传播的危害人体健康的一种病毒

　B)人为制造的能够侵入计算机系统并给计算机带来故障的程序或指令集合

　C)一种由于计算机元器件老化而产生的对生态环境有害的物质

　D)利用计算机的海量高速运算能力而研制出来的用于疾病预防的新型病毒

17.下列设备哪一项不是计算机输入设备( )

　A)鼠标 　B)扫描仪 　C)数字化仪 　D)绘图仪

18.在计算机硬件系统中，cache是( )存储器

　A)只读 　B)可编程只读 　C)可擦除可编程只读 　D)高速缓冲

19.在顺序表(2，5，7，10，14，15，18，23，35，41，52)中，用二分法查找12，所需的关键码比较的次数为( )

　A)2 　B)3 　C)4 　D)5

20.若已知一个栈的入栈顺序是1，2，3，…，n，其输出序列为P1，P2，P3，…，Pn，若P1是n，则Pi是( )

　A)i 　B)n-1 　C)n-i+1 　D)不确定

二、问题求解(5+7=12分)

1.在a,b,c,d,e,f六件物品中，按下面的条件能选出的物品是：        

　(1)a,b两样至少有一样

　(2)a,d不能同时取

　(3)a,e,f中必须有2样

　(4)b,c要么都选，要么都不选

　(5)c,d两样中选一样

　(6)若d不选，则e也不选

2.平面上有三条平行直线，每条直线上分别有7，5，6个点，且不同直线上三个点都不在同一条直线上。问用这些点为顶点，能组成多少个不同三角形？

三、阅读程序，写出正确的程序运行结果(5+8+9+9=31分)

1.PROGRAM CHU7_1；

FUNCTION FUN(X：INTEGER)：INTEGER；
　BEGIN
　　IF(X=0)OR(X=1)THEN FUN:=3
　　　　　　　　　ELSE FUN:=X-FUN(X-2)
　END；
BEGIN
　WRITELN(FUN(9))；
　READLN；
END.

输出：

2.PROGRAM CHU7_2；
　VAR I，J，F：INTEGER；
　　　　　A：ARRAY[1..8]OF INTEGER；
　BEGIN
　　FOR I:=1 TO 8 DO
　　　BEGIN
　　　　F:=I MOD 2；
　　　　IF F=0 THEN A[I]:=0
　　　　　　　 ELSE A[I]:=1；
　　　　FOR J:=1 TO I DO
　　　　　IF F=0 THEN A[I]:=A[I]+J
　　　　　　　　 ELSE A[I]:=A[I]*J
　　　END；
　　FOR I:=1 TO 8 DO
　　　WRITE(A[I]：5)；
END.

输出

3.PROGRAM CHU7_3；
　VAR P，Q，S，T：INTEGER；
　BEGIN
　　READLN(P)；
　　FOR Q:=P+1 TO 2*P DO
　　　BEGIN
　　　　T:=0；
　　S:=(P*Q)MOD(Q-P)；
　　IF S=0 THEN
　　　　　　BEGIN
　　　　　　　T:=P+Q+(P*Q)DIV(Q-P)；
　　　　　　　WRITE(T：4)；
　　　　　　END；
　　　END；
　　READLN
END.
输入：12
输出：

4.PRGORAM CHU7_4；
　VAR N，K，I：INTEGER；
　　　A：ARRAY[1..40]OF INTEGER；
　PROCEDURE FIND(X：INTEGER)；
　　VAR S，I1，J1：INTEGER；
　　　　　　P：BOOLEAN；
　　BEGIN
　　　　I1:=0；
　　　　P:=TRUE；
　　　　WHILE P DO
　　　　　BEGIN
　　　　　　I1:=I1+1；
　　　　　　S:=0；
　　　　　　FOR J1:=1 TO N DO
　　　　　　　IF A[J1]>A[I1]THEN S:=S+1；
　　　　　　IF(S=X-1)THEN
　　　　　　　BEGIN
　　　　　　　　WRITELN(A[I1])；
　　　　　　　　P:=FALSE
　　　　　　　END；
　　　　　　END
　　　　　END；
　　BEGIN
　　　READLN(N，K)；
　　　FOR I:=1 TO N DO
　　　　READ(A[I])；
　　　FIND(K)；
　　　FIND(N-K)；
END.
输入：10 4
　　　12 34 5 65 67 87 7 90 120 13
输出：

四、完善程序(每空3分　共27分)

1.输入n个0到100之间的整数，由小到大排序输出，每行输出8个
　程序清单：
　PROGRAM CHU7_5；
　　VAR I，J，K，N，X：INTEGER；
　　　　B：ARRAY[0..100]OF INTEGER；

　BEGIN
　　READLN(N)；
　　FOR I:=0 TO 100 DO B[I]:=0；

　FOR I:=1 TO N DO
　　BEGIN
　　　READLN(X)；
　　　B[X]:=　①　
　　END；
　　　②　

FOR I:=0 TO 100 DO

　　WHILE　③　DO
　　　BEGIN
　　　　WRITE(　④　)；
　　　　K:=K+1；
　　　　B[I]:=B[I]-1；
　　　　IF　⑤　THEN WRITELN
　　　END；
　READLN
END.

2.在A，B两个城市之间设有N个路站(如下图中的S1，且N<100)，城市与路站之间、路站和路站之间各有若干条路段(各路段数≤20，且每条路段上的距离均为一个整数)。

  　A，B的一条通路是指：从A出发，可经过任一路段到达S1，再从S1出发经过任一路段，…最后到达B。通路上路段距离之和称为通路距离(最大距离≤1000)。当所有的路段距离给出之后，求出所有不同距离的通路个数(相同距离仅记一次)。

　例如：下图所示是当N=1时的情况：

　从A到B的通路条数为6，但因其中通路5+5=4+6，所以满足条件的不同距离的通路条数为5。

　算法说明：本题采用穷举算法。

　数据结构：N：记录A，B间路站的个数
　　　　　　数组D[I，0]记录第I-1到第I路站间路段的个数
　　　　　　　　D[I，1]，D[I，2]，…记录每个路段距离
　　　　　　数组G记录可取到的距离

程序清单：

PROGRAM CHU7_6；
　VAR I，J，N，S：INTEGER；
　　　　 B：ARRAY[0..100]OF INTEGER；
　　　　 D：ARRAY[0..100，0..20]OF INTEGER；
　　　　 G ：ARRAY[0..1000]OF 0..1；
　BEGIN
　　READLN(N)；
　　FOR I:=1 TO N+1 DO
　　　BEGIN
　　　　READLN(D[I，0])；
　　　　FOR J:=1 TO D[I，0]DO    READLN(D[I，J])；
　　　END；
　D[0，0]:=1；
　FOR I:=1 TO N+1 DO    B[I]:=1；
　B[0]:=0；
　FOR I:=0 TO 1000 DO   G[I]:=0；
　WHILE　①　DO
　　BEGIN
　　　S:=0；
　　　FOR I:=1 TO N+1 DO 
　　S:=　②　
　　　　G[S]:=1；J:=N+1；
　　　WHILE 　③　DO J:=J-1；
　　　B[J]:=B[J]+1；
　　　FOR I:=J+1 TO N+1 DO　　   B[I]:=1；
　　END；
　S:=0；
　FOR I:=1 TO 1000 DO
　　　④　；
　WRITELN(S)；READLN；
END.