1、【
单选题
】
操作系统是对（ ）进行管理的系统软件。
[2分]
答案：
2、【
单选题
】
今年长沙市小学生计算机奥赛中使用的计算机语言仍是（ ）。
[2分]
、
Free Pascal
、
C++
、
Turbo Pascal
、
Turbo C
答案：
3、【
单选题
】
2008年中科院研制成功的“曙光5000”超级计算机，又刷新了我国计算机的最高运算速度，它每秒运算超过了（ ）。
[2分]
、
100亿次
、
1000亿次
、
100万亿次
、
1000万亿次
答案：
4、【
单选题
】
执行b:=10; for i:=0 to b do b:=b+1; 之后，变量i、b的值分别为 （ ）
[2分]
、
20，20
、
10，21
、
21，21
、
10，20
答案：
5、【
单选题
】
与二进制数100110101相等的十六进制数是（ ）
[2分]
答案：
6、【
单选题
】
根据条件判断的结果，来选择程序执行方向的程序结构称为（ ）
[2分]
、
顺序结构
、
分枝结构
、
树形结构
、
菜单结构
答案：
7、【
单选题
】
若Var A:Array[0..10] Of Integer; 定义了数组A，则A数组需要的这内存空间为（ ）。
[2分]
、
22Byte
、
20KB
、
22KB
、
20Bit
答案：
8、【
单选题
】
中央处理器每执行一个（ ），就可完成一次基本运算或判断。
[2分]
答案：
9、【
单选题
】
表达式Trunc(sqrt(18236 div 100 mod 100))的值为（ ）
[2分]
答案：
10、【
单选题
】
内存储器的每一个存储单元，都对应一个唯一的序号，作为它的（ ）。
[2分]
答案：
11、【
单选题
】
描述网络数据传输速率的单位是BPS，其含义是（ ）
[2分]
、
每秒传输数据多少公里
、
每秒传输数据多少万公里
、
每秒传输多少二进制位
、
每秒传输多少个数据
答案：
12、【
单选题
】
对10个按大小排列的数，用二分法查找其中某个数的位置，最多只需查找（ ）次。
[2分]
答案：
13、【
单选题
】
下列表达式的值为true的是（ ）
[2分]
、
chr(ord(‘B‘)+1>‘b’
、
(‘123’>‘23’) and (123>23)
、
’2’>’1000’
、
not(‘A’<>‘a’)
答案：
14、【
单选题
】
产生10～30之间(包括10、30)的随机整数表达式为（ ）
[2分]
、
random(10)+20
、
random(20)+10
、
random(30)+10
、
random(21)+10
答案：
15、【
单选题
】
下列pascal表达式当中正确的是（ ）
[2分]
、
(x+y)(x-y)
、
(b>c)*(a+2)
、
m/2+2n
、
(((b+1)*2+1)*2+1)*2+1
答案：
16、【
单选题
】
执行i:=0; while i<2009 do begin n:=n+ord(odd(i)); i:=i+1 end 之后，n值为（ ）
[2分]
、
1004
、
2009
、
1005
、
2008
答案：
17、【
单选题
】
执行语句writeln(‘12*3=’,12*3)的结果为（ ）
[2分]
、
36=36
、
12*3=36
、
‘12*3=’36
、
‘12*3=’,12*3
答案：
18、【
单选题
】
在完成编程后，为了有效检测程序的正确性，应该（ ）
[2分]
、
随便选取一个数据进行测试
、
取一切可能的数据进行测试
、
选择最可能发现错误的数据进行测试
、
自己不测试，交给老师测试
答案：
19、【
单选题
】
对二维数组A:Array[1..5,1..7] of integer，现在要存入数据，若按行顺序存储，其中有一个数在[3,5]的位置，而若改为按列顺序存储，则这个数应该位于（ ）
[2分]
、
[4,4]
、
[5,3]
、
[2,5]
、
[3,5]
答案：
20、【
单选题
】
下面描述错误的是（ ）
[2分]
、
双核处理器是指在一个处理器上集成两个运算核心，从而提高运行速度和计算能力
、
计算机在工作时突然停电，保存在内存ROM中的信息会全部丢失。
、
计算机病毒都是人为制造出来的，而不是计算机硬件故障的结果。
、
“微软黑屏事件”与计算机知识产权问题有关。
答案：
21、【
简答题】
1
2.3
4.5、6
7.8、9、10
………………
问：如上三角形数阵中第11行第6个数是多少？请完善计算第n行第i个数的表达式。
答：第11行第6个数是________ ，第n行第i个数的表达式为：__________*n/2+i
[5分]
解析：
61、（n-1）
22、【
简答题】
var x,y:integer;
begin
readln(x,y);
if x-10>y then writeln(x div y) else writeln(x mod y);
end.
输入：34 26
输出：__________________________________________
[5分]
解析：
8
23、【
简答题】
统计子序列数
输入一个互不相同的正整数序列，求出该序列中所有递增和递减子序列的数目。
例如：整数序列（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被称之为“转折元素”）
Var n,i,s:integer;
d:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do read(________);
s:=__________;
for i:=2 to_____________do
if (d[i]-d[i-1]*_______________________>0 then
___________________;
Writeln(s);
end.
[15分]
解析：
（1）d[i] （2）1 （3）n-1 （4）(d[i]-d[i+1]) （5）s:=s+1
24、【
简答题】
有一种电子钟，每到正点响一次铃，每过九分钟亮一次灯。问：如果中午12点整它既响铃又亮灯，那么下一次既响铃又亮灯是什么时间？
答：__________________________________
[5分]
解析：
下午3点
25、【
简答题】
“振荡”冒泡排序：
将n个整数从小到大排序（n≤1000），下面的程序是对普通冒泡法排序的一个改进：先从一端开始扫描，进行比较、交换，然后改变下一趟扫描的方向，作同样的处理，使冒泡过程来回“振荡”进行，并逐步缩小扫描范围，直到n个数都排好序为止。
Var n,i:integer;
a:_____________________________ ________________ ;
procedure shakesort(x:integer);
var i,h,t,k:integer;
b:Boolean;
begin
h:=1;t:=x;
repeat
____________________________________;
For i:=h to do
If a[i]>a[i+1] then begin
K:=a[i];a[i]:=a[i+1];a[i+1]:=k;
B:=false;
End;
T:=t-1;
For i:=t-1 downto h do
If __________________ then begin
K:=a[i];a[i]:=a[i+1];a[i+1]:=k;
B:=false;
End;
H:=h+1
Until b;
End;
Begin
Randomize;readln(n);
For i:=1 to n do a[i]:=random(1000)+1;
__________________________________;
For i:=1 to n do write(a[i]:4);
Writeln
End.
[15分]
解析：
（1）array[1..1000] of integer （2）b:=true （3）t-1 （4）a[i]>a[i+1] （5）shakesort(n)
26、【
简答题】
var a:array[0..8] of integer;
i:integer;
begin
for i:=1 to 8 do a[i]:=i;
for i:=1 to 4 do begin
a[0]:=a[i];a[i]:=a[9-i];a[9-i]:=a[0];
end;
for i:=1 to 8 do write(a[i]:2);
writeln;
end.
输出：_______________________________________________
[5分]
解析：
8 7 6 5 4 3 2 1
27、【
简答题】
var s,s1,s2:string;
i,j,len:integer;
Begin
Readln(s);
Len:=length(s);
Sl:=‘’;s2:=‘’;j:=0;
For i:=1 to len do begin
if (s[i]>=‘0’) and (s[i]<=‘9’) then begin
j:=j+1;insert(s[i],s1,j);
end else
if (s[i]>=‘a’) and (s[i]<=‘z’) or (s[i]>=‘A’) and (s[i]<=‘Z’)
then s2:=s2+s[i];
end;
writeln(s1,‘ ’,s2);
End.
输入：Is 4Today 18?
输出：________________________________________________
[5分]
解析：
418 IsToday
28、【
简答题】
var a,b:integer;
Procedure tt(x:integer;var y:integer);
Begin
x:=x+y;
y:=x-y;
end;
begin
a:=7;b:=8;
tt(a,b);
writeln(a:3,b:3);
tt(a-b,b);
writeln(a:3,b:3);
end.
输出：_______________________________________________
[5分]
解析：
7 7
7 0
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00