end.
5.求梯形或矩形(长方形)的面积
矩形:
输入:
10050
输出:
5000
var
a,b,s:
integer;
begin
read(a,b);
s:
=a*b;
write(s);
end.
梯形:
输入:
123
输出:
4.50
var
a,b,h,s:
real;
begin
read(a,b,h);
s:
=(a+b)*h/2;
write(s:
0:
2);
end.
6.计算阶乘!
。
输入:
5
输出:
120
var
n,i:
longint;
s:
int64;
begin
readln(n);
s:
=1;
fori:
=2tondo
s:
=s*i;
writeln(s);
end.
7.求100-999中的水仙花数,(若三位数abc,abc=a^3+b^3+c^3,则称abc为水仙花数。
如153,1^3+5^3+3^3=1+125+27=153,则153是水仙花数)
var
a,b,c:
integer;
begin
fora:
=1to9do
forb:
=0to9do
forc:
=0to9do
if(a*100+b*10+c)=a*a*a+b*b*b+c*c*c
thenwriteln(a*100+b*10+c)
end.
8.典型练习题。
(1)计算12+22+32+42+……+1002的和
(2)输出1~100中所有100的整奇数
(3)求1000-9999中的水仙花数
(4)计算立方体的体积
9.第十七届全国信息学奥林匹克竞赛初赛试题。
第十七届全国青少年信息学奥林匹克联赛初赛试题
(普及组Pascal语言两小时完成)
●●全部试题答案均要求写在答卷纸上,写在试卷纸上一律无效●●
一、单项选择题(共20题,每题1.5分,共计30分。
每题有且仅有一个正确选项。
)
1、在二进制下,1101001+()=1110110。
A、1011B、1101C、1010D、1111
2、字符“0”的ASCII码为48,则字符“9”的ASCII码为()。
A、39B、57C、120D、视具体的计算机而定
3、一片容量为8GB的SD卡能存储大约()张大小为2MB的数码照片。
A、1600B、2000C、4000D、16000
4、摩尔定律(Moore'slaw)是由英特尔创始人之一戈登·摩尔(GordonMoore)提出来的。
根据摩尔定律,在过去几十年以及在可预测的未来几年,单块集成电路的集成度大约每()个月翻一番。
A、1B、6C、18D、36
5、无向完全图是图中每对顶点之间都恰有一条边的简单图。
已知无向完全图G有7个顶点,则它共有()条边。
A、7B、21C、42D、49
6、寄存器是()的重要组成部分。
A、硬盘B、高速缓存C、内存D、中央处理器(CPU)
7、如果根结点的深度记为1,则一棵恰有2011个叶结点的二叉树的深度最少是()。
A、10B、11C、12D、13
8、体育课的铃声响了,同学们都陆续地奔向操场,按老师的要求从高到矮站成一排。
每个同学按顺序来到操场时,都从排尾走向排头,找到第一个比自己高的同学,并站在他的后面。
这种站队的方法类似于()算法。
A、快速排序B、插入排序C、冒泡排序D、归并排序
9、一个正整数在二进制下有100位,则它在十六进制下有()位。
A、7B、13C、25D、不能确定
10、有人认为,在个人电脑送修前,将文件放入回收站中就是已经将其删除了。
这种想法是()。
A、正确的,将文件放入回收站意味着彻底删除、无法恢复
B、不正确的,只有将回收站清空后,才意味着彻底删除、无法恢复
C、不正确的,即使将回收站清空,文件只是被标记为删除,仍可能通过恢复软件找回
D、不正确的,只要在硬盘上出现过的文件,永远不可能被彻底删除
11、广度优先搜索时,需要用到的数据结构是()。
A、链表B、队列C、栈D、散列表
12、在使用高级语言编写程序时,一般提到的“空间复杂度”中的“空间”是指()。
A、程序运行时理论上所占的内存空间
B、程序运行时理论上所占的数组空间
C、程序运行时理论上所占的硬盘空间
D、程序源文件理论上所占的硬盘空间
13、在含有n个元素的双向链表中查询是否存在关键字为k的元素,最坏情况下运行的时间复杂度是()。
A、O
(1)B、O(logn)C、O(n)D、O(nlogn)
14、生物特征识别,是利用人体本身的生物特征进行身份认证的一种技术。
目前,指纹识别、虹膜识别、人脸识别等技术已广泛应用于政府、银行、安全防卫等领域。
以下不属于生物特征识别技术及其应用的是()。
A、指静脉验证B、步态验证C、ATM机密码验证D、声音验证
15、现有一段文言文,要通过二进制哈夫曼编码进行压缩。
简单起见,假设这段文言文只由4个汉字“之”、“乎”、“者”、“也”组成,它们出现的次数分别为700、600、300、200。
那么,“也”字的编码长度是()。
A、1B、2C、3D、4
16、关于汇编语言,下列说法错误的是()。
A、是一种与具体硬件相关的程序设计语言
B、在编写复杂程序时,相对于高级语言而言代码量较大,且不易调试
C、可以直接访问寄存器、内存单元、以及I/O端口
D、随着高级语言的诞生,如今已完全被淘汰,不再使用
17、()是一种选优搜索法,按选优条件向前搜索,以达到目标。
当探索到某一步时,发现原先选择并不优或达不到目标,就退回一步重新选择。
A、回溯法B、枚举法C、动态规划D、贪心法
18、1956年()授予肖克利(WilliamShockley)、巴丁(JohnBardeen)和布拉顿(WalterBrattain),以表彰他们对半导体的研究和晶体管效应的发现。
A、诺贝尔物理学奖
B、约翰·冯·诺依曼奖
C、图灵奖
D、高德纳奖(DonaldE.KnuthPrize)
19、对一个有向图而言,如果每个节点都存在到达其他任何节点的路径,那么就称它是强连通的。
例如,右图就是一个强连通图。
事实上,在删掉边()后,它依然是强连通的。
A、aB、bC、cD、d
20、从ENIAC到当前最先进的计算机,冯·诺依曼体系结构始终占有重要的地位。
冯·诺依曼体系结构的核心内容是()。
A、采用开关电路B、采用半导体器件
C、采用存储程序和程序控制原理D、采用键盘输入
二、问题求解(共2题,每题5分,共计10分)
1、每份考卷都有一个8位二进制序列号。
当且仅当一个序列号含有偶数个1时,它才是有效的。
例如,00000000、01010011都是有效的序列号,而11111110不是。
那么,有效的序列号共有________个。
2、定义字符串的基本操作为:
删除一个字符、插入一个字符和将一个字符修改成另一个字符这三种操作。
将字符串A变成字符串B的最少操作步数,称为字符串A到字符串B的编辑距离。
字符串"ABCDEFG"到字符串"BADECG"的编辑距离为________。
三、阅读程序写结果(共4题,每题8分,共计32分)
1、
Var
n,m,i,ans:
Integer;
Begin
Readln(n,m);
ans:
=0;
i:
=n;
Whilei<=mDo
Begin
ans:
=ans+i;
Inc(i);
End;
Writeln(ans);
End.
输入:
1020
输出:
__________________
2、
Var
map,tel:
String;
i:
Integer;
Begin
map:
='22233344455566677778889999';
Readln(tel);
Fori:
=1ToLength(tel)Do
If(tel[i]>='0')AND(tel[i]<='9')
ThenWrite(tel[i])
Else
If(tel[i]>='A')AND(tel[i]<='Z')
ThenWrite(map[Ord(tel[i])-Ord('A')+1]);
End.
输入:
CCF-NOIP-2011
输出:
__________________
3、
Const
SIZE=100;
Var
n,i,sum,x:
Integer;
a:
Array[1..SIZE]OfInteger;
Begin
Readln(n);
FillChar(a,SizeOf(a),0);
Fori:
=1TonDo
Begin
Read(x);
Inc(a[x]);
End;
i:
=0;
sum:
=0;
Whilesum<(nDIV2+1)Do
Begin
Inc(i);
sum:
=sum+a[i];
End;
Writeln(i);
End.
输入:
11
45664332321
输出:
__________________
4、
Varn,m:
Integer;
Functionsolve(n,m:
Integer):
Integer;
Vari,sum:
Integer;
Begin
Ifm=1Then
Begin
solve:
=1;
Exit;
End;
sum:
=0;
Fori:
=1Ton-1Do
sum:
=sum+solve(i,m-1);
solve:
=sum;
End;
Begin
Readln(n,m);
Writeln(solve(n,m));
End.
输入:
74
输出:
__________________
四、完善程序(前11空,每空2分,后2空,每空3分,共计28分)
1、(子矩阵)输入一个n1*m1的矩阵a,和n2*m2的矩阵b,问a中是否存在子矩阵和b相等。
若存在,输出所有子矩阵左上角的坐标;若不存在输出“Thereisnoanswer”。
Const
SIZE=50;
Var
n1,m1,n2,m2,i,j,k1,k2:
Integer;
a,b:
Array[1..SIZE,1..SIZE]OfInteger;
good,haveAns:
Boolean;
Begin
Readln(n1,m1);
Fori:
=1Ton1Do
Forj:
=1Tom1Do
Read(a[i][j]);
Readln(n2,m2);
Fori:
=1Ton2Do
Forj:
=1Tom2Do
①;
haveAns:
=FALSE;
Fori:
=1Ton1-n2+1Do
Forj:
=1To②Do
Begin
③;
Fork1:
=1Ton2Do
Fork2:
=1To④Do
Ifa[i+k1-1][j+k2-1]<>b[k1][k2]Then
good:
=FALSE;
IfgoodThen
Begin
Writeln(i,'',j);
⑤;
End;
End;
IfNOThaveAnsThen
Writeln('Thereisnoanswer');
End.
2、(大整数开方)输入一个正整数n(1≤n<10100),试用二分法计算它的平方根的整数部分。
Const
SIZE=200;
Type
hugeint=Record
len:
Integer;
num:
Array[1..SIZE]OfInteger;
End;
//len表示大整数的位数;num[1]表示个位、num[2]表示十位,以此类推
Var
s:
String;
i:
Integer;
target,left,middle,right:
hugeint;
Functiontimes(a,b:
hugeint):
hugeint;
//计算大整数a和b的乘积
Var
i,j:
Integer;
ans:
hugeint;
Begin
FillChar(ans,SizeOf(ans),0);
Fori:
=1Toa.lenDo
Forj:
=1Tob.lenDo
①:
=ans.num[i+j-1]+a.num[i]*b.num[j];
Fori:
=1Toa.len+b.lenDo
Begin
ans.num[i+1]:
=ans.num[i+1]+ans.num[i]DIV10;
②;
Ifans.num[a.len+b.len]>0
Thenans.len:
=a.len+b.len
Elseans.len:
=a.len+b.len-1;
End;
times:
=ans;
End;
Functionadd(a,b:
hugeint):
hugeint;
//计算大整数a和b的和
Var
i:
Integer;
ans:
hugeint;
Begin
FillChar(ans.num,SizeOf(ans.num),0);
Ifa.len>b.len
Thenans.len:
=a.len
Elseans.len:
=b.len;
Fori:
=1Toans.lenDo
Begin
ans.num[i]:
=③;
ans.num[i+1]:
=ans.num[i+1]+ans.num[i]DIV10;
ans.num[i]:
=ans.num[i]MOD10;
End;
Ifans.num[ans.len+1]>0
ThenInc(ans.len);
add:
=ans;
End;
Functionaverage(a,b:
hugeint):
hugeint;
//计算大整数a和b的平均数的整数部分
Var
i:
Integer;
ans:
hugeint;
Begin
ans:
=add(a,b);
Fori:
=ans.lenDownTo2Do
Begin
ans.num[i-1]:
=ans.num[i-1]+(④)*10;
ans.num[i]:
=ans.num[i]DIV2;
End;
ans.num[1]:
=ans.num[1]DIV2;
Ifans.num[ans.len]=0
ThenDec(ans.len);
average:
=ans;
End;
Functionplustwo(a:
hugeint):
hugeint;
//计算大整数a加2后的结果
Var
i:
Integer;
ans:
hugeint;
Begin
ans:
=a;
ans.num[1]:
=ans.num[1]+2;
i:
=1;
While(i<=ans.len)AND(ans.num[i]>=10)Do
Begin
ans.num[i+1]:
=ans.num[i+1]+ans.num[i]DIV10;
ans.num[i]:
=ans.num[i]MOD10;
Inc(i);
End;
Ifans.num[ans.len+1]>0
Then⑤;
plustwo:
=ans;
End;
Functionover(a,b:
hugeint):
Boolean;
//若大整数a>b则返回1,否则返回0
Var
i:
Integer;
Begin
If(⑥)Then
Begin
over:
=FALSE;
Exit;
End;
Ifa.len>b.lenThen
Begin
over:
=TRUE;
Exit;
End;
Fori:
=a.lenDownTo1Do
Begin
Ifa.num[i]Begin
over:
=FALSE;
Exit;
End;
Ifa.num[i]>b.num[i]Then
Begin
over:
=TRUE;
Exit;
End;
End;
over:
=FALSE;
End;
Begin
Readln(s);
FillChar(target.num,SizeOf(target.num),0);
target.len:
=Length(s);
Fori:
=1Totarget.lenDo
target.num[i]:
=Ord(s[target.len-i+1])-⑦;
FillChar(left.num,SizeOf(left.num),0);
left.len:
=1;
left.num[1]:
=1;
right:
=target;
Repeat
middle:
=average(left,right);
Ifover(⑧)
Thenright:
=middle
Elseleft:
=middle;
Untilover(plustwo(left),right);
Fori:
=left.lenDownTo1Do
Write(left.num[i]);
Writeln;
End.
CCFNOIP2011普及组(Pascal语言)参考答案与评分标准
一、单项选择题(共20题,每题1.5分,共计30分)
1
2
3
4
5
6
7
8
9
10
B
B
C
C
B
D
C
B
C
C
11
12
13
14
15
16
17
18
19
20
B
A
C
C
C
D
A
A
A
C
二、问题求解(共2题,每题5分,共计10分)
1.128
2.3
三、阅读程序写结果(共4题,每题8分,共计32分)
1.165
2.22366472011
3.3
4.20
四、完善程序(前11空,每空2分,后2空,每空3分,共计28分)
(说明:
以下各程序填空可能还有一些等价的写法,各省可请本省专家审定和上机验证,不一定上报科学委员会审查)
1.①read(b[i][j])
②m1-m2+1
③good:
=true
④m2
⑤haveAns:
=true
2.①ans.num[i+j-1]
②ans.num[i]:
=ans.num[i]mod10;
③ans.num[i]+a.num[i]+b.num[i];
④ans.num[i]mod2(或ans.num[i]and1)
⑤inc(ans.len)(或ans.len:
=ans.len+1)
⑥a.len⑦ord('0')(或48)
⑧times(middle,middle),target