网站大量收购闲置独家精品文档,联系QQ:2885784924

第十二届绍兴市少儿信息学奥赛--初赛试题(PASCAL).docVIP

第十二届绍兴市少儿信息学奥赛--初赛试题(PASCAL).doc

  1. 1、本文档共10页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 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)

smashing + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档