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

选择题
1.人类的信息处理技术包含：(B)
a.电子技术、多媒体技术
b.模拟技术、数字技术
c.通讯技术、网络技术
d.多媒体技术、网络技术
2. PC是指___(A)
a.Personal computer
b.Professional computer
c.Personal computing
d.Professional computing
3. 计算机的存储量通常以能存储多少个二进制位或多少个字节来表示，1个字节是指_____个二进制位，1MB的含义是____个字节。

(B)
a.1024、1024
b.8、1024K
c.8、1000K
d.16、1000
4. _____是为了解决实际问题而编写的计算机程序。

(D)
a.系统软件
b.数据库管理系统
c.操作系统
d.应用软件
5. 计算机病毒的特点是____。

(A)
a.复制性、传播性和破坏性
b.传播性、破坏性、易读性
c.复制性、破坏性、安全性
d.复制性、传播性和安全性
6. 下列关于计算机系统硬件的说法中，正确的是______。

(D)
A. 内存可以长期保存信息
B. 键盘是计算机输入数据的唯一手段
C. 计算机硬件由中央处理器和存储器组成
D. 显示器和打印机都是输出设备
7. CPU的英文名称是Central Processing Unit，它是计算机的核心部件，其组成如下：____。

(D)
A. 软驱、硬盘和光驱
B. RAM和ROM
C. 主机和屏幕
D. 运算器和控制器
8.被选中的单选框内有一个_______记号；被选中的复选框内有一个_______记号。

(A)
A. 小圆点、勾号
B. 小圆点、叉号
C. 勾号、叉号
D. 叉号、勾号
9.连接在因特网的任何一台计算机，都有自己的____。

(C)
A. 网址
B. 域名
C. IP地址
D. 网页
10.以下软件中，______不是Internet上网专用的软件。

(C )
A. IE（Internet Explorer）
B. Navigator
C. PowerPoint
D. Outlook Express
11.下列关于使用电子邮件的说法中正确的是____。

(A)
A. 在不同时刻里，一台计算机上可以有多人收发各自的电子邮件
B. 在不同时刻里，一台计算机上最多能有三个人收发电子邮件
C. 在不同时刻里，一台计算机上只能有一个人收发电子邮件
D. 以上都不对
12.十六进制进制数FFFH转换为二进制数是________。

(B)
A.101010101010
B.111111111111
C.010*********
D.100010001000
13. 防病毒软件的作用是________。

(C )
A.检查计算机是否染有病毒，消除已感染的任何病毒
B.查出计算机已感染的任何病毒，消除其中的一部分
C.检查计算机是否染有病毒，消除已感染的部分病毒
D.杜绝病毒对计算机的侵害
14. (2070)16 + (34)8 的结果是________。

(B)
A.（208A）16
B.（8332）10
C.（100000000110）2
D.(20212)8
15.文件传输协议的缩写是__________。

(D)
A.PTF
B.PFT
C.FPT
D.FTP
16.下面关于算法的不正确的说法是_____________(B)
A)算法必须有输出
B)算法必须在计算机上用某种语言实现
C)算法不一定有输入
D)算法必须在有限步执行后能结束
17.递归过程或函数调用时，处理参数和返回地址，通常使用一种称为______（ D ）的数据结构。

A. 队列
B. 多维数组
C. 线性表
D. 栈
18.设A=true，B=false，C=true，D=false，以下逻辑运算表达式值为真的是____（B ）。

A. (A∧B)∨(C∧D∨⌝A)
B. ((⌝A∧B)∨C)∧⌝D
C. (B∨C∨D)∧D∧A
D. A∧(D∨⌝C)∧B
19.在Pascal语言中，表达式（23 or 2 xor 5）的值是（A ）。

A．18 B．1 C．23 D．32
20. 20．LAN的含义是（ B ）。

A．因特网 B．局域网 C．广域网 D．城域网
写出下列程序运行结果
1. var
i,a,b,c,d:integer;
f:array[0..3] of integer;
begin
for i:=0 to 3 do
read(f[i]);
a := f[0] + f[1] + f[2] + f[3];
a := a div f[0];
b := f[0] + f[2] + f[3];
b := b div a;
c := (b * f[1] + a) div f[2];
d := f[(b div c) mod 4];
if (f[(a + b + c + d) mod 4] > f[2]) then
begin
a := a + b;
writeln(a);
end else
begin
c := c + d;
writeln(c);
end;
end.
输入：5 15 25 35
输出：_18___
2. Const N=6;
Var
S,I : integer;
Function CO(I1:integer) : integer;
VAR J1,S1 : integer;
Begin
S1:=N;
For J1:= (N-1) downto (N-I1+1) do
S1:= S1*J1 div (N-J1+1);
CO:=S1
End;
Begin
S:=N+1;
For I:= 2 to N do S:=S + CO(I);
Writeln(‘S=’,S);
End.
输出S=64
3．var i, j, L, n, k, s, t : integer;
b : array[1..10] of 0..9;
begin
readln(L,n); s:= L; k:=1; t:=L;
while s<n do {k计数t累乘,s累加}
begin
k:=k+1; t:=t*L; s:=s+t
end;
s:=s-t; n:=n-s-1;{s=84,n=82}
for i:=1 to 10 do b[i]:=0;
j:=11;
{将n→转换为L进制,(82)10=(1102)4,短除法除数=4→取余数}
while n>0 do
begin
j:=j-1; b[j]:=n mod L; n:=n div L end;
for i:=10-k+1 to 10 do
write(chr(ord('a')+b[i]));
J b 10 2 9 0 8 1 7 1
{将数组b[7]→b[10]的值分别和字符’a’的序数值相加,再转换成字符输出} end.
输入： 4 167
输出：bbac
var
i, j, j1, j2, p, q : integer;
p1 : boolean;
b,c : array[1..100] of integer;
begin
readln(q,p);{逐位求商,q除以p,商→c[j1]。

本题结果是一个纯小数的数据。

}
j:=1; p1:=true; {p1=true不是循环小数,p1=false是循环小数}
b[j]:=q; j1:=0;
while (q>0) and p1 do{q余数>0,继续除}
begin
j1:=j1+1; {inc(j1)商的位数+1}
c[j1]:=q*10 div p; {模拟竖式除法,整除取商→c数组}
q:=q*10-c[j1]*p; {模拟竖式除法,余数*10}
if q>0 then
begin
j2:=1;
while (b[j2]<>q) and (j2<=j) do j2:=j2+1; {从余数的第1位开始逐位比较}
if b[j2]=q then {第j2位相等,是无限循环小数输出}
begin
p1:=false;{是循环小数标志}
write('0.');
for i:=1 to j2-1 do write(c[i]:1);
write('{');
for i:=j2 to j1 do write(c[i]:1);
writeln('}')
end
else
begin
j:=j+1;b[j]:=q{inc(j)余数→b数组}
end
end
end;
if q=0 then {将q除以p能够除尽的小数输出处理}
begin
write('0.');
for i:=1 to j1 do write(c[i]:1);
writeln
end; readln
end.
输入① 1 8输出0.125
输入② 2 7输出0.{285714}
完善程序
问题描述:工厂在每天的生产中,需要一定数量的零件,同时也可以知道每天生产一个零件的生产单价。

在n天的生产中,当天生产的零件可以满足当天的需要,若当天用不完,可以放到下一天去使用,但要收取每个零件的保管费,不同的天收取的费用也不相同。

(3×5=15分) 问题求解:求得一个n天的生产计划(即n天中每天应生产零件个数),使总的费用最少。

输入:n(天数n<=29)
每天的需求量(n个整数) 每天生产零件的单价(n个整数) 每天保管零件的单价(n个整数)
输出:每天的生产零件个数(n个整数)
例如:当n=3时,其需要量与费用如下:
生产计划的安排可以有许多方案,如下面的三种:
程序说明:
b[n]:存放每天的需求量c[n]:每天生产零件的单价d[n]:每天保管零件的单价e[n]:生产计划
var
i,j,n,yu,j0,j1,s:integer;
b,c,d,e: array[0..30]of integer;
begin
readln(n);
for i:=1 to n do readln(b[[i],c[i],d[i]];
fori:=1 to n do e[i]:=0;
c[n+1]:=10000;c[n+2]:=0;b[n+1]:=0;jo:=1;
while (jo<=n)do
begin
yu:=c[j0]; j1:=jo; s:=b[j0];
while (yu+d[j1]<c[j1+1]) do
begin
yu:=yu+d[j1]; j1:=j1+1;s:=s+b[j1];
end;
e[j0]:=s;jo:=j1+1;
end;
for i:=1 to n do write(e[i]:4);
readln;
end.。