原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
NOIP2010初赛普及组模拟试题(一)
NOIP20100初赛模拟试题（二）
（ 普及 Pascal语言 二小时完成 ）
● 全部试题答案均要求写在答卷纸上，写在试卷纸上一律无效 ●●
一． 单项选择题 （共0题，每题1.5分，共计分。每题有且有一个正确答案）一棵含有101个结点的完全二叉树存储在数组A[1..101]中,对1≤k≤101,若 A[k]是叶子结点,则k的最小值是51 B．50 C．49 D．48
三．问题求解（共2题，分，共计10分
2．若一个数(首位不为零)从左向右读与从右向左读都一样，我们就将其称之为回文数。例如：给定一个十进制数56，将56加65(即把56从右向左读)，得到121是一个回文数。又如，对于十进制数87，
STEPl：87+78=165 STEP2：165+56l=726
STEP3：726+627=l353 SFEP4：1353+3531=4884
在这里的一步是指进行了一次N进制的加法，上例最少用4步得到回文数4884。
那么，对于九进制数87，最少用_________步得到回文数。
四．阅读程序写结果（共4题，每题8分，共计32分 program t1;
const n=7;
var i,k,m,j:integer;
a:array[0..10] of integer;
begin
m:=10;
repeat
read(k);
j:=k mod n;
a[j]:=1;
m:=m-1;
until m=0;
k:=0;
for i:=1 to 10 do
if a[i]=0 then k:=k+1;
write(k);
end.
输入:2005 2006 2007 2008 2009 2010 2011 2012 2013 2014
输出:_________________
2. program t2;
Const Max=2000;
Var a:Array[1..Max+2]of Byte;
i,top,w l,w2,t:Integer;
Procedure Do_with(x,y:Integer);
Var s:lnteger;
Begin
s:=x*y ;
If s10 Then
Begin Inc(t); a[t]:=s; Exit;End;
t:=t+1; a[t]:=s Div 10;
t:=t+l; a[t]:=s Mod 10;
End;
begin
a[1]:=2; a[2]:=3; top:=0; t:=2;
Repeat
Top:=top+1;
Do_with(a[top],a[top+1]);
Until t=Max;
read (w1,w2);
For i:=wl To w2 Do Write(a[i]:2);
End．
输入:15 25
输出:_______________
3. program t3;
program exam3;
var a,x,y,z:Integer;
procedure p(x,y:integer;var z:integer);
begin
z:=y-x-z;
writeln(x,’ ’ ,y,’ ’,z);
end;
function q(m:integer):integer;
begin
z:=z+m:
q:=succ(m);
end;
begin
x:=2; y:=5; z:=9;
p(5,x+y+z,x);
writeln(x,’ ’,Y,’ ’,z)
a:=q(2);
a:=a*q(z);
writeln(a,’ ’,z);
end．
输出:___________
4.program t4;
const n=4:
type se=array[1..n*2]of char;
var i,j,il,j1,k,s t ,sl,L,swap:integer;
temp:char;
a:se;
Begin
for i:=l to n*2 do read(a[i]); readln;
s:=0; t:=0;
for i:=1 to n*2 do
if a[i]=‘1’ then s:=s+1 else if a[i]=‘0’ then t:=t+1;
if(sn) or (tn) then writeln(‘error’)
else begin
s1:=0:
f
文档评论（0）