青少年信息学竞赛

青少年信息学竞赛（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