第十二届绍兴市少儿信息学奥赛初赛试题(PASCAL)[优秀]_绍兴信息pascal

第十二届绍兴市少儿信息学奥赛初赛试题(PASCAL)[优秀]由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“绍兴信息pascal”。

第十二届绍兴市少儿信息学竞赛

（PASCAL版 试卷）

第十二届绍兴市少儿信息学竞赛

初

赛

试

题

（小学组 PASCAL语言

二小时完成）

●●全部试题答案都要求写在答卷纸上，写在试卷上一律无效●●

一、选择一个正确答案代码（A/B/C/D），填入每题的括号内（每题2分，每题只有一个正确答案，多选无分。共20分）

1.我们要养成正确的键盘输入习惯，那么请问按正确指法击T键，应使用（）

A)右手食指

2．每个不同的二进制数可以表示一种颜色，如果一幅图像有256种颜色，最少需要几位二 进制数来表示？（）

A)8 C)128

3．以下运算结果为False的是（）

A)not(5>5)

4．在Free Pascal中运行某一程序时，返回如下图所示的错误信息，这是由于()B)(5>=4)and(7=5)

B)16 D)256 B)右手中指

C)左手食指

D)左手中指

A)找不到输入文件

C)输入变量的值与变量的类型不匹配

5．二维数组A的每个元素是由6个字符组成的串。其行下标从0到8，其列下标从0到9，若按行优先存储，元素A[7][4]的起始地址与当A按列优先存储时（）的起始地址相同，设每个字符占一个字节。

A)A[2][8]

主办：绍兴市科协、绍兴市教育局

承办：绍兴科技馆、绍兴市教育教学研究院 协办：绍兴市青少年科技教育协会、绍兴市互联网协会（2014年4月12日）

第十二届绍兴市少儿信息学竞赛

（PASCAL版 试卷）

图中的“围观”数主要体现了该用户微博信息的（）

A)安全性 B)真伪性

C)共享性

D)载体依附性

二、根据要求回答问题：（5＋5＝10分）1.地球人都知道斐波那契数列的递推关系式为：

f(1)1 f(2)1f(n)f(n1)f(n2)现在给你一列数2,3,6,8,8,4,2,„，如果用f（n）表示这个数列的第n个数，请写出这个递推式。

2．学校里共有12间宿舍，大宿舍住8人，中宿舍住7人，小宿舍住5人，现在每间宿舍都住满了，共住了80个人，问大、中、小宿舍各有多少间？

三、阅读程序并写出运行结果（8＋8＋8＋8+8＝40分）： 1.program test1;var a,b,c,d,e,ans: integer;begin

readln(a,b,c);d:=a+b;ans:=trunc((d+e)/(c-a));e:=abs(b-c);writeln(ans);end．

输入：1 2 5 输出：______________ 主办：绍兴市科协、绍兴市教育局

承办：绍兴科技馆、绍兴市教育教学研究院 协办：绍兴市青少年科技教育协会、绍兴市互联网协会（2014年4月12日）

第十二届绍兴市少儿信息学竞赛

（PASCAL版 试卷）

4．program test4;var i,j,k,n:integer;a:array[1..100] of boolean;begin read(n);for i:=1 to n do a[i]:=true;for i:=1 to n do begin j:=i;while j

end.输入：8 输出:____________

5．program test5;type arr=array[1..8] of integer;var a:arr;i,n:integer;procedure select(var b:arr;var n:integer);var i,j:integer;begin i:=0;for j:=1 to n do if b[j] mod 3=0 then 主办：绍兴市科协、绍兴市教育局

承办：绍兴科技馆、绍兴市教育教学研究院 协办：绍兴市青少年科技教育协会、绍兴市互联网协会（2014年4月12日）

第十二届绍兴市少儿信息学竞赛

（PASCAL版 试卷）

【样例输入】 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:array[0..max] of printer;b:boolean;temp:printer;begin readln(n,m);for j:=0 to n-1 do with printers[j] 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 printers[j].priority>printers[0].priority then begin temp:=printers[0];for k:=1 to n-1 do ②;printers[n-1]:=temp;b:=true;主办：绍兴市科协、绍兴市教育局

承办：绍兴科技馆、绍兴市教育教学研究院 协办：绍兴市青少年科技教育协会、绍兴市互联网协会（2014年4月12日）

第十二届绍兴市少儿信息学竞赛

（PASCAL版 试卷）279 则按输出错误处理，不能得分。【输入】

输入包含n+1行：

第1行为一个正整数n，表示该校参加评选的学生人数。

第2到n+1行，每行有3个用空格隔开的数字，每个数字都在0到100之间。第j行的3个数字依次表示学号为j-1的学生的语文、数学、英语的成绩。每个学生的学号按照输入顺序编号为1~n（恰好是输入数据的行号减1）。

所给的数据保证总分相同的情况下，语文成绩一定不同。【输出】

输出共有5行，每行是两个用空格隔开的正整数, 依次表示前5名学生的学号和总分。【样例输入】 8 80 89 89 89 97 78 90 67 80 87 66 91 81 89 88 88 99 77 67 89 64 78 89 98 【样例输出】 8 265 2 264 6 264 5 258 1 258 【限制】

100%的数据满足：6

承办：绍兴科技馆、绍兴市教育教学研究院 协办：绍兴市青少年科技教育协会、绍兴市互联网协会（2014年4月12日）