青少年信息学竞赛

青少年信息学竞赛（PASCAL语言）试卷
青少年信息学竞赛（PASCAL语言）试卷
参赛须知1、竞赛用时150分钟。

2、全部试题答案均应写在答卷纸上，写在试卷纸上一概无效。

一、选择题
以下各题的每个选择填空部分有4个可供选择的答案，请选择正确答案并将答卷纸上相应圆圈涂黑。

(每个选择项1.5分,多选无分,共30分)
(1)我国自行研制的“曙光”巨型计算机属于【1】计算机。

【1】A)第一代B)第二代C)第三代D)第四代
(2)在下列设备中,【2】属于输入设备。

【2】A)显示器B)键盘C)打印机D)音箱
(3)以下是计算机存储容量大小的比较,正确的式子是【3】。

【3】A) 100B>1KB B)1GB<1KB C)0.25KB>100B D)900MB=90GB
(4)显示A盘目录,正确的操作命令是【4】。

【4】A) C>A:DIR/W B) C>DIR A: C) A>DIR C: D) A>C:DIR/P
(5)一个汉字占用两个字节,等于【5】二进制位。

【5】A) 4位B) 8位C) 16位D) 32位
(6)在下列几种存储器中,访问速度最快的是【6】。

【6】A) 硬盘存储器B) 软盘存储器C) 光盘存储器D) 内存储器
(7)对DOS启动除冷启动(Power)、热启动(CTRL+ALT+DEL)外，有的机器还可采用【7】来启动。

【7】A) ESC B)RESET C)CTRL+RESET D) CTRL+BREAK
(8)WORD文档的扩展名是【8】。

【8】A)wps B)DOC C)TXT D) BMP
(9)在wps中对文本进行字体的设置时,下面字号中最大的是【9】。

【9】A)0号字B)8号字C)1号字D)5号字
(10)在UCDOS中关闭输入法状态栏的切换键是【10】。

【10】A) Shift+F9 B) Shift+F6 C) Ctrl+ Shift D) Ctrl+Alt
(11)当个人计算机以拨号方式接入因特网时，必须使用的是【11】。

【11】A)网卡B)调制解调器C)电话机D)浏览器软件
(12)在WINDOWS98的“我的电脑”窗口中,若已选定硬盘上的文件或文件夹,并按了DEL键和“确定”按钮,通常该文件或文件夹将【12】。

【12】A) 被删除并放入“回收站”B) 不被删除也不放入“回收站”
C) 被删除但不放入回收站D) 不被删除但放入“回收站”
(13)对软盘写保护可以防止【13】。

【13】A)数据写入B)数据丢失C)读数据出错D)以上都不对
(14)一台计算机感染病毒的可能途径是【14】。

【14】A)使用外来盘片B)使用表面被污染的盘片
C)驱动器故障D)键入了错误的命令
(15)在计算机内部,一切信息的存取、处理和传递的形式是【15】。

【15】A)ASCII码B)BCD码C)二进制码D)十六进制码
(16)下面的说法正确的是【16】。

【16】A)允许同一文件夹中的两个文件同名
B)不允许不同文件夹中的两个文件同名
C)允许同一文件夹中的两个文件同名,也允许不同文件夹中的两个文件同名
D)不允许同一文件夹中的两个文件同名,但允许不同文件夹的两个文件同名
(17)在Windows95窗口右上角的按钮用于【17】。

【17】A)最小化窗口B)最大化窗口C)关闭窗口D）还原窗口
(18)设数组A[1..10,1..10]以行优先的顺序存储,每个元素占4个字节,且已知A[1,1]的地址为1000,则A[5,9]的地址是【18】。

【18】A)1001 B) 1196 C) 1024 D)1236
(19)十进制算术表达式:3*512+5*64+2*8+1的运算中,用二进制表示为【19】。

【19】A)1011010001 B) 10110100011 C) 11101010001 D) 11110100011 (20)设栈S的初始状态为空,现对序列{1,2,3,4,5}在栈S上,依次进行如下操作(从元素1开始,出栈后不再进栈):进栈,出栈,进栈,进栈,出栈,出栈。

试问出栈的元素序列是【20】。

【20】A){1,2,3} B) {1,3,2} C) {3,2,1} D) {2,3,1}
二. 回答问题:(20分,每小题10分)
1. 1. 表达式3*5+2是二叉树中用何种遍历的表达式? 并画出该表达式二叉树。

2. 2. 用四个奇数相加得到10的方法有几种? 并写出正确结果的等式。

三. 阅读程序,写出程序的运行结果:(每题15分,共30分)
1. 1. program oimn1;
const n=5;
var I,j,k:integer;
r:array[0..10] of integer;
begin
for I:=1 to n do
read(r[I]);
for I:=2 to n do
begin
k:=r[I];j:=I-1;
while (k>r[j]) and (j>0) do
begin r[j+1]:=r[j];j:=j-1;end;
r[j+1]:=k;
end;
for I:=1 to n do
write(r[I],’’);
writeln
end.
键盘输入: 8 4 9 3 5
2. 2. program oimn2;
var a,b,f:integer;
function gd(m,n:integer):integer;
begin
if n=0 then gd:=m
else gd:=gd(n,m mod n);
end;
begin
readln(a,b);
write(‘(‘,a,’,’,b,’)=’);
f:=gd(a,b);
writeln(f)
end.
键盘输入: 172 16
四. 根据题意,将以下程序补充完成(每空4分,共20分)
[问题描述]找数问题: 以下程序用在n个不同元素中找出第k个最小元素。

程序中用分治策略来设计算法。

把这n个元素放在一个数组中,然后取出第k个元素为标准m,把n个元素重新排列:小于标准m的元素放在数组前面,大于该标准的放在数组的后面。

把该元素m放在两者之间。

设小于标准的元素个数为j-1,如果j=k,则A(k)即为所求元素。

如果j>k,则第k个元素必在区间[1,j],因此取A[1],…,A[j]为新的元素集合,然后重复上述的”部分排序”的过程。

如果j<k,则第k个元素必在区间[j+1,n],因此取A[j],…,A[n]为新的元素集合,重复过程。

直至j=k 为止。

[程序清单]
program oimn3;
var j,k,n:integer;
a:array[1..100] of integer;
procedure search(b,e:integer);
var I,m,t:integer;
begin
if b=e then begin j:=b;exit end;
I:=b;j:=e;m:= [1] ;
Repeat
While a[I]<m do inc(i);
While m<a[j] do [2] ;
If I<j then
Begin t:=a[I];a[I]:=a[j];a[j]:=t end;
Until I>=j;
If I=k then exit;
If [3] then search(b,j) else search(j+1,e)
End;
procedure [4]
var I:integer;
begin
for I:=1 to n do write(a[I],’’);
writeln;
writeln(‘a[‘,k,’]=’,a[k]);
end;
begin
write(‘n=’);readln(n);
write(‘a[1..’,n,’]=’);
for k:=1 to n do read(a[k]);
readln;
write(‘k=’);readln(k);
search( [5] );
pr(n);
readln
end.
青少年信息学竞赛（Pascal语言）参考答案
一、选择题
[ 1]D [ 2]B [ 3]C [ 4]B [ 5]C [ 6]D [ 7]B [ 8]B [ 9]A [10]C [11]B [12]A [13]A [14]A [15]C [16]D [17]C [18]B [19]C [20]B
二. 回答问题
1. 或
2. 有3种
1+1+1+7=10 1+1+3+5=10 1+3+3+3=10
三. 阅读程序,写出程序的运行结果
1. 9 8 5 4 3
2. 4
四. 根据题意,将以下程序补充完成
[1] a[k] [2] dec(j) [3] j>k
[4] pr(n:integer); [5] l,n。