第十一届全国青少年信息学奥林匹克联赛pascal初赛试题及答案

1、中国奥博教育 http:/www.chinaAoB 浙江奥数网 第十一届全国青少年信息学奥林匹克联赛初赛试题(含答案)2007-4-3 9:14:30 阅读63次 全部试题答案均要求写在答卷纸上，写在试卷纸上一律无效由OIFans（www.OIF）整理一选择一个正确答案代码（A/B/C/D/E）,填入每题的括号内(每题1.5分, 共30分)1. 在字符串“ababacbabcbdecced”中出现次数最多的字母出现了（ ）次。A. 6 B. 5 C. 4 D. 3 E. 22. 设全集I = a, b, c, d, e, f, g, h，集合A = a, b, c, d, e, f，B = c

2、, d, e，C = a, d，那么集合 ABC 为（ ）。A. c, e B. d, e C. e D. c, d, e E. d, f3. 和十进制数23的值相等的二进制数是（ ）。A. 10110 B. 11011 C. 11011 D. 10111 E. 100114. 完全二叉树的结点个数为11，则它的叶结点个数为（ ）。A. 4 B.3 C.5 D. 2 E. 65. 平面上有五个点。以这五点作为完全图G 的顶点，每两点之间的直线距离是图G G 的最小生成树中的边（ ）。6. Intel的首颗167. 处理器A B 的2 倍。某一特定程序P 分别编译为处理器A和处理器B A 的指令

3、数是处理器B 的4 倍。已知程序P 在处理器A 那么在输入相同的情况下，程序P 在处理器B 上执行需要（8.A. 音箱B. 显示器C. 打印机D. 扫描仪E. 绘图仪9. 下列活动中不属于信息学奥赛的系列活动的是（）。A. NOIP B. NOI C. IOI D. 冬令营E. 程序员等级考试10. 以下断电之后仍能保存数据的是（）。A. 硬盘B. 寄存器C. 显存D. 内存E. 高速缓存11. 以下哪个软件不是即时通信软件（）。A. 网易泡泡B. MSN Messenger C. Google Talk D. 3DS Max E. QQ12. 下列关于高级语言的说法错误的是（）。A. For

4、tran是历史上的第一个面向科学计算的高级语言B. Pascal和C都是编译执行的高级语言ADD：浙江省杭州市学院路146号第一教学楼507室 TEL： 057185028528 FAX： 057185028578 1中国奥博教育 http:/www.chinaAoB 浙江奥数网 C. C+是历史上的第一个支持面向对象的语言D. 编译器将高级语言程序转变为目标代码E. 高级语言程序比汇编语言程序更容易从一种计算机移植到另一种计算机上13. 下列设备不具有计算功能的是（）。A. 笔记本电脑B. 掌上电脑C. 智能手机D. 电子计算器E. 液晶显示器14. 常见的邮件传输服务器使用（）协议接收邮件

5、。A. HTTP B. SMTP C. TCP D. FTP E. POP315. 下列浏览器中，由微软公司开发的浏览器是（）。A. Internet Explore B. Netscape C. Opera D. Firefox E. Mozilla16. 一位艺术史学家有20000 幅真彩色图像，每幅图像约占3M空间。如果将这些图像以位图形式保存在CD 光盘上（一张CD 光盘的容量按600M ）张CD光盘。A. 1 B. 10 C. 100 D. 1000 E. 1000017. 设A = true，B = false，C = false，D = true为真的是（ ）。A. (A B )

6、(C D ) B. (A B ) C. A(B C ) D )D. (A(B C ) D E. (A 18. (3725)8 + (B)16(7B0)1619. 二叉树T，已知A是C的父结点，D 是G 的父结点，F 是I 3（根结点深度设为0），可知FA. 20. a, b, c, d, e, f, g依次入栈，以下出栈序列不（ D. d, c, f, e, b, a, g E. g, e, f, d, c, b, a二问题求解（请在空格处填上答案，每空5分，共10分）1. 将数组32, 74, 25, 53, 28, 43, 86, 47中的元素按从小到大的顺序排列，每次可以交换任意两个元素

7、，最少需要交换次。2. 有3 个课外小组：物理组，化学组和生物组。今有张、王、李、赵、陈5 名同学，已知张、王为物理组成员，张、李、赵为化学组成员，李、赵、陈为生物组成员。如果要在ADD：浙江省杭州市学院路146号第一教学楼507室 TEL： 057185028528 FAX： 057185028578 2中国奥博教育 http:/www.chinaAoB 浙江奥数网 3 个小组中分别选出3 位组长，一位同学最多只能担任一个小组的组长，共有种 选择方案。三阅读程序（共4题，每题8分，共计32 分）=PASCAL语言=1 vara, b : integer;beginread(a);b := (

8、a * (a * a) + 1;if b mod 3 = 0 then b := b div 3;if b mod 5 = 0 then b := b div 5;if b mod 7 = 0 then b := b div 7;if b mod 9 = 0 then b := b div 9;if b mod 11 = 0 then b := b div 11;if b mod 13 = 0 then b := b div 13;if b mod 15 = 0 then b := b div 15;writeln(100 * a - b) div 2);end.输入：10输出：2. vars

9、tr : string;i : integer;begin3 vara, b, c, p, q : integer;r : array0.2 of integer;beginread(a, b, c);p := a div b div c;q := b - c + a + p;r0 := a * p div q * q;r1 := r0 * (r0 - 300);if (3 * q - p mod 3 <= r0) and (r2 = r2) thenADD：浙江省杭州市学院路146号第一教学楼507室 TEL： 057185028528 FAX： 057185028578 3中国奥博教

10、育 http:/www.chinaAoB 浙江奥数网 r1 := rr0 div p mod 2else r1 := q mod p;writeln(r0 - r1);end.输入：100 7 3输出：4 varstr : string;len, i, j : integer;nchr : array 0.25 of integer;mmin : char;beginmmin := 'z'readln(str); len := length(str);i := len;while i >= 2 do beginif stri - 1 < str then break

11、; dec(i);end;if i = 1 then beginwriteln('No result!'); exit;end;for j := i to len do beginmmin := strj;end;writeln;end.输入：zzyzcccbbbaaa输出：=C语言=1 #include <stdio.h>int main() int a, b;scanf(“%d”, &a);b = (a * (a * a) + 1;ADD：浙江省杭州市学院路146号第一教学楼507室 TEL： 057185028528 FAX： 057185028578

12、 4中国奥博教育 http:/www.chinaAoB 浙江奥数网 if (b%3 = 0) b = b / 3;if (b%5 = 0) b = b / 5;if (b%7 = 0) b = b / 7;if (b%9 = 0) b = b / 9;if (b%11 = 0) b = b / 11;if (b%13 = 0) b = b / 13;if (b%15 = 0) b = b / 15;printf(“%d n”, (100 * a b) / 2);return 0;输入：10输出：2 #include <stdio.h>int main() char str20 =

13、“Today-is-terrible!”;int i;for (i = 6; i <= 10; i+)if (str = -) stri 1 = x;for (i = 12; i >= 0; i-)if (str = t) stri + 1 = e;printf(“%sn”, str);return 0;输出：3 int main() q = b 300);p % 3 <= r0 && r2 = r2)elser1 = q % p;printf(“%dn”, r0 r1);return 0;输入：100 7 3输出：4 #include<stdio.h&

14、gt;#include<string.h>int main()ADD：浙江省杭州市学院路146号第一教学楼507室 TEL： 057185028528 FAX： 057185028578 5中国奥博教育 http:/www.chinaAoB 浙江奥数网 char str60;int len, i, j, chr26;char mmin = 'z'scanf("%s", str);len = strlen(str);for (i = len - 1; i >= 1; i-)if (stri - 1 < str) break;if (i

15、= 0) printf("No result!n"); return 0;for (j = 0; j < i - 1; j+) putchar(strj);memset(chr, 0, sizeof(chr);for (j = i; j < len; j+) if (strj > stri - 1 && strj < mmin)mmin = strj;chrstrj - 'a'+;chrmmin - 'a'-;chrstri - 1 - 'a'+;putchar(mmin);for(i

16、= 0; i < 26; i+)for(j = 0; j < chr; j+)putchar(i + 'a');putchar('n');return 0;输入：输出：42分，后5空，每空4分，共28分)语言1题目描述:给出一个正整数，判断这个数是否是质数。输入:一个正整数n(1 n 10000)。输出:如果n是质数，输出”YES”；否则，输出”NO”。输入样例:10输出样例:NOADD：浙江省杭州市学院路146号第一教学楼507室 TEL： 057185028528 FAX： 057185028578 6中国奥博教育 http:/www.china

17、AoB 浙江奥数网 程序：var : integer;beginread(n);if n = 2 then writeln( )else if ( ) or (n mod 2 = 0) then writeln('NO')else begini := 3;while i * i <= n do beginif then beginwriteln('NO'); exit;end;i := i + 2;end;writeln('YES');end;end.2木材加工题目描述:木材厂有一些原木，（木头有可能有的任务木头长度的单位是cm。原木的长度

18、都是正整数，输入:，1 K 10000)，N是原木的数目，K1到10000之间的正整数，表示一根原木的长度。 如果连1cm长的小段都切不出来，输出”0”。 输入样例:3 7232124456输出样例:114程序：varn, k : integer;ADD：浙江省杭州市学院路146号第一教学楼507室 TEL： 057185028528 FAX： 057185028578 7中国奥博教育 http:/www.chinaAoB 浙江奥数网 len : array 1.10000 of integer;i, left, right, mid : integer;function isok(t : i

19、nteger) : boolean;varnum, i : integer;beginnum := 0;for i := 1 to n do beginif num >= k then break;num := ;end;if then isok := trueelse isok := false;end;beginreadln(n, k);right := 0;for i := 1 to n do beginreadln(len);if right < len then right := len;end;inc(right); ;while < right do begin

20、if else left := mid;end;writeln(left);end.语言=1:输入:一个正整数n(1 n 10000)。输出:如果n是质数，输出”YES”；否则，输出”NO”。输入样例:10输出样例:NO程序：#include <stdio.h>int main() ADD：浙江省杭州市学院路146号第一教学楼507室 TEL： 057185028528 FAX： 057185028578 8中国奥博教育 http:/www.chinaAoB 浙江奥数网 int ;scanf("%d", &n);if (n = 2) puts( );else if ( | n % 2 = 0) puts("NO");else i = 3;while (i * i <= n) if ( ) puts("NO"); return 0;i = i + 2;puts("YES");return 0;2木材加工题目描述:木材厂有一些原木，需要得到的小段的数目是给定的。当然，你的任务是计算能够得到的小段木头的最大长度。木头长度的单位是cm。我们要求切割得到的小段木头的长度也是正整数。输入:，1 K 10000)，N是原木的数目，K1到1