noip普及组初赛模拟试卷22(附答案)

选择题
1 D
计算机内的所有数据、指令、地址都是用________编码的。

A.十进制数
B.十六进制数
C.八进制数
D.二进制数
2 A
以下断电之后仍能保存数据的有________。

A.ROM
B.RAM
C.寄存器
D.高速缓存
3 C
使用计算机进行住房装潢设计属于计算机应用中的________。

A.科学计算
B.实时控制
C.辅助设计
D.数据处理
4 C
文件标识符可以唯一指定一个文件，它是由________等构成。

A.文件主名和扩展名
B.路径、文件名和扩展名
C.盘符、路径和文件名
D.盘符和文件名
5 D
在计算机中，防火墙的作用是________。

A.防止火灾蔓延
B.防止计算机死机
C.防止使用者误删除数据
D.防止网络攻击
6 B
在Pascal语言中，判断a不等于0且b不等于0的正确的条件表达式是________。

A.not a=0 or not b=0
B. (a<>0)and (b<>0)
C.not((a=0)and(b=0))
D.not(a=0 and b=0)
7 B
Linux是一种________。

A.绘图软件
B.操作系统
C.程序设计语言
D.网络浏览器
8 D
与十进制数1770 对应的八进制数是________。

A.3350
B.3351
C.3353
D.3352
9 C
在下列关于计算机算法的说法中，不正确的是________。

A.算法的改进，在很大程度上推动了计算机科学与技术的进步
B.判断一个算法的好坏的主要标准是算法的时间复杂性与空间复杂性
C.一个正确的算法至少要有一个输入
D.目前仍然存在许多涉及到国计民生的重大课题，还没有找到能够在计算机上实施的有效算法
10 B
IP地址由四个0-255之间的整数构成，四个数之间用________分割。

A.逗号“，”
B.点“.”
C.空格
D.划线“-”
11 D
磁盘驱动器属于_______。

A. 输入设备
B. 输出设备
C. 存储器
D. 输入/输出设备
12 D
含有______属性的文件不能修改。

A. 系统
B. 存档
C. 隐藏
D. 只读
13 D
在WINDOWS中,“回收站”是____。

A. 内存中的一块区域
B. 软盘上的一块区域
C. 高速缓存中的一块区域
D. 硬盘上的一块区域
14 C
当用鼠标单击窗口的“关闭”按钮时，则对应的程序_____。

A. 转入后台运行
B. 继续执行
C. 被终止运行
D. 被删除
15．下面关于计算机的说法不正确的是( B )
A. 微机内存容量的基本计量单位是字节
B. 二进制数中右起第10位上的1相当于210
C. CPU每执行一个指令，就完成一步基本运算或判断
D. 32位的计算机中的“32”指的是字长
16．为什么说PASCAL是“高级语言”，是因为它(C)
A.必须在性能较高的机器上运行
B.必须经过良好培训的高水平的程序员使用
C.离机器的硬件较远
D.开发的时间较长
17．以下数据结构中，哪一个是线性结构?(D)
A．广义表 B. 二叉树 C. 稀疏矩阵 D. 队列
18．IE是目前流行的浏览器软件，它的工作基础是解释执行用（B ）语言书写的文件。

A．VC B．HTML C．BASIC D．HTTP
19．在长度为n的顺序存储的线性表中，删除第i个元素（1≤i≤n）时，需要从前向后依次前移 (A) 个元素。

(A）n-i （B）n-i+1 （C）n-i-1 （D）i
20．一棵完全二叉树的结点总数为18，其叶结点数为（C）。

A．7个B．8个C．9个D．10个
写出下列程序运行结果
1．CONST
V: array [0..3] of CHAR=('A','B','C','D');
VAR a, b, c, x, y, z,I: integer;
U:ARRAY[0..3]OF INTEGER;
begin
FOR I:=0 TO 3 DO U[I]:=69-ORD(V[I]);
a := u[0] + u[1] + u[2] + u[3] - 5;
b := u[0] * (u[1] - u[2] div u[3] + 8);
c := u[0] * u[1] div u[2] * u[3];
x := (a + b + 2) * 3 - u[(c + 3) mod 4];
y := (c * 100 - 13) div a div (u[b mod 3] * 5);
if((x+y) mod 2 = 0) then z := (a + b + c + x + y) div 2; z := (a + b + c - x - y) * 2;
writeln(x + y - z);
end.
输出 299
2． procedure foo(a,b:integer;var c:integer);
begin
if a>b then foo(c,a,b) else
begin writeln(a,',',b,',',c);c:=a+b;end;
end;
var
a,b,c:integer;
begin
read(a,b,c);
foo(a,b,c);
writeln(a,',',b,',',c);
end.
输入 12 30 20
输出 12，30，20
12，30，42
3．var
m ,n,s: longint;
procedure pl(n: longint);
begin
if n< >0 then
begin
pl(n div 2);
s:=(s*2+n mod 2 *m) mod 1023
end
end;
begin
m:=2010;
n:=65;
s:=0;
pl(n);
writeln(s);
end.
输出 729
4. var
a,b:array[1..32] of integer;
i: integer;
procedure ssort( i ,j: integer);
var
m, k, x: integer;
begin
if j-i>1 then
begin
m:=(i+j) div 2;
ssort(i,m);
ssort(m+1,j);
k:=i;
for x:=i to m do
begin
b[k]:=a[x]; b[k+1]:=a[m+x-i+1]; k:=k+2;
end;
for x:=i to j do a[x]:=b[x];
end;
end;
begin
for i:=1 to 12 do a[i]:=i;
ssort(1,12);
for i:= 1 to 12 do write(a[i]:3);
writeln;
end.
输出 1 7 4 10 3 9 6 12 2 8 5 11
完善程序
问题描述:设有n种物品，每种物品有一个重量及一个价值。

但每种物品的数量是无限的，同时有一个背包，最大载重量为XK，今从n种物品中选取若干件（同一种物品可以多次选取），使其重量的和小于等于XK，而价值的和为最大。

【程序清单】
Program package;
const maxxk=400;maxn=20;
type tlist=array[1…maxn] of byte;
tmake=array[0…maxn,0…maxxk] of integer;
var n,xk:integer;
w,u:tlist;
f:tmake;
procedure init;
var i:byte;
begin
fillchar(w,sizeof(w),0);
fillchar(u,sizeof(u),0);
readln(n,xk);
for i:=1 to n do
① ;
end;
procedure make;
var i,j:byte;
begin
for i:=1 to n do
begin
for j:=1 to w[i]-1 do
f[i,j]:=f[i-1,j];
for j:=w[i] to xk do
if f[i-1,j]>f[i,j-w[i]]+u[i] then ② ;
else ③ ;
end;
end;
procedure print;
var get:tlist;
i,j:byte;
begin
fillchar(get,sizeof(get),0);
i:= ④ ;j:= ⑤ ;
while i>0 do
if f[i,j]=f[i-1,j] then dec(i)
else begin
dec(j,w[i]);
⑥ ;
end;
writeln(‘n=’,n,‘,’,‘xk=’,xk);
writeln(‘max worth=’,⑦;
for i:=1 to n do
writeln(‘no.’,i‘,weight:’,w[i]:2,‘worth:’,u[i]:2,‘get’,get[i]:2); end;
begin
init;
make;
print;
end.
①read(w[i],u[i])
②f[i,j]:=f[i-1,j]
③f[i,j]:=f[i,j-w[i]]+u[i]
④i:=n
⑤j:=xk
⑥inc(get[i])
⑦f[n,xk]。