嵊州市信息技术教师素质比武初中组奥赛试题
PASCAL语言
学校姓名
一．选择一个正确答案代码（A/B/C/D），填入每题的括号内（每题1.5分，每题只有一个正确答案，多选或错选都无分。共30分）
1.在下面各世界顶级的奖项中，为计算机科学与技术领域做出杰出贡献的科学家设立的奖项是（）。
A. 沃尔夫奖
B.    诺贝尔奖
C. 菲尔兹奖
D. 图灵奖
2. 在下列各软件中，不属于NOIP 竞赛（复赛）推荐使用的语言环境有（）。
A. gcc/g++
B. Turbo Pascal
C. RHIDE
D. free pascal
3．在下列各项中，只有（）不是计算机存储容量的常用单位。
A．Byte        B．KB        C．UB        D．TB
4．LAN的含义是（）。
A．因特网      B．局域网      C．广域网      D．城域网
5 在计算机中，防火墙的作用是（）。
A. 防止火灾蔓延
B.防止网络攻击
C. 防止计算机死机
输入一个长度介于0到5之间的字符串是什么
D. 防止使用者误删除数据
6。ASCII码的含义是（）。
A．二→十进制转换码                        B．美国信息交换标准代码
C．数字的二进制编码                        D．计算机可处理字符的唯一编码
7．在下列关于计算机语言的说法中，不正确的是（）。
A. Pascal和C都是编译执行的高级语言
B. 高级语言程序比汇编语言程序更容易从一种计算机移植到另一种计算机上
C. C++是历史上的第一个支持面向对象的计算机语言
D. 与汇编语言相比，高级语言程序更容易阅读
8.在下列各种排序算法中，不是以“比较”作为主要操作的算法是（）。
A. 选择排序
B. 冒泡排序
C. 插入排序
D. 基数排序
9. 设A=B=D=true，C=false，以下逻辑运算表达式值为真的有（）。
A. (¬ A∧B)∨(C∧D)
B.¬ ((A∨B∨D)∧C)
C.  ¬ A∧(B∨C∨D)
D. (A∧B∧C)∨¬ D
10．已知  6 个结点的二叉树的先根遍历是1 2 3 4 5 6（数字为结点的编号，以下同），后根遍历是3 2 5 6 4 1，则该二叉树的可能的中根遍历是（）
A. 3 2 1 4 6 5
B. 3 2 1 5 4 6
C. 2 1 3 5 4 6
D. 2 3 1 4 6 5
11.在关系数据库中，存放在数据库中的数据的逻辑结构以（）为主。
A．二叉树      B．多叉树    C．哈希表      D．二维表
12.以下断电后仍能保存数据的有（）。
A．硬盘          B．高速缓存      C．显存            D．RAM
13.在下列关于计算机语言的说法中，正确的有（）。
A．高级语言比汇编语言更高级，是因为它的程序的运行效率更高
B．随着Pascal、C等高级语言的出现，机器语言和汇编语言已经退出了历史舞台
C．高级语言比汇编语言程序更容易从一种计算机上移植到另一种计算机上
D．C是一种面向对象的高级计算机语言
14. 在下列关于计算机算法的说法中，不正确的是（）。
A. 一个正确的算法至少要有一个输入
B. 算法的改进，在很大程度上推动了计算机科学与技术的进步
C. 判断一个算法的好坏的主要标准是算法的时间复杂性与空间复杂性
D. 目前仍然存在许多涉及到国计民生的重大课题，还没有到能够在计算机上实施的有效
算法
15．在Pascal语言中，表达式（23 or 2 xor 5）的值是（）。
A．  1        B．18      C．23          D．32
16.与十进制数1770对应的八进制数是（）。
A．3350            B．3351              C．3352              D．3540
17 (2070)16 + (34)8 的结果是（）。
A．（8332）10  B．（208A）16  C．（100000000110）2  D．(20212)8
18.近20年来，许多计算机专家都大力推崇递归算法，认为它是解决较复杂问题的强有力的工具。在下列关于递归算法的说法中，正确的是（）。
A．在1977年前后形成标准的计算机高级语言“FORTRAN77”禁止在程序使用递归，原因之一是该方法可能会占用更多的内存空间
B．和非递归算法相比，解决同一个问题，递归算法一般运行得更快一些
C．对于较复杂的问题，用递归方式编程一般比非递归方式更难一些
D．对于已经定义好的标准数学函数 sin(x)，应用程序中的语句“y=sin(sin(x));”就是一种递归调用
19.某个车站呈狭长形，宽度只能容下一台车，并且只有一个出入口。已知某时刻该车站状态为空，从这一时刻开始的出入记录为：“进，出，进，进，进，出，出，进，进，进，出,
出”。假设车辆入站的顺序为1，2，3，……，则车辆出站的顺序为（）。
A. 1, 2, 3, 4, 5
B. 1, 2, 4, 5, 7
C. 1, 4, 3, 7, 6
D. 1, 4, 3, 7, 2
20.高度为n 的均衡的二叉树是指：如果去掉叶结点及相应的树枝，它应该是高度为n-1 的满二叉树。在这里，树高等于叶结点的最大深度，根结点的深度为 0，如果某个均衡的二叉树共有 2381 个结点，则该树的树高为（）。
A. 10
B. 11
C. 12
D. 13
二、问题求解（5分一题，共10分）
1．75名儿童去游乐场玩。他们可以骑旋转木马，坐滑行轨道，乘宇宙飞船。已知其中20人这三种东西
都玩过，55人至少
．．玩过其中两种。若每玩一样的费用为5元，游乐场总共收入700，可知有_____名儿童没有玩过其中任何一种。
2．现在市场上有一款汽车A很热销，售价是2万美元。汽车A每加仑汽油可以行驶20英里。普通汽车每年大约行驶12000英里。油价是每加仑1美元。不久我公司就要推出新款节油汽车B，汽车B每加仑汽油可以行驶30英里。现在我们要为B制定价格(它的价格略高于A)：我们预计如果用户能够在两年内通过节省油钱把B高出A的价钱弥补回来，则他们就会购买B，否则就不会购买B。那么B的最高价格应为万美元。
三．阅读程序(每题8分，共32分)
1、program t1;
Var
a,b,c,d,e:integer;
begin
a:=80; b:=34; c:=57;d:=0 ; e:=-1;
if (a<c) or (b>c) then d:=d+e
else if (d+10<e) then d:=e+10
else d:=e-a;
writeln(d);
end.
输出：_________________
2、program t2;
var
i,j:integer;
str1,str2:string;
begin
str1:='dog-is-clever';
str2:='stupid';
str1[1]:='p'; str1[2]:='i';
i:=8;
for j:=1 to 6 do begin
str1[i]:=str2[j];inc(i);
end;
writeln(str1);
end.
输出：______ _______________
3、program t3;
var    a1:array[1..50] of integer;
var  i,j,t,t2,n,n2:integer;
begin
n:=50;
for i:=1 to n do a1[i]:=0;
n2:=round(sqrt(n));
for i:=2 to n2 do
if (a1[i]=0) then
begin
t2:=n div i;
for j:=2 to t2 do a1[i*j]:=1;                end;
t:=0;
for i:=2 to n do
if (a1[i]=0) then
begin
write(i:4); inc(t);
if (t mod 10=0) then writeln;                end;
writeln;
end.
输出：
4．program  t4;
var
str : string;
len, i, j : integer;
nchr : array [0..25] of integer;
mmin : char;
begin
mmin := 'z';
readln(str); len := length(str);
i := len;
while i >= 2 do begin
if str[i - 1] < str[i] then break; dec(i);
end;
if i = 1 then begin
writeln('No result!'); exit;
end;
for j := 1 to i - 2 do write(str[j]);
fillchar(nchr, sizeof(nchr), 0);
for j := i to len do begin
if (str[j] > str[i - 1]) and (str[j] < mmin) then
mmin := str[j];
inc(nchr[ord(str[j]) - ord('a')]));
end;
dec(nchr[ord(mmin) - ord('a')]);
inc(nchr[ord(str[i - 1]) - ord('a')]) ;
write(mmin);
for i := 0 to 25 do
for j := 1 to nchr[i] do
write(chr(i + ord('a')));
writeln;
end.
输入：zzyzcccbbbaaa
输出：
四．完善程序(前4空，每空2分，后5空，每空4分，共28分)  1．判断质数
题目描述:
给出一个正整数，判断这个数是否是质数。
输入:
一个正整数n(1 ≤ n ≤ 10000)。
输出:
如果n是质数，输出”YES”；否则，输出”NO”。
输入样例:
10
输出样例:
NO
程序：program  zheshu;
begin
read(n);
else begin
i := 3;
writeln('NO'); exit;

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。