2006年全国信息学奥赛初赛普及组（pascal）试题

2006年全国信息学奥赛复赛普及组（pascal）试题~

program count;
var s,t,w,s1,i,j:integer;
str1:string;
a:array[1..25]of byte;

procedure print;
var i:integer;
begin
for i:=1 to w do
write(chr(a[i]+ord('a')-1));
writeln;
end;

begin
assign(input,'count.in');
reset(input);
assign(output,'count.out');
rewrite(output);
readln(s,t,w);
readln(str1);
for i:=1 to w do
a[i]:=ord(str1[i])-ord('a')+1;
s1:=0;j:=w;
while(a[1]<=t-w+1)and(s1<5)do
begin
inc(a[j]);
while a[j]<=t do
begin
if j=w then begin
s1:=s1+1;
print;
inc(j);
break;
end
else begin
inc(j);
a[j]:=a[j-1]+1;
end;
end;
dec(j);
end;
close(input);
close(output);
end.



program happy;
type arr=record
jg:integer;
zy:integer;
end;
arra=record
bo:boolean;
zh:integer;
end;
var a:array[1..30100] of arr;
b:array[0..30100] of arra;
i,j,n,m:integer;
total:longint;

procedure dongtai;
var i,j,s,t:integer;
begin
s:=0;
for j:=1 to m do
begin
if s>n then s:=n;
for i:=s downto 0 do
if b[i].bo then
begin
s:=s+a[j].jg;
if b[i+a[j].jg].bo then
t:=b[i+a[j].jg].zh;
b[i+a[j].jg].bo:=true;
b[i+a[j].jg].zh:=b[i].zh+a[j].jg*a[j].zy;
if b[i+a[j].jg].zh<t then b[i+a[j].jg].zh:=t;
end;
end;
end;

begin{main}
assign(input,'happy.in');
assign(output,'happy.out');
reset(input);
rewrite(output);
readln(n,m);
for i:=1 to m do
read(a[i].jg,a[i].zy);
readln;
b[0].bo:=true;
b[0].zh:=0;
dongtai;
for i:=0 to n do
if (b[i].bo)and(total<b[i].zh) then
total:=b[i].zh;
writeln(total);
close(input);
close(output);
end.




program random;
var a:array[1..1000]of 0..1;
n,i,k,t:integer;
begin
assign(input,'random.in');
reset(input);
assign(output,'random.out');
rewrite(output);
readln(n);
fillchar(a,sizeof(a),0);
for i:=1 to n do
begin
read(k);
if a[k]=0 then begin
inc(t);
a[k]:=1;
end;
end;
writeln(t);
for i:=1 to 1000 do
if a[i]=1 then write(i,' ');
close(output);
close(input);
end.



program sequence;
var t,n,k,i,j,s,total:integer;
a:array[0..20]of 0..1;

begin
assign(input,'sequence.in');
reset(input);
assign(output,'sequence.out');
rewrite(output);
readln(k,n);
t:=n;s:=0;
while t0 do
begin
a[s]:=t mod 2;
t:=t div 2;
inc(s);
end;
total:=0;
if a[0]=1 then total:=1;
for i:=1 to s-1 do
if a[i]=1 then
total:=total+k**i;
writeln(total);
close(output);
close(input);
end.

请见附件。

第十二届全国青少年信息学奥林匹克联赛初赛试题
（ 普及组 Pascal 语言 二小时完成 ）
● ● 全部试题答案均要求写在答卷纸上，写在试卷纸上一律无效 ●●

一、 单项选择题 （共20题，每题1.5分，共计30分。每题有且仅有一个正确答案.）。
1. 在下面各世界顶级的奖项中，为计算机科学与技术领域做出杰出贡献的科学家设立的奖项是（ ）。
A. 沃尔夫奖 B. 诺贝尔奖 C. 菲尔兹奖 D. 图灵奖
2. 在下列各软件中，不属于NOIP竞赛（复赛）推荐使用的语言环境有（ ）。
A. gcc/g++ B. Turbo Pascal
C. RHIDE D. free pascal
3. 以下断电之后仍能保存数据的有（ ）。
A. 寄存器 B. ROM C. RAM D. 高速缓存
4．Linux是一种( )。
A. 绘图软件 B. 程序设计语言 C. 操作系统 D. 网络浏览器
5. CPU是( )的简称。
A. 硬盘 B. 中央处理器 C. 高级程序语言 D. 核心寄存器

6. 在计算机中，防火墙的作用是（ ）。
A. 防止火灾蔓延 B.防止网络攻击
C. 防止计算机死机 D. 防止使用者误删除数据
7. 在下列关于计算机语言的说法中，不正确的是（ ）。
A. Pascal和C都是编译执行的高级语言
B. 高级语言程序比汇编语言程序更容易从一种计算机移植到另一种计算机上
C. C++是历史上的第一个支持面向对象的计算机语言
D. 与汇编语言相比，高级语言程序更容易阅读
8. 在下列关于计算机算法的说法中，不正确的是（ ）。
A. 一个正确的算法至少要有一个输入
B. 算法的改进，在很大程度上推动了计算机科学与技术的进步
C. 判断一个算法的好坏的主要标准是算法的时间复杂性与空间复杂性
D. 目前仍然存在许多涉及到国计民生的重大课题，还没有找到能够在计算机上实施的有效算法
9. 在下列各种排序算法中，不是以"比较"作为主要操作的算法是（ ）。
A. 选择排序 B. 冒泡排序 C. 插入排序 D. 基数排序
10．在编程时（使用任一种高级语言，不一定是Pascal），如果需要从磁盘文件中输入一个很大的二维数组（例如1000*1000的double型数组），按行读（即外层循环是关于行的）与按列读（即外层循环是关于列的）相比，在输入效率上（ ）。
A. 没有区别 B. 按行读的方式要高一些
C. 按列读的方式要高一些 D. 取决于数组的存储方式。
11．在Pascal语言中，表达式 (21 xor 2)的值是（ ）
A. 441 B. 42 C.23 D.24
12．在Pascal语言中，判断a不等于0且b不等于0的正确的条件表达式是（ ）
A. not a=0 or not b=0 B. not((a=0)and(b=0))
C. not(a=0 and b=0) D. (a<>0)and (b<>0)
13．某个车站呈狭长形，宽度只能容下一台车，并且只有一个出入口。已知某时刻该车站状态为空，从这一时刻开始的出入记录为："进，出，进，进，进，出，出，进，进，进，出,出"。假设车辆入站的顺序为1，2，3，……，则车辆出站的顺序为（ ）。
A. 1, 2, 3, 4, 5 B. 1, 2, 4, 5, 7
C. 1, 4, 3, 7, 6 D. 1, 4, 3, 7, 2
14．高度为n的均衡的二叉树是指：如果去掉叶结点及相应的树枝，它应该是高度为n-1的满二叉树。在这里，树高等于叶结点的最大深度，根结点的深度为0，如果某个均衡的二叉树共有2381个结点，则该树的树高为（ ）。
A. 10 B. 11 C. 12 D. 13
15. 与十进制数1770 对应的八进制数是（ ）。
A. 3350 B. 3351 C. 3352 D. 3540
16．将5个数的序列排序，不论原先的顺序如何，最少都可以通过（ ）次比较，完成从小到大的排序。
A. 6 B. 7 C. 8 D. 9
17. 设A=B=D=true，C=false，以下逻辑运算表达式值为真的有（ ）。
A. (A∧B)∨(C∧D) B. ((A∨B∨D)∧C)
C. A∧(B∨C∨D) D. (A∧B∧C)∨ D
18. (2010)16 + (32)8的结果是（ ）。
A. (8234)10 B. (202B)16
C. (20056)8 D. (100000000110)2
19. 设栈S的初始状态为空，元素a, b, c, d, e 依次入栈，以下出栈序列不可能出现的有（ ）。
A. a, b, c, e, d B. b, c, a, e, d
C. a, e, c, b, d D. d, c, e, b, a
20. 已知6个结点的二叉树的先根遍历是1 2 3 4 5 6（数字为结点的编号，以下同），后根遍历是3 2 5 6 4 1，则该二叉树的可能的中根遍历是（ ）
A. 3 2 1 4 6 5 B. 3 2 1 5 4 6
C. 2 1 3 5 4 6 D. 2 3 1 4 6 5
二．问题求解（共2题，每题5分，共计10分）
1．（寻找假币） 现有80枚硬币，其中有一枚是假币，其重量稍轻，所有真币的重量都相同，如果使用不带砝码的天平称重，最少需要称几次，就可以找出假币？你还要指出第1次的称重方法。请写出你的结果：_________________________________________________。
2．（取石子游戏） 现有5堆石子,石子数依次为3，5，7，19，50，甲乙两人轮流从任一堆中任取（每次只能取自一堆，不能不取）, 取最后一颗石子的一方获胜。甲先取，问甲有没有获胜策略（即无论乙怎样取，甲只要不失误，都能获胜）？如果有，甲第一步应该在哪一堆里取多少？请写出你的结果：
_________________________________________________。
三．阅读程序写结果（共4题，每题8分，共计32分）
1. Program ex301;
var
u:array[0..3] of integer;
i,a,b,x,y:integer;
begin
y:=10;
for i:=0 to 3 do
read(u[i]);
a:=(u[0]+u[1]+u[2]+u[3]) div 7;
b:=u[0] div ((u[1]-u[2]) div u[3]);
x:=(u[0]+a+2)-u[(u[3]+3) mod 4];
if (x>10) then
y:=y+(b*100-u[3]) div (u[u[0] mod 3]*5)
else
y:=y+20+(b*100-u[3]) div (u[u[0] mod 3]*5);
writeln (x,',',y);
end. {*注：本例中，给定的输入数据可以避免分母为0或下标越界。 }
输入：9 3 9 4
输出：_______________
2.Program ex302;
const
m:array[0..4] of integer=(2,3,5,7,13);
var
i,j:integer;
t: longint;
begin
for i:=0 to 4 do
begin
t:=1;
for j:=1 to m[i]-1 do
t:=t*2;
t:=(t*2-1)*t;
write (t,' ');
end;
writeln;
end.
输出:____________________
3.Program ex303;
Const
NN=7;
Type
Arr1=array[0..30] of char;
var
s:arr1;
k,p:integer;
Function fun(s:arr1; a:char;n:integer):integer;
var
j:integer;
begin
j:=n;
while (a<s[j])and(j>0) do dec(j);
fun:=j;
end;
begin
for k:=1 to NN do
s[k]:=chr(ord('A')+2*k+1);
k:=fun(s,'M',NN);
writeln(k);
end.
输出：_____________
4.program ex304;
var
x,x2:longint;
procedure digit(n,m:longint);
var n2:integer;
begin
if(m>0) then
begin
n2:=n mod 10;
write(n2:2);
if(m>1) then digit(n div 10,m div 10);
n2:=n mod 10;
write(n2:2);
end;
end;
begin
writeln('Input a number:');
readln(x);
x2:=1;
while(x2<x) do x2:=x2*10;
x2:=x2 div 10;
digit(x,x2);
writeln; 5
end.
输入：9734526
输出：______________________________
四．完善程序 (前4空，每空2.5分，后6空，每空3分，共28分)
1．（全排列）下面程序的功能是利用递归方法生成从1到n(n<10)的n个数的全部可能的排列（不一定按升序输出）。例如，输入3，则应该输出（每行输出5个排列）：
123 132 213 231 321
312
程序：
Program ex401;
Var
i,n,k:integer;
a:array[1..10] of integer;
count:longint; {变量count记录不同排列的个数，这里用于控制换行}
Procedure perm(k:integer);
var j,p,t:integer;
begin
if ① then
begin
inc(count);
for p:=1 to k do
write(a[p]:1);
write(' ');
if ( ② ) then writeln;
exit;
end;
for j:=k to n do
begin
t:=a[k]; a[k]:=a[j]; a[j]:=t;
③ ;
t:=a[k]; ④ ;
end
end;
begin
writeln('Entry n:');
read(n);
count:=0;
for i:=1 to n do a[i]:=i;
⑤ ;
end.
2. 由键盘输入一个奇数 P (P<100,000,000)，其个位数字不是5，求一个整数 S，使 P×S = 1111...1 ( 在给定的条件下，解 S 必存在)。要求在屏幕上依次输出以下结果:
（1）S 的全部数字。除最后一行外，每行输出 50 位数字。 （2） 乘积的数字位数。
例1：输入p=13，由于13*8547=111111，则应输出（1）8547，（2）6
例2：输入p=147，则输出结果应为（1）755857898715041572184429327286470143613
（2）42，即等式的右端有42个1。
程序：
program ex402;
var
p,a,b,c,t,n:longint;
begin
while (true) do
begin
writeln ('Input p, the last digit is 1 or 3 or 7 or 9:');
readln(p);
if (p mod 2<>0)and(p mod 5<>0) then
⑥ ; {如果输入的数符合要求，结束循环 }
end;
a:=0; n:=0;
while (a<p) do
begin
a:=a*10+1; inc(n);
end;
t:=0;
repeat
b:=a div p;
write(b:1);
inc(t);
if ( ⑦ ) then writeln;
c:= ⑧ ; a:= ⑨ inc(n);
until c<=0;
dec(n);
writeln; writeln('n=', ⑩ );
end.

第十二届全国青少年信息学联赛（普及组）答案http://www.noi.cn/noi/showNews.jsp?newsId=200190000064

普及组（Pascal语言）参考答案与评分标准
一、单项选择题：（每题1.5分）
1. D 2. B 3. B 4. C 5. B 6.B 7. C 8. A 9. D 10. D
11. C 12. D 13. C 14. B 15. C 16. B 17. B 18. A 19. C 20. B
二、问题求解：（每题 5分）
1． 4次 (1分)，
第一步：分成3组：27，27，26，将前2组放到天平上（4分）。
2．有获胜策略(1分)，，第1次在第5堆中取32颗石子(4分)，。
三、阅读程序写结果
1. 10，10 （对1个数给4分，无逗号扣1分）
2. 6 28 496 8128 33550336
（前2个对1个数给1分，后3个对1个数给2分）
3. 5
4. 6 2 5 4 3 7 9 9 7 3 4 5 2 6（数字之间无空格扣2分）
四、完善程序(前4空（①--④），每空2.5分，后6空（⑤--⑩），每空3分)
1．① k=n （或n=k）
② count mod 5=0
③ perm(k+1)
④ a[k]:=a[j];a[j]:=t
⑤ perm(1)
2．⑥ break
⑦ t mod 50=0
⑧ a-p*b（或a-b*p）
⑨ c*10+1 （或10*c+1）
⑩ n

---

梁子湖区18968618195： pascal - 有没有pascal的深度了解的书?不是初级的,是深层次的.比如讲的crt、算法、栈、二叉树等的? - ？
东方霍天麻： NOIP2006第十二届全国青少年信息学奥林匹克联赛初赛试题普及组Pascal语言2007年03月02日星期五05:17P.M.第十二届全国青少年信息学奥林匹克联赛初赛试题(普及组Pascal语言二小时完成)●●全部试题答案均要求写在答卷纸上,写在试...

梁子湖区18968618195： NOIP 2006、7年初赛题 我大概打60分 大概处在什么水平? - ？
东方霍天麻： 这种非全国性的地方初赛,要看当地的信息的水平了.而且,提高组初赛一般50分以上就很保险了,不出意外都是可以进复赛的,普及组65分以上比较保险.你不用担心你你的初赛了!还有,你可能是NOIP的新手吧!上机是复赛才考的,满分400分.有个网站www.vijos.cn,这个是个信息学评测的平台,蛮不错的,你可以去看看.还有个论坛:www.oibh.org/bbs,这个也不错!

梁子湖区18968618195： 2006年全国信息学奥赛复赛普及组(pascal)试题 - ？
东方霍天麻： program count;var s,t,w,s1,i,j:integer; str1:string; a:array[1..25]of byte;procedure print;var i:integer;begin for i:=1 to w do write(chr(a[i]+ord('a')-1)); writeln;end;begin assign(input,'count.in'); reset(input); assign(output,'count.out'); rewrite(output); readln(...

梁子湖区18968618195： 第十四界全国青少年信息学奥林匹克联赛(普及组)初赛成绩？
东方霍天麻： 一、单项选择题:(每题1.5分) 1. D 2. D 3. C 4. B 5. B 6.B 7. B 8. C 9. C 10. A 11. C 12. A 13. A 14. A 15. B 16. D 17. C 18. D 19. A 20. A二、问题求解:(每题 5分) 1.90 2.210三、阅读程序写结果 1. 15, 46(对1个数给4分,无逗号扣1分...

梁子湖区18968618195： NOIP考试 - ？
东方霍天麻： noip 全国青少年信息学奥林匹克联赛(National Olympiad in Informatics in Provinces简称NOIP)自1995年至今已举办13次.每年由中国计算机学会统一组织. NOIP是在同一时间、不同地点以各省市为单位由特派员组织.每年的9月1—10日报...

梁子湖区18968618195： 谁能给我出PASCAL初赛的题目 - ？
东方霍天麻： 2006年南海区青少年信息学奥林匹克竞赛初赛试题(高中组,两小时完成)◆◆请将正确答案在答题卷上填写,在本试题卷上答题无效◆◆一、nbsp;选择填空(1—10小题为单选题,11—20小题为多选题,多选题多选、少选、错选均不能得...

梁子湖区18968618195： 信息学奥赛【初中】考什么 - ？
东方霍天麻： c++可以参加,c,c++,pascal任选一种参加 c++因为STL可以占便宜,为了公平,现在联赛已经不允许用STL了,所以也占不到什么...

梁子湖区18968618195： 全国青少年信息学奥林匹克联赛初赛普及组进复赛的比率 - ？
东方霍天麻： 每个省都不同,你是哪个省的? 另:可以交钱进复赛 比率:10%-15% 我记得是,你可以到noi官网查一下

梁子湖区18968618195： 第十二届全国青少年信息学奥林匹克联赛初赛提高组问题求解第一题大神们帮帮忙将2006个人分成若干不相交的子几集,每个子集至少有3个人,并且:1,... - ？
东方霍天麻：[答案] 运用图论的思想 用一个结点代表一个人,如果两个人互相认识就用线连上,不认识就不连; 原题的要求就变成了这样:1,没有一个结点与其他所有点相连 2,每个子集中,任何三个结点中,至少两个不相连 3,同一子集中的任意不直...