- 1、本文档共10页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第十二届绍兴市少儿信息学竞赛
初 赛 试 题
(小学组 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 (55)
B)
(5=4) and (77)
C)
not (false)
D)
(54) or (5=5)
4.在Free Pascal中运行某一程序时,返回如下图所示的错误信息,这是由于( )
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)
Internet Explorer
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. program test1;
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.
输入:1 2 5
输出:______________
2. program test2;
var
n,m:longint;
Begin
Readln(n,m);
n:=n mod 7;
m:=m mod 5;
If nm 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;
while temp0 do
begin
j:=temp mod 10;
temp:=temp div 10;
if j=x then inc(count);
end;
end;
writeln(count);
end.
输入:100 5
输出:____________
4.program test4;
var
i,j,k,n:integer;
a:array[1..100] of boolean;
begin
read
文档评论(0)