第十二届绍兴市少儿信息学奥赛初赛试题PASCAL.docx
- 文档编号:6348628
- 上传时间:2023-01-05
- 格式:DOCX
- 页数:12
- 大小:95.58KB
第十二届绍兴市少儿信息学奥赛初赛试题PASCAL.docx
《第十二届绍兴市少儿信息学奥赛初赛试题PASCAL.docx》由会员分享,可在线阅读,更多相关《第十二届绍兴市少儿信息学奥赛初赛试题PASCAL.docx(12页珍藏版)》请在冰豆网上搜索。
第十二届绍兴市少儿信息学奥赛初赛试题PASCAL
第十二届绍兴市少儿信息学竞赛
初赛试题
(小学组PASCAL语言二小时完成)
●●全部试题答案都要求写在答卷纸上,写在试卷上一律无效●●
一、选择一个正确答案代码(A/B/C/D),填入每题的括号内(每题2分,每题只有一个正确答案,多选无分。
共20分)
1.我们要养成正确的键盘输入习惯,那么请问按正确指法击T键,应使用()
A)
右手食指
B)
右手中指
C)
左手食指
D)
左手中指
2.每个不同的二进制数可以表示一种颜色,如果一幅图像有256种颜色,最少需要几位二
进制数来表示?
()
A)
8
B)
16
C)
128
D)
256
3.以下运算结果为False的是()
A)
not(5>5)
B)
(5>=4)and(7<7)
C)
not(false)
D)
(5<4)or(5>=5)
4.在FreePascal中运行某一程序时,返回如下图所示的错误信息,这是由于()
A)
找不到输入文件
B)
源程序存在2号语法错误
C)
输入变量的值与变量的类型不匹配
D)
Pascal编译器没有正确安装
5.二维数组A的每个元素是由6个字符组成的串。
其行下标从0到8,其列下标从0到9,
若按行优先存储,元素A[7][4]的起始地址与当A按列优先存储时()的起始地址相同,
设每个字符占一个字节。
A)
A[2][8]
B)
A[3][9]
C)
A[5][7]
D)
A[0][8]
6.ASCII码表中的大写字母Z后有6个其他字符,接着便是小写字母。
现在已知:
字母Y的
ASCII码为(1011001)2,则字母a的ASCII码用十六进制表示是()
A)
61H
B)
62H
C)
63H
D)
64H
7.下列软件不能用于浏览网页的是()
A)
Firefox
B)
InternetExplorer
C)
Access
D)
腾讯TT
8.路人甲要拍摄一些学校风景照片,并对拍摄的照片进行处理,下列采集工具、加工软件可实
现这一功能的是( )
A)
数码相机、photoshop
B)
扫描仪、goldwave
C)
数码摄像机、goldwave
D)
手机、access
9.某电影的评价如图所示:
图中的评价方式属于( )
A)
个人推荐
B)
统计评价
C)
专家推荐
D)
核心刊物评价
10.某用户微博的相关统计如图所示:
图中的“围观”数主要体现了该用户微博信息的( )
A)
安全性
B)
真伪性
C)
共享性
D)
载体依附性
二、根据要求回答问题:
(5+5=10分)
1.地球人都知道斐波那契数列的递推关系式为:
现在给你一列数2,3,6,8,8,4,2,…,如果用f(n)表示这个数列的第n个数,请写出这个递推式。
2.学校里共有12间宿舍,大宿舍住8人,中宿舍住7人,小宿舍住5人,现在每间宿舍都住满了,共住了80个人,问大、中、小宿舍各有多少间?
三、阅读程序并写出运行结果(8+8+8+8+8=40分):
1.programtest1;
var
a,b,c,d,e,ans:
integer;
begin
readln(a,b,c);
d:
=a+b;
e:
=abs(b-c);
ans:
=trunc((d+e)/(c-a));
writeln(ans);
end.
输入:
125
输出:
______________
2.programtest2;
var
n,m:
longint;
Begin
Readln(n,m);
n:
=nmod7;
m:
=mmod5;
Ifn>mthenwriteln(n)
elsewriteln(m)
End.
输入:
20142015
输出:
____________
3.programtest3;
var
n,x,i,temp,j,count:
longint;
begin
readln(n,x);
fori:
=1tondo
begin
temp:
=i;
whiletemp>0do
begin
j:
=tempmod10;
temp:
=tempdiv10;
ifj=xtheninc(count);
end;
end;
writeln(count);
end.
输入:
1005
输出:
____________
4.programtest4;
var
i,j,k,n:
integer;
a:
array[1..100]ofboolean;
begin
read(n);
fori:
=1tondoa[i]:
=true;
fori:
=1tondo
begin
j:
=i;
whilej<=ndo
begin
a[j]:
=not(a[j]);
j:
=j+i;
end;
end;
fori:
=1tondo
ifa[i]=truethenwrite('0','')
elsewrite('1','');
end.
输入:
8
输出:
____________
5.programtest5;
type
arr=array[1..8]ofinteger;
var
a:
arr;i,n:
integer;
procedureselect(varb:
arr;varn:
integer);
var
i,j:
integer;
begin
i:
=0;
forj:
=1tondo
ifb[j]mod3=0then
begin
i:
=i+1;
b[i]:
=b[j];
end;
n:
=i;
end;
begin
n:
=8;
fori:
=1tondoread(a[i]);
readln;
select(a,n);
fori:
=1tondowrite(a[i]:
3);
writeln;
end.
输入:
8151972336851412
输出:
________________________
四、完善程序(根据问题要求和已有程序,在程序空格处填入适当的语句或符号,使程序完整。
本题每空3分,共15+15=30分)
1.打印文件
【问题描述】
路人甲毕业于某职业学校计算机专业,不过,想找一份好工作真难,在路人乙的推荐下,A公司聘请他担任文印室打印员。
每天8点前,A公司的各个部门都会把需要打印的文件送过来。
一天的工作就这样开始了,起先路人甲按照文件送来的先后顺序打印,一段时间后,路人甲觉得这个工作非常无聊,于是决定改变打印的顺序。
首先他要求每个部门对送过来的文件都要标上重要度急别p(1<=p<=9),接着他再给送过来的n个文件按先后顺序从0开始标上号码,然后,他按标号从小到大处理打印:
对于当前的第一个文件a,若后面存在一个未打印的文件b,b文件的重要度大于a文件,则将a转移至最后,否则打印文件a。
打印每个文件需1分钟,转移文件可认为是瞬间完成的。
路人甲还充分发挥自己的专业特长,编写了一个程序,只要第一行输入文件数n和需要查询的文件标号x,第二行依次输入n个文件的重要度级别。
就可输出打印x号文件时的时间。
【样例输入】
60
119111
【样例输出】
5
算法:
循环队列模拟。
如果队首元素的优先级不是最高,把队首元素放到最后,其它元素前移,否则,队首元素出队。
programtest6;
constmax=100+10;
typeprinter=record
flag:
longint;
priority:
longint;
end;
varans,i,k,j,n,m:
longint;
printers:
array[0..max]ofprinter;
b:
boolean;temp:
printer;
begin
readln(n,m);
forj:
=0ton-1do
withprinters[j]do
begin
read(priority);
ifj=mthenflag:
=1else①;
end;
ans:
=0;
whiletruedo
begin
b:
=false;
forj:
=1ton-1do
ifprinters[j].priority>printers[0].prioritythen
begin
temp:
=printers[0];
fork:
=1ton-1do②;
printers[n-1]:
=temp;
b:
=true;
③
end;
ifnotbthen
begin
inc(ans);
ifprinters[0].flag=1then
begin
④;
break;
end
else
begin
forj:
=1ton-1do
printers[j-1]:
=printers[j];
⑤ ;
end;
end;
end;
end.
2.奖学金
【问题描述】
某小学最近得到了一笔赞助,打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金。
期末,每个学生都有3门课的成绩:
语文、数学、英语。
先按总分从高到低排序,如果两个同学总分相同,再按语文成绩从高到低排序。
任务:
先根据输入的3门课的成绩计算总分,然后按上述规则排序,最后按排名顺序输出前5名学生的学号和总分。
注意,在前5名同学中,每个人的奖学金都不相同,因此,你必须严格按上述规则排序。
例如,在某个正确答案中,如果前两行的输出数据(每行输出两个数:
学号、总分)是:
7279
5279
这两行数据的含义是:
总分最高的两个同学的学号依次是7号、5号。
这两名同学的总分都是279(总分等于输入的语文、数学、英语三科成绩之和),但学号为7的学生语文成绩更高一些。
如果你的前两名的输出数据是:
5279
7279
则按输出错误处理,不能得分。
【输入】
输入包含n+1行:
第1行为一个正整数n,表示该校参加评选的学生人数。
第2到n+1行,每行有3个用空格隔开的数字,每个数字都在0到100之间。
第j行的3个数字依次表示学号为j-1的学生的语文、数学、英语的成绩。
每个学生的学号按照输入顺序编号为1~n(恰好是输入数据的行号减1)。
所给的数据保证总分相同的情况下,语文成绩一定不同。
【输出】
输出共有5行,每行是两个用空格隔开的正整数,依次表示前5名学生的学号和总分。
【样例输入】
8
808989
899778
906780
876691
818988
889977
678964
788998
【样例输出】
8265
2264
6264
5258
1258
【限制】
100%的数据满足:
6<=n<=300
programtest7;
type
lei=record
sum,num,yuwen,shuxue,yingyu:
integer;
end;
var
st:
array[1..500]oflei;
temp:
lei;
i,j,n:
integer;
begin
readln(n);
fori:
=1tondo
with①do
begin
num:
=i;
readln(yuwen,shuxue,yingyu);
②;
end;
fori:
=1to5do
forj:
=③do
begin
ifst[j].sum>st[i].sumthen
begin
temp:
=st[j];st[j]:
=st[i];st[i]:
=temp;
end
elseif④then
begin
temp:
=st[j];st[j]:
=st[i];st[i]:
=temp;
end
end;
fori:
=1to5do
writeln(⑤,'',st[i].sum);
end.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 第十二 绍兴市 少儿 信息学 初赛 试题 PASCAL
![提示](https://static.bdocx.com/images/bang_tan.gif)