第十二届绍兴市少儿信息学奥赛初赛试题PASCAL

1、第十二届绍兴市少儿信息学竞赛初 赛 试 题（小学组 PASCAL语言 二小时完成）全部试题答案都要求写在答卷纸上，写在试卷上一律无效一、选择一个正确答案代码（A/B/C/D），填入每题的括号内（每题2分，每题只有一个正确答案，多选无分。共20分）1. 我们要养成正确的键盘输入习惯，那么请问按正确指法击T键，应使用（ ）A)右手食指B)右手中指C)左手食指D)左手中指2每个不同的二进制数可以表示一种颜色，如果一幅图像有256种颜色，最少需要几位二进制数来表示？ （ ）A)8B)16C)128D)2563以下运算结果为False的是 （ ）A)not (5>5)B)(5>=4) and

2、 (7<7)C)not (false)D)(5<4) or (5>=5)4在Free Pascal中运行某一程序时，返回如下图所示的错误信息，这是由于( )A)找不到输入文件B)源程序存在2号语法错误C)输入变量的值与变量的类型不匹配D)Pascal编译器没有正确安装5二维数组A的每个元素是由6个字符组成的串。其行下标从0到8，其列下标从0到9，若按行优先存储，元素A74的起始地址与当A按列优先存储时（ ）的起始地址相同，设每个字符占一个字节。A)A28B)A39C)A57D)A086.ASCII码表中的大写字母Z后有6个其他字符，接着便是小写字母。现在已知：字母Y的ASCI

3、I码为（1011001）2，则字母a的ASCII码用十六进制表示是 （ ）A)61HB)62HC)63HD)64H7.下列软件不能用于浏览网页的是 ( )A)FirefoxB)Internet ExplorerC)AccessD)腾讯TT8.路人甲要拍摄一些学校风景照片,并对拍摄的照片进行处理,下列采集工具、加工软件可实现这一功能的是（）A)数码相机、photoshopB)扫描仪、goldwaveC)数码摄像机、goldwaveD)手机、access9.某电影的评价如图所示： 图中的评价方式属于（）A)个人推荐B)统计评价C)专家推荐D)核心刊物评价10.某用户微博的相关统计如图所示：图中的“

4、围观”数主要体现了该用户微博信息的（）A)安全性B)真伪性C)共享性D)载体依附性二、根据要求回答问题：（5510分）1. 地球人都知道斐波那契数列的递推关系式为：现在给你一列数2,3,6,8,8,4,2,，如果用f（n）表示这个数列的第n个数，请写出这个递推式。2学校里共有12间宿舍，大宿舍住8人，中宿舍住7人，小宿舍住5人，现在每间宿舍都住满了，共住了80个人，问大、中、小宿舍各有多少间？三、阅读程序并写出运行结果（8888+840分）：1. program test1;var a,b,c,d,e,ans: integer; begin readln(a,b,c); d:=a+b; e:=

5、abs(b-c);ans:=trunc(d+e)/(c-a); writeln(ans); end输入：1 2 5 输出：_ 2. program test2;var n,m:longint;Begin Readln(n,m); n:=n mod 7; m:=m mod 5; If n>m then writeln(n) else writeln(m)End.输入：2014 2015输出:_3. program test3;var n,x,i,temp,j,count:longint;begin readln(n,x); for i:=1 to n do begin temp:=i; w

6、hile temp>0 do begin j:=temp mod 10; temp:=temp div 10; if j=x then inc(count); end;end;writeln(count);end.输入：100 5输出：_4program test4;var i,j,k,n:integer; a:array1.100 of boolean;begin read(n); for i:=1 to n do ai:=true; for i:=1 to n do begin j:=i; while j<=n do begin aj:=not(aj); j:=j+i; end

7、; end; for i:=1 to n do if ai=true then write('0',' ') else write('1',' ');end.输入：8输出:_5program test5;type arr=array1.8 of integer;var a:arr; i,n:integer;procedure select(var b:arr; var n:integer); var i,j:integer;begini:=0;for j:=1 to n do if bj mod 3=0 then begin i:

8、=i+1; bi:=bj; end;n:=i;end;begin n:=8; for i:=1 to n do read(ai); readln; select(a,n); for i:=1 to n do write(ai:3); writeln;end.输入：8 151 9 7 233 68 514 12输出: _四、完善程序（根据问题要求和已有程序，在程序空格处填入适当的语句或符号，使程序完整。本题每空3分，共15+15=30分）1打印文件【问题描述】路人甲毕业于某职业学校计算机专业，不过，想找一份好工作真难，在路人乙的推荐下，A公司聘请他担任文印室打印员。每天8点前，A公司的各个部门都

9、会把需要打印的文件送过来。一天的工作就这样开始了，起先路人甲按照文件送来的先后顺序打印，一段时间后，路人甲觉得这个工作非常无聊，于是决定改变打印的顺序。首先他要求每个部门对送过来的文件都要标上重要度急别p（1<=p<=9），接着他再给送过来的n个文件按先后顺序从0开始标上号码，然后，他按标号从小到大处理打印：对于当前的第一个文件a，若后面存在一个未打印的文件b, b文件的重要度大于a文件，则将a转移至最后，否则打印文件a。打印每个文件需1 分钟，转移文件可认为是瞬间完成的。路人甲还充分发挥自己的专业特长，编写了一个程序，只要第一行输入文件数n和需要查询的文件标号x，第二行依次输入n

10、个文件的重要度级别。就可输出打印x号文件时的时间。【样例输入】 6 0 1 1 9 1 1 1 【样例输出】 5算法：循环队列模拟。如果队首元素的优先级不是最高，把队首元素放到最后，其它元素前移，否则，队首元素出队。program test6;const max=100+10;type printer=record flag:longint; priority:longint; end;var ans,i,k,j,n,m:longint; printers:array0.max of printer; b:boolean; temp:printer;begin readln(n,m); for

11、 j:=0 to n-1 do with printersj do begin read(priority); if j=m then flag:=1 else ; end; ans:=0; while true do begin b:=false; for j:=1 to n-1 do if printersj.priority>printers0.priority then begin temp:=printers0; for k:=1 to n-1 do ; printersn-1:=temp; b:=true; end; if not b then begin inc(ans);

12、 if printers0.flag=1 then begin ; break; end else begin for j:=1 to n-1 do printersj-1:=printersj; ; end; end; end;end.2奖学金【问题描述】某小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金。期末，每个学生都有3门课的成绩：语文、数学、英语。先按总分从高到低排序，如果两个同学总分相同，再按语文成绩从高到低排序。任务：先根据输入的3门课的成绩计算总分，然后按上述规则排序，最后按排名顺序输出前5名学生的学号和总分。注意，在前5名同学中，每个人的奖学金都不

13、相同，因此，你必须严格按上述规则排序。例如，在某个正确答案中，如果前两行的输出数据（每行输出两个数：学号、总分）是：7 2795 279这两行数据的含义是：总分最高的两个同学的学号依次是7号、5号。这两名同学的总分都是279（总分等于输入的语文、数学、英语三科成绩之和），但学号为7的学生语文成绩更高一些。如果你的前两名的输出数据是：5 2797 279则按输出错误处理，不能得分。【输入】输入包含n+1行：第1行为一个正整数n，表示该校参加评选的学生人数。第2到n+1行，每行有3个用空格隔开的数字，每个数字都在0到100之间。第j行的3个数字依次表示学号为j-1的学生的语文、数学、英语的成绩。每

14、个学生的学号按照输入顺序编号为1n（恰好是输入数据的行号减1）。所给的数据保证总分相同的情况下，语文成绩一定不同。【输出】输出共有5行，每行是两个用空格隔开的正整数, 依次表示前5名学生的学号和总分。【样例输入】880 89 8989 97 7890 67 8087 66 9181 89 8888 99 7767 89 6478 89 98【样例输出】8 2652 2646 2645 2581 258【限制】 100%的数据满足：6<=n<=300program test7;typelei=record sum,num,yuwen,shuxue,yingyu:integer; end;varst:array1.500of lei;temp:lei;i,j,n:integer;beginreadln(n);for i:=1 to n do with do begin num:=i; readln(yuwen,shuxue,yin