2023年7月28日发(作者：)

第九届分区联赛提高组初赛试题

（提高组 PASCAL 语言 二小时完成）

●● 全部答案均要写在答案卷子上，写在试卷纸上一律无效 ●●

一.单项选择题 （共10题，每题1.5分，共计15分。每题有且仅有一个正确答案.）。

1. 图灵 (Alan Turing) 是 （ B ）。

A） 美国人 B） 英国人 C） 德国人 D） 匈牙利人 E） 法国人

2. 第一个给计算机写程序的人是（ ）。

A） Alan Mathison Turing B） Ada Lovelace C） John von Neumann

D） John Mc-Carthy E） Edsger Wybe Dijkstra

3. 十进制数2003等值于二进制数（ ）。

A） B） 10000011 C） 110000111 D） E） 1111010011

4. 假设A=true,B=false,C=ture,D=ture,逻辑运算表达式A∧B∨C∧D的值是（ ）。

A） ture B） false C） 0 D） 1 E） NULL

5. 一个高度为h 的二叉树最小元素数目是（ ）。

A） 2h+1 B） h C） 2h-1 D） 2h E） 2h-1

6. 已知队列（13，2，11，34，41，77，5，7，18，26，15），第一个进入队列的元素是13，则第五个出队列的元素是（ ）。

A） 5 B） 41 C） 77 D） 13 E） 18

7. 下面一段程序是用（ ）语言书写的。

int func1(int n){

int i,sum=0;

for(i=1;i<=n;i++)

sum+=i*i;

return sum;

}

A) FORTRAN B) PASCAL C) C D) PROLOG E) BASIC

8. 设全集E={1，2，3，4，5}，集合A={1，4}，B={1，2，5}，C={2，4}，则集合（A ∩B）∪～C 为（ ）。

A） 空集 B） {1} C） {3，5} D）{1，5} E） {1，3，5}

9. 表达式(1+34)*5-56/7 的后缀表达式为（ ）。

A） 1+34*5-56/7 B） -*+1 34 5/56 7 C） 1 34 +5*56 7/-

D） 1 34 5* +56 7/- E） 1 34+5 56 7-*/

10. 下列计算机设备，即是输入设备，又是输出设备的是（ ）。

A） 键盘 B） 触摸屏 C） 扫描仪 D）投影仪 E） 数字化仪 二.不定项选择题（共10题，每题1.5分，共计15分。多选少选均不得分）。

11. 下列分辨率的显示器显示出的图像，最清晰的是（ ）。

A） 800*600 B） 1024*768 C） 640*480 D） 1280*1024 E） 800*1000

12. 下列说法中，哪个（些）是错误的（ ）。

A）程序是指令的序列，它有三种结构：顺序、分支和循环。

B）数据总线决定了中央处理器CPU所能访问的最大内存空间的大小。

C）中央处理器CPU内部有寄存器组，用来储存数据。

D）不同厂家生产的CPU所能处理的指令集是相同的。

E）数据传输过程中可能会出错，奇偶校验法可以检测出数据中那一为在传输中出了差错。

13. CPU访问内存的速度比访问下列哪个（些）存储设备要慢（ ）。

A）寄存器 B）硬盘 C）软盘 D）高速缓存 E）光盘

14. 下列电子邮件地址，哪个（些）是正确的（ ）。

A）wang@ B) cai@ C) 162.105.111.22

D) E)

15. 数字图像文件可以用下列哪个（些）软件来编辑（ ）。

A）画笔（Paintbrush） B）记事薄（Notepad） C) Photoshop D) WinRAR E)Midisoft

16. 下列哪个（些）软件不是操作系统软件的名字（ ）。

A）WindowsXP B) DOS C) Linux D) OS/2 E) Arch/Info

17. 下列哪个（些）不是个人计算机的硬件组成部分（ ）。

A）主板 B）虚拟内存 C）电源 D）硬盘 E）总线

18. 运算试(2008)10-(3723)8 的结果是（ ）。

A）(-1715)10 B) (5)10 C) (5)16 D) (101)2 E) (3263)8

19. 已知元素（8，25，14，87，51，90，6，19，20），问这些元素以怎样的顺序进入栈，才能使出栈的顺序满足：8在51前面；90在87的后面；20在14的后面；25在6的前面；19在90的后面。（ ）。

A）20，6，8，51，90，25，14，19，87

B）51，6，19，20，14，8，87，90，25

C）19，20，90，7，6，25，51，14，87

D）6，25，51，8，20，19，90，87，14

E）25，6，8，51，87，90，19，14，20

20. 假设我们用d=(a1,a2,...,a5),表示无向图G的5个顶点的度数，下面给出的哪（些）组d 值合理（ ）。

A）{5，4，4，3，1} B）{4，2，2，1，1} C）{3，3，3，2，2}

D）{5，4，3，2，1} E）{2，2，2，2，2} 三、问题求解（共2题，每题5分，共计10分）

1. 无向图G有16条边，有3个4度顶点、4个3度顶点，其余顶点的度均小于3，则G至少_______个顶点。

2. 某年级学生共选修6门课程，期末考试前，必须提前将这6门课程考完，每人每天只在下午至多考一门课程，设6门课程为C1，C2，C3，C4，C5，C6，S(Ci)为学习Ci 的学生集合。已知S(Ci)∩S(C6)≠ф，i=1，2，...，5，S(Ci)∩S(Ci+1)≠ф，i=1，2，3，4，S(C5)∩S(C1)≠ф，问至少安排_____天才能考完这6门课程。

四.阅读程序（共4题，每题8分，共计32分）

1. program Program1;

var a,b,c,d,sum : longint;

begin

read(a,b,c,d);

a := a mod 23; b := b mod 28; c := c mod 33;

sum := a * 5544 + b * 14421 + c * 1228 - d;

sum := sum + 21252; sum := sum mod 21252;

if (sum = 0 ) then sum := 21252;

writeln(sum);

end.

输入：283 102 23 320 输出____________

2. program Program2;

const

u : array[1..4] of integer = (0,5,3,1);

v : array[1..4] of integer = (0,7,6,5);

var a,b,c,d,e,f,x,y,z: integer;

begin

read(a,b,c,d,e,f);

z := f+ e + d + (c+3) div 4; y := 5 * d + u[c mod 4];

if (b > y) then

begin

z := z + (b - y + 8) div 9;

x := ((b - y + 8) div 9 * 9 -(b - y)) * 4 + 11 * e + v[c mod 4];

end

else

x := (y - b) * 4 + 11 * e + v[c mod 4];

if (a > x) then

z := z + (a - x + 35) div 36;

writeln(z)

end. 输入： 4 7 9 20 56 47 输出____________________

3. program Program3;

var m,n: integer; mark: Boolean;

function test(m,N:integer):integer;

var i,p: integer; flag: boolean;

begin

m := m - 1; i := 0; flag := False;

for p:= 2*N downto (N+1) do

begin

i:= (i+m) mod p;

if (i

begin

test := 0; flag := Ture; Break;

end

end;

if not(flag) then test:=1;

end;

begin

read(n); m:=1; Mark := False;

repeat

if (test(m,n)=1) then

begin writeln(m); break; end;

m:= m+1;

until Mrak;

end.

输入：7

4. program Program4;

var m,n,i,j: integer;

p,w,a,b: array[0..19] of integer;

begin

read(n); m:= 0;

for i:= 0 to n-1 do

begin read(p[i]); b[i]:=1; end;

for i:=0 to n-1 do

begin

if (i>0) then

a[m]:=p[i]-p[i-1]

else

a[m]:=p[i];

输出_________ m:=m+1;

while ((m>1) and (a[m-1]=0)) do

begin m:=m-1; b[m]:=1; end;

if (m>0) then

w[i]:=b[m-1];

else

w[i]:=b[0];

a[m-1]:=a[m-1]-1;

for j:=0 to m-1 do b[j]:=b[j]+1;

while ((m>1) and (a[m-1]=0)) do

begin

m:=m-1; b[m]:=1;

end;

end;

for i:= 0 to n-1 do

begin

write(w[i]); write(' ');

end;

writeln(' ');

end.

输入：9

4 6 6 6 6 8 9 9 9 9

输出：____________________

五. 完善程序（共2题，第1题每空3分；第2题每空2分。共计28分）。

1. 翻硬币

题目描述：

一摞硬币共有m枚，每一枚都是正面朝上。取下最上面的一枚硬币，将它翻面后放回原处。然后取下最上面的2枚硬币，将他们一起翻面后放回原处。在取3枚，取4枚……直至m枚。然后在从这摞硬币最上面的一枚开始，重复刚才的做法。这样一直做下去，直到这摞硬币中每一枚又是正面朝上为止。例如，m为1时，翻两次即可。

输 入：仅有的一个数字是这摞硬币的枚数m ，0< m <1000。

输 出：为了使这摞硬币中的每一枚都是朝正面朝上所必须翻的次数。

输入样例：30

输出样例：899

程 序：

program Program1;

var m:integer;

function solve(m: integer):integer;

var i,t,d: integer;

flag: Boolean;

begin if (m = 1) then

solve := (1)

else begin

d := 2*m+1; t := 2; i := 1; flag := False;

repeat

if (t = 1) then

begin

solve := (2) ; flag := True;

end

else if ( (3) ) then

begin

solve := i*m-1; flag := True;

end

else

t := (4) ;

i:=i+1;

until flag;

end

end;

begin

read(m); if (( (5) ) and (m<1000)) then

writeln( (6) );

end.

2. OIM地形

题目描述：

二维离散世界有一种地形叫OIM(OI Mountain)。这种山的坡度只能上升('/')或下降(''),而且两边的山脚都与地平线等高,山上所有地方都不低于地平线.例如：

/ /

/ 是一座OIM；而 / 不是。

这个世界的地理学家们为了方便纪录，给OIM所有可能的形状用正整数编好号，而且每个正整数恰好对应一种山形。他们规定，若两座山的宽度不同，则较宽的编号较大；若宽度相同，则比较从左边开始第1个坡度不同的地方，坡度上升的编号较大。以下三座OIM的编号有小到大递增：

/ / / /

/ / / 。显然/的编号为1。但是地理学家在整理纪录是发觉，查找编号与山形的对应关系不是很方便。他们希望能快速地从编号得到山的形状。你自告奋勇答应他们写一个程序，输入编号，能马上输出山形。

输 入：一个编号（编号大小不超过600,000,000），

输 出：输入编号所对应的山形，1座山所占行数恰为它的高度，即山顶上不能有多余空行。 输入样例：15

输出样例： / /

/

程 序：

program Program2;

const

L:integer =19; SZ: integer =50;

UP: char = '/'; DN: char = '';

Var

i,nth,x,y,h,e,f:integer;

m: array[0..1,0..38,0..19] of integer;

pic: array[0..49,0..49] of char;

procedure init;

var k,s,a,b,c: integer;

begin

for a:=0 to 1 do

for b:=0 to 2*L do

for c:=0 to L do

m[a,b,c]:=0; m[0,0,0]:=1;

for k:=0 to 2*L-1 do

begin

for s:=1 to L do

begin

m[0,k+1,s] := m[0,k,s+1] + m[1,k,s+1];

m[1,k+1,s]:= (1) ;

end;

m[0,k+1,0] :=m[0,k,1]+m[1,k,1];

end;

end;

procedure draw(k,s,nth:integer);

begin

if (k=0) then exit;

if ((nth-m[1,k,s])>=0) then

begin

nth:=nth-m[1,k,s];

if (y>h) then (2) ;

pic[y,x]:=UP; y:=y+1; x:=x+1; draw( (3) );

end

else begin

y:=y - 1; pic[y,x]:=DN; x:=x+1; draw(k-1,s-1,nth);

end; end;

begin

init;

read(nth);

for e:=0 to SZ-1 do

for f:=0 to SZ-1 do

pic[e,f]:= ' ';

x:=0;

y:=0

h:=0;

i:=0;

while ((nth-m[0,2*i,0])>=0) do

begin

nth:= nth-m[0,2*i,0];

(4) ;

end;

draw( (5) );

for i:=h downto x-1 do

begin

for e:=0 to x-1 do

write(pic[i,e]);

writeln(' ');

end;

end.