长沙市小学生计算机奥林匹克竞赛初赛试题.docx
- 文档编号:7450505
- 上传时间:2023-01-24
- 格式:DOCX
- 页数:14
- 大小:22.19KB
长沙市小学生计算机奥林匹克竞赛初赛试题.docx
《长沙市小学生计算机奥林匹克竞赛初赛试题.docx》由会员分享,可在线阅读,更多相关《长沙市小学生计算机奥林匹克竞赛初赛试题.docx(14页珍藏版)》请在冰豆网上搜索。
长沙市小学生计算机奥林匹克竞赛初赛试题
2007年长沙市小学生计算机奥林匹克竞赛初赛试题
2007年长沙市小学生计算机奥林匹克竞赛初赛试题
(语言:
TURBOPASCAL时间:
120分钟)
参赛证号 姓名 学校 总分
一、单项选择题(每小题2分,共40分)
1、世界上第一台电子计算机于1946年诞生于美国,它是出于( )的需要。
A、军事 B、工业 C、农业 D、教学
2、下列属于计算机存储器的是( )
A、资源管理器 B、CPU C、打印机 D、硬盘
3、国标码的一个汉字在计算机中占用( )个字节。
A、1 B、2 C、4 D、8
4、在windows窗口操作时,能使窗口大小恢复原状的操作是( )
A、单击“最小化”按钮 B、单击“关闭”按钮
C、双击窗口标题栏 D、单击“最大化”按钮
5、下列有关电脑病毒的描述中,错误的是( )
A、电脑病毒实质是人设计的计算机程序
B、上网下载信息可能会感染电脑病毒
C、电脑病毒发作时会影响电脑的正常工作
D、电脑病毒是宇宙射线对电脑辐射产生的结果
6、下列internet的各功能中,错误的是( )
A、程序编译 B、邮件传送 C、远程教学 D、信息查询
7、我们将pascal程序存盘时,不可能保存到计算机的( )中。
A、内存 B、硬盘 C、软盘 D、光盘
8、(2004)10+(11)2的结果是( )。
A、(2727)8 B、(FA7)16 C、(2015)10 D、(11111010111)2
9、在Pascal语言环境下,用快捷键组合ALT+F5可以( )
A、放大窗口 B、编译执行 C、查看输出 D、保存程序
10、字符类型的标准定义符是( )
A、string B、chr C、char D、str
11、下列变量名当中不正确的是( )
A、boy B、student C、w123 D、6A
12、在var下,用A:
array[10..15]ofreal定义的A数组包含( )个元素。
A、10 B、15 C、6 D、5
13、表达式round(7.8)*5div3–ord(odd(trunk(25.6)))的值是( )
A、13 B、12 C、11 D、10
14、判断a和b都不等于0的条件表达式正确的是( )
A、not((a=0)or(b=0)) B、a<>0andb<>0
C、not((a=0)and(b=0)) D、(a<>0)or(b<>0)
15、产生一个随机整数赋给R,要求100≤R≤200,正确的语句是( )
A、R:
=random(200)+100 B、R:
=random(101)+100
C、R:
=random(99)+100 D、R:
=random(100)+100
16、在字符串’ababcdefacbefdabccbad’中出现最多的字母出现了( )次。
A、2 B、4 C、5 D、6
17、把编号为1到13的纸牌唱针摆成一圈,然后从1号纸牌开始顺时针数1,2,3,……,一圈又一圈,当数到某个数n时,对应的纸牌编号为( )
A、nmod13 B、(n-1)mod13+1 C、nmod13+1 D、(n+1)mod13
18、整数A的值为12345,则Adiv10mod1000的结果是( )
A、5 B、345 C、34 D、234
19、若s=’#ABCDABCD#’,则pos(‘AB’,insert(‘AC’,copy(s,4,6),3))的值是( )
A、5 B、3 C、2 D、6
20、数据3.14、’A’、’abc’、0、maxint当中有( )个不能作为for循环的初、终值。
A、1 B、2 C、3 D、4
二、问题解答(每小题5分,共10分)
1、把4封信投入到3个邮筒中,共有多少种不同的投法?
答:
共有 种不同的投法。
2、猪八戒有一大堆西瓜,每天吃掉一半,还多吃两个,8天就全部吃完。
问:
当初猪八戒共有多少个西瓜?
答:
当初猪八戒共有 个西瓜。
三、阅读程序,写出程序的结果(每小题5分,共20分)
①、var a,b,c,d,e:
integer;
begin
a:
=79;b:
=46;c:
=57;d:
=10;e:
=1;
if (a>c) and(b>c) then
d:
=d+e
else ifd+10 d: =e+10 elsed: =e+a; writeln(‘d=’,d); end. 输出: ______________ ②、var i,k: integer; begin k: =1;i: =1; while i<2008 do begin k: =-k; i: =i+1; end; writeln(k*i); end. 输出: ______________ ③、var i,j,t: integer; a: array[0..10] of integer; begin for i: =1 to 10 do begin read(a[i]);a[i]: =a[i]-a[i-1]; end; for i: =1 to 9 do for j: =i+1 to 10 do if a[i]>a[j] then begin t: =a[i];a[i]: =a[j];a[j]: =t end; for i: =1 to 10 do write(a[i]: 3); writeln; end. 输入: 8 9 10 3 2 4 6 7 5 1 输出: ______________ ④var i: integer; s: string; begin s: =’you-are-boys-and-girls’; for i: =5 to 12 do if s[i]=’-’ then s[i-1]: =’e’; for i: =10 downto 1 do if s[i]=’y’ then begin s[i]: =’Y’; s: =copy(s,1,8)+’teachers’; end; writeln(s); end. 输出: ______________ 四、完善程序 1、孪生质数: 如果两个质数的差值为2,则称之为“孪生质数”。 例如: 3和5、5和7、11和13等等。 请找出15对孪生质数,每行输出一对,两个质数之间空一格。 【程序清单】 program ex1; var k,n: integer; function pan(a: integer): boolean; var k: integer; begin pan: = ; for k: =3 to trunk(sqrt(a)) do if then exit; pan: =true; end; begin n: =0;k: =3; repeat if pan(k) and thenbegin n: = ; writeln( ); end; k: =k+2; until n=15; end. 2、字串接龙: 输入整数n和m(1≤n,m≤10),再输入n个字符串(每个串长度≤20),规定: 如果串X的后m位与串Y的前m位相同,就可将串Y接在串X的后面,并使连接处相同的部分重叠。 对于每个串X,能接在它后面的串Y只有一个。 现请你将n个串连接成一串。 例如: 输入: n,m=3 2 输出: xyzabcdef abcd xyzab cdef 【程序清单】 program ex2; var a: array[1..10] of string[20]; b: array[1..10] of 0..1; m,n,i,j: integer; ans,s1,s2: string; begin write(‘n,m=’);readln(n,m); for i: = to n do if b[i]=0 then begin s1: =copy(a[i],1,m); s2: =copy(ans,length(ans)-m+1,m); if then begin j: =j+1;delete(a[i],1,m); b[i]: =1;ans: =ans+a[i]; end; s1: = ; s2: =copy(ans,1,m); if s1=s2 then begin j: =j+1;delete(ans,1,m); b[i]: =1; ans: = ; end; end; until ; writeln(ans); end. 2006年长沙市小学生计算机奥林匹克竞赛初赛试题-2007年6月27日 2006年长沙市小学生计算机奥林匹克竞赛初赛试题 (语言: TURBOPASCAL时间: 120分钟) 参赛证号 姓名 学校 总分 一、单项选择题(每小题2分,共40分) 1、下列不属于计算机硬件的是( ) A、扫描仪 B、操作系统 C、CPU D、软盘 2、在Windows资源管理器窗口中,如果文件夹没有展开,文件夹图标前会有( ) A、+ B、/ C、* D、- 3、游戏软件属于计算机的( ) A、系统软件 B、应用软件 C、高级软件 D、低级软件 4、连接在Internet的任何一台计算机,都有自己的( ) A、网页 B、域名 C、IP地址 D、Email地址 5、在计算机存储容量的表示中,6MB相当于( ) A、6000KB B、6144B C、6144KB D、6000B 6、一个INTEGER类型的整数在内存中占()个字节。 A、1 B、4 C、2 D、6 7、在Pascal语言环境下,快捷键组合CTRL+F9的功能是( ) A、保存程序 B、编译执行 C、关闭窗口 D、查看结果 8、下列数据作为程序中的常量,错误的是( ) A、3.1415926 B、MAXINT C、’JSJJS’ D、1/2 9、每一个Pascal程序中必须包含( ) A、变量说明,语句 B、语句 C、类型定义、变量说明、语句 D、常量说明,变量说明,语句 10、十进制数与二进制数混合的等式: 100+10=1110,其中三个数依次是( ) A、二进制、十进制、二进制 B、十进制、二进制、十进制 C、二进制、十进制、十进制 D、十进制、二进制、二进制 11、下列表达式中,错误的是( )。 A、-9div(-10) B、ABS(a-2)/5 C、’天才’=’99%的汗水’+’1%的灵感’ D、a+b>c and b+c>a 12、表达式round(5.8)div3*5mod3-ord(trunc(5.8)<6)的值是( ) A、0 B、1 C、-1 D、2 13、执行X: =random(100)*random(10)-500,X取值的范围是( ) A、-500<=X<=1000 B、-500<=X<=500 C、-500<=X<=391 D、-499<=X<=391 14、X为实数,执行X: =-1;writeln(X)之后,屏幕显示( ) A、-1 B、1.0000000000E-1 C、-1.0000000000E+00 D、-1.000000000 15、下列能够把整数6转换为字符’6’的表达式是( ) A、CHR(6-ORD(0)) B、CHR(6+ORD(0)) C、CHR(6)-ORD(’0’) D、CHR(6+ORD(’0’)) 16、S=’###ABABCDAB###’,X=POS(‘A’,COPY(S,5,9)),则X的值是( ) A、3 B、2 C、4 D、6 17、在Var下说明数组变量,下列说明正确的是( ) A、a: Array[100..1] of real; B、a: Array[1.5..10.5] of real; C、a: Array[’B’..’a’] of real; D、a: Array[1..SQR(5)] of real; 18、x初值为-1,下列语句描述: 若ch是大写字母,则x置1,否则x清0.有错的是( ) A、case ch of B、if ch>’A’ then ’A’..’Z’: x: =1; if ch<’Z’ then end; x: =1 else x: =0; C、x: =ord((ch>=’A’)and(ch<=’Z’)); D、if (ch>=’A’)and(ch<=’Z’) Thenx: =1elsex: =0; 19、执行下列程序段,循环次数是( ); x: =3;y: =5; FOR i: =x TO y DO BEGIN x: =1;y: =6; END; A、3次 B、7次 C、5次 D、6次 20、X=3.14E4,执行语句STR(X: 0: 2,S)之后,S的值是( ) A、’3.14’ B、’0’ C、’3140.00’ D、’31400.00’ 二、问题解答(每小题5分,共10分) 1、星光学校来了一位新老师,三个同学猜测新老师教什么科目,步美说: “不是教语文,也不是教数学”;元太说: “不是教数学,一定是教英语”;光彦说: “不是教英语,一定是教数学”。 柯南去证实后说: “你们三人中有一人全猜对了,一人全猜错了,还有一人只猜对了一半。 ”问: 新老师究竟教什么科目? 答: 新老师所教的科目是 。 2、有个楼梯共10级,上楼时每步可以跨1级、2级或者3级。 问: 共有多少种上楼梯的方法? 答: 一共有 种上楼梯的方法。 三、阅读程序,写出程序的结果(每小题5分,共20分) ①、var a,b,c: integer; function js(a,b: integer;ch: char): integer; begin ifch=’-’ then js: =a-b else js: =a*b end; begin a: =210;b: =3;c: =15; writeln(js(a,js(b,c,’*’),’-‘)); end. 结果: ______ _____ ②、var p: array[’A’..’Z’] of integer; s: string; ch: char; i,j: integer; begin s: =’YAZABCABYXXZZ#’; i: =1; whiles[i]<>’# do begin p[s[i]]: =p[s[i]]+1;i: =i+1 end; s: =’’; for ch: =’Z’ downto ’A’ do for j: =1 to p[ch] do s: =s+ch; writeln(s); 结果: __ __ ③、var n,s,t,k,I: integer; begin n: =99;s: =0;t: =0;k: =1; for i: =1 to n do begin t: =t+k*i; s: =s+t; k: =-k; end; writlen(’s=’,s); end. 结果: ___ ___________ ④var a: array[1..10,1..10] of integer; n,c,x,y,t: integer; begin n: =5;t: =0; for c: =-(n-1) to n-1 do begin if c<=0 then begin x: =1;y: =x-c end else begin y: =1;x: =y+c end; while (x<=n) and (y<=n) do begin t: =t+1;a[x,y]: =t; x: =x+1;y: =y+1 end; end; for x: =1 to n do begin for y: =1 to n do write(a[x,y]: 3); writeln; end; end. 结果: ______________ 四、完善程序 1、五角星数: 如果一个五位数等于它的每一位数字的5次方之和,则称之为“五角星数”。 如: 54748=55+45+7
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 长沙市 小学生 计算机 奥林匹克 竞赛 初赛 试题