1、【
单选题
】
被称为“现代计算机之父”的是（ ）
[2分]
、
图灵
、
冯.诺依曼
、
比尔.盖茨
、
巴贝奇
答案：
2、【
单选题
】
计算机在工作时突然停电，则（ ）中的信息全部丢失，来电之后也不能恢复。
[2分]
、
ROM和RAM
、
ROM
、
RAM
、
硬盘
答案：
3、【
单选题
】
扫描仪、绘图仪、触摸屏、音箱当中有（ ）中具有输出功能。
[2分]
答案：
4、【
单选题
】
二进制数00100100与00010100的和是（ ）
[2分]
、
00101000
、
00111100
、
00110100
、
00111000
答案：
5、【
单选题
】
程序设计的三种基本结构是（ ）
[2分]
、
主程序、函数、过程
、
顺序、选择、循环
、
程序首部、说明总分、执行部分
、
for、while、repeat
答案：
6、【
单选题
】
在Windows中，“回收站”是（ ）的一块区域。
[2分]
答案：
7、【
单选题
】
在Turbo Pascal语言环境下，快捷组合键Ctrl+F的功能是（ ）
[2分]
、
下拉File子菜单
、
保存程序
、
关闭窗口
、
新开窗口
答案：
8、【
单选题
】
互联网上最常用的浏览器称为（ ）
[2分]
、
word
、
QQ
、
ＩＥ
、
TCP/IP
答案：
9、【
单选题
】
某计算机的硬盘有100G,等于（ ）字节。
[2分]
、
100
、
100×1000
、
100×1024×1024
、
100×1024×1024×1024
答案：
10、【
单选题
】
下列数据类型中不是构造类型的是（ ）
[2分]
、
集合类型
、
数组类型
、
文件类型
、
枚举类型
答案：
11、【
单选题
】
Integer类型的数据范围是（ ）
[2分]
、
-32767～32767
、
0～32767
、
-32768～32767
、
0～65535
答案：
12、【
单选题
】
下列表达式的值为FALSE的是（ ）
[2分]
、
Odd(True(7.49))
、
Round((Abs(-9.5)))<10
、
Not(‘9’<’100’)
、
Ord(Chr(Pred(8)))>=7
答案：
13、【
单选题
】
R：＝Random(100)+1产生一个随机数R，R的取值范围是（ ）
[2分]
、
0<=R<=100
、
0<R<=100
、
1<=R<100
、
1<=R<=101
答案：
14、【
单选题
】
判断变量ch的值是否为小写字母，下列表达式正确的是（ ）
[2分]
、
not ((ch<'a') or (ch>'z'))
、
’a’<=ch<=’z’
、
(ch>=a)and(ch<=z)
、
ch>=’a’ and ch<=’z’
答案：
15、【
单选题
】
设n是实型变量，下列表达式能使n四舍五入保留两位小的是（ ）
[2分]
、
Round(n*100)/100
、
Round(n/100)*100
、
Trunc(n*100)/100
、
Trunc(n/100)*100
答案：
16、【
单选题
】
设a、b、c都是整型变量，由键盘输入如下三行数据
1 2 3 回车
4 5 6 回车
7 8 9 回车
下列语句组中不能使a=1、b=7的是（ ）
[2分]
、
Readln(a,b,b,b,b,b,b,c,c);
、
Readln(a);Readln;Readln(b);
、
Readln(a,c,c,c);Read(b);
、
Readln(a,c,c);Readln(b,c,c);
答案：
17、【
单选题
】
设有变量说明VAR I,j:integer;x,y:Real;a,b:Boolean;c:Char;
下列赋值语句中正确的是（ ）
[2分]
、
i:=i+x;
、
b:=Ord(c>’c’);
、
a:=i=j;
、
i:=x mod y;
答案：
18、【
单选题
】
表达式Chr(Ord(‘A’)+4))的值是（ ）
[2分]
答案：
19、【
单选题
】
设a［1］＝1,a［2］＝2，a[3]=3,a[4]=4,a[5]=5,a[6]=6,且i=1,j=2,k=3,m=4
下列变量的值等于3的是（ ）
[2分]
、
a[i*j]
、
a[a[k-i]+3]
、
a[m div j]
、
a[a[j+k-2]]
答案：
20、【
简答题】
马路上有编号为1～9的9盏路灯，为了节约用电，现要关掉其中的三盏灯，但两端的灯不能关，也不能同时关掉相邻的灯。问：符合要求的关灯方法共有多少种？
答：共有____________________________种。
[5分]
解析：
10
21、【
简答题】
var I,j:integer;
begin
for I:=1 to 5 do begin
for j:=2 to I do
if I mod 2=0 then
write(‘A’)
else write(‘B’);
writeln;
end;
end.
输出：____________________________
[5分]
解析：
A
BB
AAA
BBBB
22、【
简答题】
最佳评分值：
输入10个评委对某项目的评分值（正整数），计算出他们评分的平均值，然后找出最佳评分值，即：最接近平均值的那些数（这些数可能大于、也可能小于平均值）。
Var I,n:integer;
b,s:real;
a:__________________________________________ ;
begin
for i:=1 to 10 do read(a[i]);
s:=______________;
for i:=2 to 10 do s:=s+a[i];
s:=s/10;
n:=1;
for i:=2 to 10 do
if___________________ < __________________________then n:=I;
b:abs(a[n]-s);
for I;=1 to 10 do
if____________________________________ then write(a[i]:3);
writeln;
end.
[15分]
解析：
（1）array[1..10] of integer
（2）a[1]
（3）abs(a[i]-s)
（4）abs(a[n]-s)
（5）abs(a[i]-s)=B
23、【
简答题】
A、B、C三人中一位是工人，一位是教师，一位是律师。已知：C仅比律师年龄大，A和教师不同岁，B比教师年龄小。问：A、B、C分别是什么身分？
答：______________是工人，___________-是教师，______________ 是律师。
[5分]
解析：
A，C，B
24、【
简答题】
高精度阶乘：
正整数A的阶乘，数学中定义为：A！＝1×2×3×……×A，如：3！＝1×2×3.现在输入一个正整数n(n<=50)，要求计算出1～n的每一个整数的阶乘的高精度结果（即：结果为全部有效数字）。下面的程序中采用加法代替乘法的方法计算阶乘，如：3！＝2！×3＝2！×2！×2！。
输出格式：每行打印一个数的阶乘
如：输入：n=3
输出：1!=1
2!=2
3!=6
Const max=80;
Var I,j,k,n,r:integer;
a,b:array[1..max] of integer;
Begin
Write(‘n=’);readln(n);
a[1]:=1;writeln(‘1!=’,1);
For j:=1 to______________do begin
b:=a;
for k:=1 to______________do
for i:=1 to max do begin
r:=______________ ;
if r>=10 then______________ :=a[i+1]+1;
a[i]:=r mod 10;
end;
k:=max;
while______________ do k:=k-1;
write(j+1,’!=’);
for i:=k downto 1 do write(a[i]);
writeln;
end;
end.
[15分]
解析：
（1）n-1
（2）j
（3）a[i]+b[i]
（4）a[i+1]
（5）a[k]=0
25、【
简答题】
var s:string;
I,len:integer;
Begin
S:=’olympic games 2008’;
S:=’ ’+s;len:=length(s);
For i:=1 to len do begin
Ch:=s[len];
If (ch>=’0’) and(ch<=’9’) then begin
Delete(s,len,1);insert(ch,s1);
End;
If (s[i]=’ ’) and (i<>len) then s[i]:=’－’;
End;
Writeln(s);
End.
输出：______________
[5分]
解析：
2008－olympic-games
26、【
简答题】
var a,b,x:integer;
Procedure ms(a,b:integer;var c:integer);
Begin
a:=3*a;b:=4*b;c:=a-b+c;
end;
begin
a:=1;b:=2;x:=3;
ms(a,b,x);
writeln(a,b:5,x:5);
end.
输出：______________
[5分]
解析：
1 2 －2
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00