小学信息技术奥赛试题Word下载.docx
《小学信息技术奥赛试题Word下载.docx》由会员分享,可在线阅读,更多相关《小学信息技术奥赛试题Word下载.docx(8页珍藏版)》请在冰豆网上搜索。
array[0..10]ofinteger;
定义了数组A,则A数组需要的内存空间为()。
A、22Byte
B、20KBC、22KBD、20Bit
8、中央处理器每执行一个(),就可以完成一次基本运算或判断。
A、语句B、指令C、程序D、软件
9、表达式Trunc(sqrt(18236div100mod100))的值为()。
A、9B、6C、82D、0
10、内存储器的每一个存储单元,都对应一个唯一的序号,作为它的()。
A、内容B、指令C、程序D、地址
11、描述网络数据传输速率的单位是BPS,其含义是()。
A、每秒传输数据多少公里B、每秒传输数据多少万公里
C、每秒传输多少二进制位D、每秒传输多少个数据
12、10)用画笔(Paintbrush)绘制图形并存储在文件中,该图形文件的文件名缺省的后缀为()。
A).jpgB).bmpC).gifD).tiff
13、下面布尔表达式的值为true的是()。
A、chr(ord(‘b’)+1)>
’b’B、(‘123’>
’23’)and(123>
23)
C、’2’>
’1000’D、not(‘A’<
>
’a’)
14、产生10-30之间(包括10、30)的随机整数表达式为()。
A、random(10)+20B、random(20)+10C、random(30)+10Drandom(21)+10
15、下列Pascal表达式当中正确的是()。
A、(x+y)(x-y)B、(b>
c)*(a+2)C、m/2+2nD、(((b+1)*2+1)*2+1)*2+1
16、执行i:
=0;
whilei<
2009dobeginn:
=n+ord(odd(i));
i:
=i+1end之后,n值为()。
A、1004B、2009C、1005D、2008
17、执行语句writeln(‘12*3=’,12*3)的结果为()。
A、36=36B、12*3=36C、‘12*3=’36D、‘12*3=’,12*3
18、在完成编程后,为了有效检测程序的正确性,应该()。
A、随便选取一个数据进行测试
B、取一切可能的数据进行测试
C、选择最可能发现错误的数据进行测试
D、自己不测试,交给老师测试
19、对二给数组a:
array[1..5,1..7]ofingeger,现在要存入数据,若按行顺序存储,其中有一个数在[3,5]的位置,而若改为按列顺序存储,则这个数应该位于()。
A、[4,4]B、[5,3]C、[2,5]D、[3,5]
20、下面描述错误的是()。
A、双核处理器是指在一个处理器上集成两个运算核心,从而提高运行速度和计算能力。
B、计算机在工作时突然断电,保存在内存ROM中的信息会全部丢失。
C、计算机病毒都是人为制造出来的,而不是计算机硬件故障的结果。
D、“微软黑屏事件”与计算机知识产权问题有关。
二、
问答题(每小题5分,第一小题第一空2分,第一空3分,共10分)
1
2、3
4、5、6
7、8、9、10
……………………
问:
如上三角形数阵中第11行第6个数是多少?
请完善计算机第n行第i个数的表达式。
答:
第11行第6个数是,第n行第i个数的表达式为:
*n/2+i
2、有一种电子钟,每到正点响一次铃,每过九分钟亮一次灯。
问:
如果中午12点整它既响铃又亮灯,那么下一次既响铃又亮灯是什么时间?
。
三、
读程序,写结果(每小题4分,共20分)
(1)
varx,y:
integer;
begin
readln(x,y);
ifx-10>
ythenwriteln(xdivy)elsewriteln(xmody);
end.
输入:
3426
输出:
(2)
vara:
array[0..8]ofinteger;
i:
Begin
Fori:
=1to8doa[i]:
=I;
=1to4dobegin
A[0]:
=a[i];
a[i]:
=a[9-i];
a[9-i]:
=a[0];
End;
=1to8dowrite(a[i]:
2);
Writeln;
End.
5、programprogam1;
varu:
array[0..3]ofinteger;
a,b,c,x,y,z:
integer;
read(u[0],u[1],u[2],u[3]);
a:
=u[0]+u[1]+u[2]+u[3]-5;
b:
=u[0]*(u[1]-u[2]divu[3]+8);
c:
=u[0]*u[1]divu[2]*u[3];
x:
=(a+b+2)*3-u[(c+3)mod4];
y:
=(c*100-13)divadiv(u[bmod3]*5);
if((x+y)mod2=0)thenz:
=(a+b+c+x+y)div2;
z:
=(a+b+c–x-y)*2;
writeln(x+y-z);
end.
输入:
2574输出:
(4)vara,b:
Procedurett(x:
vary:
integer);
X:
=x+y;
Y:
=x-y;
A:
=7;
b:
=8;
tt(a,b);
Writeln(a:
3,b:
3);
tt(a-b,b);
writeln(a:
(3)
vars,s1,s2:
string;
I,j,len:
Readln(s);
len:
=length(s);
s1:
=’’;
s2:
j:
fori:
=1tolendobegin
If(s[i]>
=’0’)and(s[i]<
=’9’)tehn
begin
j:
=j+1;
insert(s[i],s1,j);
end
elseIf(s[i]>
=’a’)and(s[i]<
=’z’)or
(s[i]>
=’A’)and(s[i]<
=’Z’)
Thens2:
=s2+s[i];
end;
Writeln(s1,’’,s2);
End.
Is4Today18?
四、
完善程序(每空3分,共30分)
1、统计子序列数
输入一个互不相同的正整数序列,求出该序列中所有递增和递减子序列的数目。
例如:
整数序列(7,4,6,9,8,3,5,2,1),可以分为(7,4),(4,6,9),(9,8,3),(3,5),(5,2,1)这些子序列,即:
子序列的数目为5。
(注:
上例整数序列中的4,9,3,5被称之为“转折元素”)
Varn,I,s:
d:
array[1..100]ofinteger;
readln(n);
=1tondoread();
s:
=;
=2todo
if(d[i]-d[i-1])*>
0then
______________
writeln(s);
2,“振荡”冒泡排序:
将n个整数从小到大排序(n《1000》),下面的程序是对普通冒泡法排序的一种改进:
先从一端开始扫描,进行比较,然后改变下一趟扫描的方向,作同样的处理,使冒炮过程来回“振荡”进行,并逐步缩小范围,直到n个数都排好为止。
varn,i:
interger;
a:
;
procedureshakesort(x:
interger)
varI,h,t,k:
boolean;
h:
=1;
t:
=x;
repeat
;
=htodo
ifa[i]〉a[i+1]thenbegin
k:
=a[i];
a[i]:
=a[i+1];
a[i+1]:
=k
=false;
end;
t:
=t-1;
fori;
=t-1downtohdo
ifthenbegin
k:
a[i]:
=a[i+1];
a[i+1]:
=k;
h:
=h+1;
untilb;
randomize;
readln(n);
fori:
=1tondoa[i]:
=random(1000)+1;
=1tondowrite(a[i]:
4);
writeln
end。
一DCCBA
BABAD
CBCDD
ABCAB
二
(1)61、(n-1)
(2)下午3点(或15点)
三
(1)8
(2)87654321
(3)418IsToday
(4)77
70
四1、
(1)d[i]
(2)1(或s+1)
(3)n-1
(4)(d[i]-d[i+1])
(5)s:
=s+1(或inc(s))
2、
(1)array[1..1000]ofinteger
(2)b:
=true
(3)t-1
(4)a[i]>
a[i+1](或a[i+1]<
a[i])
(5)shakesort(n
感谢您的阅读,祝您生活愉快。