当前位置:首页 >> 学科竞赛 >>

2004年连云港市信息学(计算机)奥林匹克分区联赛模拟试题(普及组 PASCAL语言)


2004 年连云港市信息学 (计算机) 奥林匹克分区联赛模拟试题
( 普及组 PASCAL 语言 二小时完成 )
●● 全部试题答案均要求写在答卷纸上,写在试卷纸上一律无效 ●● 一、选择一个正确答案代码(A/B/C/D/E),填入每题的括号内 (每题 1.5 分,多选无分, 共 30 分) 1.( )是以结构化的形式来设计和编写程序. A.软件工程 B.算法

设计 C.数据结构 D.网络设计 E.数据库开发 2.微型计算机的内存储器比外存储器( ). A.存储容量大 B.价格便宜 C.存储可靠性高 D.读写速度快 E.便于携带 3.一个字是( A.16 )位. B.8 C.32

D.64

E.以上任意一个

4.下面有关进制中的式子,正确的是( ). A. (11)10=(13)9 B. (32)8÷(15)8=(2.14)8 C. (21)10×(128)10=(1080)16 D.(52)5-(70)3=(110)2 E.(11.5)10=(1011.101)2 5. 计算机系统由硬件系统和软件系统组成, 平常我们所说的计算机软件是由程序和 ( 组成. A.相关文档 B.相关资料 C.相关工具 D.相关说明 E.相关平台 6.人们使用高级语言编写出来的程序,一般先要翻译成为( A.标准程序 B.翻译程序 C.执行程序 D.编译程序 E.目标程序 ). )

7.关于计算机病毒,正确的说法是( ). A. 病毒是计算机被黑客攻击后造成的 B.病毒只传染给可执行文件 C.如果某台电脑感染了病毒,那么它将会传染给附近的电脑 D.计算机病毒的特点是:传播性、潜伏性、破坏性、通用性等 E.计算机“千年虫”不是计算机病毒。 8.采用( )图形表示方法在计算机中表示图像,重新调节图像会产生波纹状或颗粒状 图像. A.位图 B.矢量图 C.二进制 D.平面图 E.量化

第1页,共9页

9.下列高级语言中,能用于面向对象程序设计的是( A.DBASE III B.FORTRAN C.PASCAL

). D. C++

E.BASIC

10.既是输入设备又是输出设备的是( ). A.磁盘驱动器 B.键盘 C.显示器 D.鼠标 11.因特网起源于( ). A.美国科学基金会 B.美国国防部 C.欧洲粒子物理实验室 D.英国剑桥大学

E.数字化仪

E.英特公司

12.指出以下统一资源定位器各部分的名称(从左到右), http://home.microsoft.com/main/index.html 以下哪个正确?( 1 2 3 4 A.1 主机域名 2 服务标志 3 目录名 4 文件名 B.1 服务标志 2 目录名 3 主机域名 4 文件名 C.1 服务标志 2 主机域名 3 目录名 4 文件名 D.1 目录名 2 主机域名 3 服务标志 4 文件名 E.1 目录名 2 服务标志 3 目录名 4 文件名 13.TCP/IP 有( )层协议. A.3 B.4 C.5

).

D.6

E.7

14.请从逻辑的角度在后面的括号中填入后续数字;8, 6, 7, 5, 6, 4, ( ). A.1 B.2 C.3 D.4 E.5 15.下面程序段的时间复杂度为(
i:=0;s:=0; while s<n do begin i:=i+1; s:=s+i end;

).

A. O ( n )

B. O(log2 n)

C. O(i ? log2 n)

D. O( n )

E. O(n )

2

16.一个栈的输入序列为 1 2 3 4 5,则下列序列中不可能是栈的输出序列的是 A.2 3 4 1 5 B.5 4 1 3 2 C.2 3 1 4 5 D.1 5 4 3 2 E.2 3 4 5 1 17.设数据 A[10..100,20..100]以行优先的方式顺序存储,每个元素占 4 个字节,且已 知 A[10,20]的地址为 1000,则 A[50,90]的地址是( ). A.14350 B.14240 C.15340 D.15350 E.15200 18.将一棵有 100 个结点的完全二叉树从根这一层开始,每一层从左到右依次对结点 进行编号,根结点的编号为 1,则编号为 49 的结点的左孩子编号为( ). A.50 B.51 C.70 D.71 E.98 第2页,共9页

19.对序列(45,36,18,53,72,30,48,93,15,36)进行快速排序,( )是执行第一趟快 速排序后得到的序列. A.[36,36,18,15,30]45[48,93,72,53] B.[36,36,18, 30,15]45[48, 72,93,53] C.[36,36,18,15,45]30[48,93,72,53] D.[36,36,18,15,30] 53[48,93,72, 45] E.[36,36 ,18,15,30] 53[48,93,72, 45] 20.一个有 n 个顶点的无向图最多有( A. n ? 1 B. n C. n(n ? 1) / 2 )边. D. 2 n

E. (n ? 1) 2

二、问题解答(6+5 分,共 11 分) 1.求 1 到 1000 不能被 5,6 和 8 整除的整数个数为 。

2. 已知一棵度为 m 的树有 n1 个度为 1 的结点, n2 个度为 2 的结点? nm 个度为 m 的 结点,问该树中有多少个叶子结点?即 n0 ?


三、阅读程序,并写出程序正确的运行结果(7+ 8+ 8+ 9 分,共 32 分) 1. program lygp04_1; var m,g,n:integer; k,t:real; begin readln(n); k:=0;g:=0; for m:=1 to n do begin g:=g+1; k:=k+1/(g*(g+1)) end; writeln(k:0:2) end. 输入:99 输出: 2. program lygp04_2; function ack(m,n:integer):integer; begin if m=0 then ack:=n+1 else if n=0 then ack:=ack(m-1,1) else ack:=ack(m-1,ack(m,n-1))

第3页,共9页

end; begin writeln(ack(3,4)) end. 输出: 3. program lygp04_3; var i,j,s,sp1 : integer ; p : boolean ; a : array[1..10] of integer ; begin sp1:=1; a[1]:=2; j:=2; while sp1<10 do begin j:=j+1; p:=true; for i:=2 to j-1 do if (j mod i=0) then p:=false; if p then begin sp1:=sp1+1; a[sp1]:=j; end; end; j:=2; p:=true; while p do begin s:=1; for i:=1 to j do s:=s*a[i]; s:=s+1; for i:=2 to s-1 do if s mod i=0 then p:=false; j:=j+1; end; writeln(s); writeln;
end.

输出: 4.
program lygp04_4; const maxn=1000; var i,j,k,n,r,p,g:longint; a:array [1..maxn] of longint; function gcd(m,n:longint):longint; var r:longint; begin while n<>0 do

第4页,共9页

begin r:=m mod n; m:=n;n:=r; end; gcd:=m; end; begin n:=1000;r:=202; for i:=1 to n-r do a[i]:=n-i+1; for i:=2 to R do begin k:=i; for j:=1 to n-r do if gcd(k,a[j])>1 then begin g:=gcd(k,a[j]); k:=k div g; a[j]:=a[j] div g; if k=1 then break end end; p:=1;g:=0; for i:=1 to n-r do begin p:=p*a[i]; while (p mod 5 =0) do begin p:=p div 5; g:=g+1; end; p:=p mod 5; end; writeln(g) end. 输出:

四、完善程序(每空三分,第一题 15 分,第二题 12 分,共 27 分) 第一题: 【问题描述】装球:设有 n 个盒子(n 足够大,可装入任何数量的球),分别编号 1, 2,??。同时有 k 个小球(k>0),今将 k 个小球装入到盒子中去。 装入规则如下: (1)第一个盒子不能为空。 (2)装入必须严格按递增顺序进行。 例如,当 k=8,n=6 时,装入方法有 1,2,5 或 1,3,4 (3)在满足上面的两个条件下,要求有球的盒子尽可能多。 (4)装完后,相邻盒子中球个数差的绝对值之和最小(未装的盒子不计)。 第5页,共9页

如上例中: 装入法 1,2,5,则差的绝对值之和为 2-1+5-2=4 装入法 1,3,4,则差的绝对值之和为 3-1+4-3=3 【程序要求】给出 k(k 表示小球的个数)之后,求出满足上述四个条件的装入方法。 【程序清单】 program lygp04_5;
const n=20; var i,j,k,l:integer; a:array [1..n] of integer; begin readln(k); fillchar(a,sizeof(a),0); ① ; while ② do begin a[j]:=j; ③ ; j:=j+1; end; l:=j-1; while k>0 do begin ④ ; k:=k-1; l:=l-1 end; for i:=1 to ⑤ do write(a[i]:4); end. 第二题

【问题描述】某商店老板储存了多种货物,每种货物有一个有字母按一定顺序组成的 标签。标签一样的货物存放在同一个货仓里,这个货仓也帖上该字样的标签。每天该 老板收到各种货物的定单,每个定单只要一种货物,然后他根据这些定单的要求发送 货物。 你现在知道了今天将要发送的所有货物的定单,但不知道他们的顺序,请计算出 所有的排列的可能。 输入格式:一行,该行描述了所有被定货物的标签(随机次序),每种货物用其标签 的第一个字母表示,而且只用小写字母。

第6页,共9页

输出格式:输出所有可能的定单的次序,每种情况占一行,不得重复,且按字母序排 列。 【程序清单】
program program lygp04_6; var a : array ['a'..'z'] of integer; s : string; l : integer; c : char; procedure search(le : integer); var c : char; begin if ① then begin writeln(s); exit end; for c := 'a' to 'z' do if a[c] > 0 then begin dec(a[c]);


search(le + 1);


end end; begin fillchar(a, sizeof(a), 0); l := 0; s := ''; while not eoln do begin read(c); inc(a[c]); inc(l);insert(' ', s, l) end;


end.

第7页,共9页

区(县)

学校

年级

班级 姓名

==========================





线 ======================

2004 年连云港市信息学 (计算机) 奥林匹克分区联赛模拟试题
普及组答卷纸
阅 总阅卷人 第 1 题号 得分 题号 11 得分 一 2 12 大 3 13 4 14 题 5 15 卷 得 分 7 8 9 17 18 19 记 录 总 得 分 第二大题得分 第三大题得分 第四大题得分

6 16

10 20

============================= 以下由考生填写 ============================

答卷部分
一、选择一个正确答案代码(A/B/C/D/E),填入每题的括号内 (每题 1.5 分,多选无分, 共 30 分) 题号 选择 题号 选择 11 12 13 14 15 16 17 18 19 20 1 2 3 4 5 6 7 8 9 10

二、问题解答(6+5 分,共 11 分) 1. 答:整数个数为 2. n0 ?




三、阅读程序,并写出程序正确的运行结果(7+8+8+9 分,共 32 分) 1)程序的运行结果是:

输入:99 输出:

第8页,共9页

区(县)

学校

年级

班级 姓名

========================== 2)程序的运行结果是:





线 ======================

输出:

3)程序的运行结果是:

输出:

4)程序的运行结果是:

输出:

四、完善程序(每空三分,第一题 15 分,第二题 12 分,共 27 分) PASCAL 语言 ================= 题一 ① ② ③ ④ ⑤ 题二 ① ② ③ ④

第9页,共9页


相关文章:
2004年连云港市信息学(计算机)奥林匹克分区联赛模拟试题(普及组 PASCAL语言)参考答案
2004年连云港市信息学(计算机)奥林匹克分区联赛模拟试题(普及组 PASCAL语言)参考答案_学科竞赛_高中教育_教育专区。2004 年连云港市信息学(计算机)奥林匹克分区联赛模拟...
2004年连云港市信息学(计算机)奥林匹克分区联赛模拟试题(普及组 PASCAL语言)
2004年连云港市信息学(计算机)奥林匹克分区联赛模拟试题(普及组 PASCAL语言)_学科竞赛_高中教育_教育专区。2004 年连云港市信息学 (计算机) 奥林匹克分区联赛模拟试题...
信息学(计算机)奥林匹克分区联赛模拟试题(普及组 PASCAL语言)
信息学(计算机)奥林匹克分区联赛模拟试题(普及组 PASCAL语言)_计算机软件及应用_...2004 年连云港市信息学 (计算机) 奥林匹克分区联赛模拟试题普及组答卷纸阅 总...
2004第十届全国青少年信息学奥林匹克联赛初赛试题及答案
青少年信息学奥林匹克联赛初赛试题 二小时完成) (普及组 Pascal 语言 二小时完成...2002 年第八届全国青少年信息学(计算机)奥林匹克分区联赛初赛试题及答案(2004-10...
全国信息学分区联赛模拟试题(一)
全国信息学分区联赛模拟试题(一)_理学_高等教育_...“XOXOXOX” 最多 1000 组数据,其中 30%的数据 ...全国青少年信息学(计算机... 4页 免费 2001第七...
第七届全国青少年信息学(计算机)奥林匹克分区联赛复赛试题
第七届全国青少年信息学(计算机)奥林匹克分区联赛复赛试题_学科竞赛_小学教育_教育专区。第七届全国青少年信息学(计算机)奥林匹克分区联赛复赛试题 (普及组二类试卷 三...
全国信息学分区联赛模拟试题(二)
全国信息学分区联赛模拟试题( 全国信息学分区联赛模拟试题(二)【试题概览】 试题概览】试题名称 提交文件 输入文件 输出文件 时间限制 空间限制 题目来源 倒水 Water...
第四届全国青少年信息学(计算机)奥林匹克分区联赛
第四届全国青少年信息学(计算机)奥林匹克分区联赛_学科竞赛_高中教育_教育专区。第四届全国青少年信息学(计算机)奥林匹克分区联赛 辽宁赛区(LOGO 语言)初赛试卷 一、...
青少年信息学奥林匹克分区联赛
第七届全国青少年信息学(计算机)奥林匹克分区联赛初赛试题 (普及组 PASCAL 语言 二小时完成) 一、选择一个正确答案代码(A/B/C/D),填入每题的括号内(每题 1.5...
更多相关标签:
初中信息学奥赛普及组 | 2015信息学奥赛普及组 | 信息学全国普及组2016 | noip普及组初赛pascal | 小学奥林匹克信息学 | 奥林匹克信息学竞赛 | 青少年信息学奥林匹克 | 奥林匹克信息学有用吗 |