第十六届绍兴市少儿信息学竞赛初赛试题.docx
- 文档编号:28208187
- 上传时间:2023-07-09
- 格式:DOCX
- 页数:13
- 大小:47.66KB
第十六届绍兴市少儿信息学竞赛初赛试题.docx
《第十六届绍兴市少儿信息学竞赛初赛试题.docx》由会员分享,可在线阅读,更多相关《第十六届绍兴市少儿信息学竞赛初赛试题.docx(13页珍藏版)》请在冰豆网上搜索。
第十六届绍兴市少儿信息学竞赛初赛试题
2018第十六届绍兴市少儿信息学竞赛初赛试题
第十六届绍兴市少儿信息学竞赛
初赛试题
(小学组PASCAL语言二小时完成)
●●全部试题答案都要求写在答卷纸上,写在试卷上一律无效●●
一、选择一个正确答案代码(A/B/C/D),填入每題的括号内(每题2分,每题只有一个正确答案,多选无分。
共20分)
1、人工智能英文缩写为()。
它是研究、开发用于模拟、延伸和扩展人的智能的理论、方法、技术及应用系统的一门新的技术科学。
他是计算机科学的一个分支,它企图了解智能的实质,并生尸出一种新的能以人类智能相似的方式做出反应的智能机器,该领域的研究包括机器人、语言识别、图像识别、自然语言处理和专家系统等。
A.ATB.ALBBC.AMD.AI
2、下列存储器按存取速度由快至慢排列,正确的是()
A.硬盘〉RAM〉高速缓存〉U盘
B.高速缓存〉RAM〉硬盘〉U盘
C.髙速缓存〉硬盘〉RAM〉U盘
D.U盘〉硬盘〉RAM〉高速缓存
3、下列属于输入设备的是()
A.显示器B.触摸屏C.音响D.打印机
4、小写字母“a”的ASCII码为97,小写字母i的ASCII码的值是()
A.72B.73C.105D.106
5、IP地址是每个上网的电脑必须的,下列IP地址中合法的是()
A.225.225.225.225B.200.256.192.8C.192.168.1.1.2D.0.0.0
6、下列描述计算机病毒的特性中,()不是正确的。
A、潜伏性B、传染性C、智能性D、危害性
7、己知一个栈的入栈顺序是1,2,3,n,其输出序列为P1,P2,P3,……,pn,如果P1是n,则Pi是()
A、不确定B、n-i+1C.n-1D.i
8、若设二叉树的深度为h,除第层外,其它各层(1〜h-1)的结点数都达到最大个数,第h层所有的结点都连续集中在最左边,这就是完全二叉树。
如图1所示,共有10个结点,5个叶子结点,深度为4,1~3层的结点数都达到了最大个数。
那么如果完全二叉树共计39个点,那么他的叶子结点的数量是()。
A.20B.21C.19D.23
9、有一下程序:
vari,x1,x2,x3,x4,s:
integer;
begin
fori:
=1800to2000do
begin
x4:
=imod10;
x3:
=idiv10mod10;
x2:
=idiv100mod10;
x1:
=idiv1000mod10;
图1
if(x1=x4)and(x2=x3)thens:
=s+1;
end;
writeln(s);
end.
程序运行结果是():
A.1B.2C.3D.10
10、哥德巴赫猜想是一个数学界非常有名的猜想,他的意思是任何大于等于4的偶数都可以表示成为两个质数之和,例如5=2+3,8=3+5,4=2+2。
那么把112分解成两个质数之和有()种方法。
A.14B.16C.18D.20
二、根据要求回答问題:
(2+3+2+3=10分)
1、在数学王国中,数字6和8称吉祥数字,而其他数字都是不怎么吉祥。
如果一个整数是吉祥数字,当且仅当它的每一位只能包含吉祥数字。
现在让你求出第K个吉祥数字。
例如:
前八个吉祥数字为:
6,8,66,68,86,88,666,668,第10个吉祥数字为。
第29个吉祥数字为。
2、魔术是很神奇的!
瞧,泽泽同学最近又迷恋上了一款新的魔术。
魔术刚开始前,魔术纸上的4个点形成一个完美的正方形(见图2)。
经过1次魔法后,在每两个相邻点中心会产生一个新点,并且在每个正方形的正中心也会产生一个新点。
经过第1次的魔法,会产生5个新点,共有9个点(见图3)。
再经过一次魔法(总共2次魔法),此时共有25个点(见图4)。
现在请你帮助算出,经过3次魔法一共有个点,经过7次魔法一共有个点。
三、阅读程序并写出运行结果(4+4+8+8+4+4+8=40分)
1.Programsx2018p1;
varn,i,a,b,c,d:
longint;
begin
readln(a,b,c,d);
ifa>bthena:
=adiv10;
ifd>cthen
writeln(‘TimeLimitExceeded’)
else
if(a
writeln(‘WrongAnswer’)
else
if(a=b)thenwriteln(‘Accepted’);
end.
输入1:
1000100765155
输出1:
输入2:
203789
输出2:
2、Programsx2018p2:
vari,j,n,s,x:
longint;
f:
array[1..100]oflongint;
begin
readln(n);
fori:
=1tondo
begin
read(x);
f[x]:
=f[x]+1;
forj:
=x+1to100do
iff[j]>0thens:
=s+1;
end;
writeln(s);
end.
输入:
6
121914171616
输出:
3、Programsx2018p3;
varf:
array[0..10000]ofboolean;
n,k,i,j,s:
longint;
begin
readln(n,k);
fori:
=2tondo
iff[i]=falsethen
forj:
=1tondivido
iff[i*j]=falsethen
begin
s:
=s+1;
f[i*j]:
=true;
ifs=kthen
begin
writeln(i*j);
halt;
end;
end;
end.
输入:
4031
输出:
4.Programsx2018p4;
varn,m,i,j:
longint;
a:
array[1..50,1..50]ofchar;
b:
array[1..5]oflongint;
begin
readln(n,m);
n:
=n*5+1;
m:
=m*5+1l;
fori:
=1tondo
begin
forj:
=1tomdo
read(a[i,j]);
readln;
end;
fori:
=1tondo
forj:
=1tomdo
if(a[i,j]<>’#’)and(imod5=2)and(jmod5=2)
thenbegin
ifa[i,j]=’.’thenb[1]:
=b[1]+1
elseif(a[i,j]=’*’)and(a[i+1,j]=’.’)theninc(b[2])
elseif(a[i+1,j]=’*’)and(a[i+2,j]=’.’)theninc(b[3])
elseif(a[i+2,j]=’*’)and(a[i+3,j]=’.’)theninc(b[4])
elseif(a[i+3,j]=’*’)theninc(b[5]);
end;
fori:
=1to5dowrite(b[i],’’);
end.
输入1:
12
###########
#....#****#
#....#****#
#....#****#
#....#****#
###########
输出1:
输入2:
24
#####################
#****#****#****#****#
#****#....#****#****#
#....#....#****#****#
#....#....#....#****#
#####################
#****#****#****#....#
#****#****#....#....#
#....#....#....#....#
#....#....#....#....#
#####################
输出2:
5.Programsx2018p6;
varn:
longint;
functions(n,t:
longint):
longint;
begin
ifn=0thenexit
(1)
elseift=0thens:
=s(n-l,t+1)
elses:
=s(n-l,t+l)+s(n,t-1);
end;
begin
readln(n);
writeln(s(n,0));
end.
输入:
4
输出:
四、完善程序(根据问題要求和已有程序,在程序空格处填入适当的语句或符号,使程序完整。
本题每3分,共30分)
1.完全数
【问题描述】
在泽泽参加的“奇思妙想学数学”的思维拓展兴趣课中,老师抛出了一些有趣好玩的数字游戏,取名为“完全数”,所谓完全数是真约数之和等于它本身的数。
例如28的约数是1,2,4,7,14,并且1+2+4+7+14=28,所以28是完全数。
这个游戏对数字特别感兴趣的泽泽来说是“小意思”,因为他认为“完全数”是最美的数字。
泽泽不屑于判断单个数是否是完全数,他想找出一段连续数据里面的所有完全数,如求x〜y(2<=x<=y<=10000)中的完全数。
但是他又感觉每个完全数进行正向输出又没有反向输出好看,所以他想把找到的完全数反向输出。
当然如果这段数据里面没有完全数就应该输出no。
【输入格式】
一行:
包括两个数,xy代表求x〜y之间的完全数。
【输出格式】
输出可能有多行,每行一个反向输出的完全数。
注:
如果没有完全数,则还应该输出no。
【输入样例1】
229
【输出样例1】
6
82
实现上述功能程序如下,请在划线处填入合适代码。
【程序清单】
Programsx2018p7;
varx,y,i,t,w,xx,s,j,sum,p:
longint;
begin
readln(x,y);
fori:
=①toydo
begin
s:
=1;
forj:
=2totrunc(sqrt(i))do//求出约数的之和
if②then
begin
ifj*j<>ithen
③
elses:
=s+j;
end;
ifs=ithen//如果找到话就输出
begin
w:
=w+l;
whiles>0do
begin
④;
s:
=sdiv10;
end;
writeln;
end;
end;
ifw=0then⑤;
end.
2.罗马数字
【问题描述】
聪明的泽泽经过独立的思考成功地找到了x〜y中所有的完全数,他在教室里兴奋得“一蹦三尺高”,还不停地攥紧拳头,髙呼“耶。
。
。
。
”。
这时老师为了让他能够乘胜追击,锦上添花,再次抛出了另一个数学游戏,叫做“罗马数字游戏”。
老师先给大家描述这个游戏,游戏中的数字1,2,3,4,5,6,7,8,9分别写为’I’,’II’,’III’,’IV’,’V’,’VI’,’VII’,’VIII’,’IX’;将数字10,20,30,40,50,60,70,80,90分别写为’X’,’XX’,’XXX’,’XU’,’L’,’LX’,’LXX’,’LXXX’,’XC’。
那么其余的数字怎么用罗马数字表示呢?
另外老师给了大家一点小提示:
任何小于100的数字都可以通过分别转换几十和几个后,结果可以用罗马数字组合在一起。
例如,数字48转换为40加8,因为40可用XL表示,8可用VIII表示,所以48可以组合成XLVIII。
本次游戏将会给你一个用罗马数字表示的数。
请同学们重新排列这个字符,目的是找到用罗马数字表示的尽可能小的数字。
【输入格式】
输入一个整数B(1≤B<100),用罗马数字表示的整数。
【输出格式】
请根据输入的这个罗马数字,重新排列,以便找到最小的用罗马数字表示的整数。
【输入祥例1】
VII
【输出样例1】
VII
【输入样例2】
VI
【输出祥例2】
IV
为实现上述功能请在划线处填上合适代码。
【程序清单】
Programsx2018p8;
vari,j,k:
longint;t:
char;
a:
array[l..99]ofstring;
x,y:
string;
proceduresw(⑥);
vari,j:
longint;
begin
fori:
=⑦do
forj:
=i+ltolength(x)do
ifx[i]>x[j]then
begin
t:
=x[i];x[i]:
=x[j];x[j]:
=t;
end;
end;
begin
a[l]:
='I';
a[2]:
='II';
a[3]:
='III';
a[4]:
='IV';
a[5]:
='V';
a[6]:
='VI';
a[7]:
='VII';
a[8]:
='VIII';
a[9]:
='IX';
a[10]:
='X';
a[20]:
='XX';
a[30]:
='XXX';
a[40]:
='XL';
a[50]:
='L';
a[60]:
='LX';
a[70]:
='LXX';
a[80]:
='LXXX';
a[90]:
='XC';
fork:
=lto99do
begin
y:
=a[K];
ifimod10<>0then
⑧;
readln(x);
sw(x);
fork:
=1to99do
begin
y:
=a[k];
ifx=ythen
begin
⑩;
exit
end;
end;
end.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 第十六 绍兴市 少儿 信息学 竞赛 初赛 试题