pascal各类-noip2012普及组初赛试题

第青少年信息学联赛初普及组Pascal语言试竞赛时间：20121013 内 鼠 U 队 二叉目前计算机（集成电路）制造的主要原料是（ 十六进制数9A在 ）进制下是232 十 NOI如果一棵二叉树的中序遍历是BAC，那么它的先序遍历不可能是 显示 内 鼠5,4,3,2, 1946年诞生于宾夕法尼亚大学的ENIAC属于 电子 晶体 43214↓312↓↓2↓↓↓↓14英国32英国大瑞典大14↑3↑2↑1 a,b,c（如右图所示），另有元素d已经出栈，则可能的入栈 a,d,c b,a,c a,c,b, d,a,b, 文件交互的一种。 浏览 编译 ）是目前互联网上常用的服务协议 （）就是把一个复杂的问题分成两个或者的相同或相似的子问题，再把子问题分动态规划B.贪 C.分 D.搜64KB32位，则理论上最大可寻址的内存空间为 B. C. D.17.Wi-Fi都是 二、问题求解（2510分点也是整点，那么n至少是 在NOI期间，主办单位为了欢迎来自各地的选手，举行了盛大的晚宴。在第十八桌，有5名大陆选手和5名选手共同进膳。为了增进交流，他们决定相隔就坐，即 三、阅读程序写结果（4832分a,b,c,d,e,ans:readln(a,b,d:=e:=b+c;ans:=d+e; 输入：12n,i,ans:ans:=0;fori:=1tonif(nmodi)=0thenans:=ans+1;

n,i,j:a:array[1..100,1..100]offunctionsolve(x,y:integer):integer;u,v:ifx=nthensolve:=a[x,y];u:=solve(x+1,v:=solve(x+1,y+1);ifu>vthensolve:=a[x,y]+usolve:=a[x,y]+fori:=1tondoforj:=1toidoread(a[i, n(solve(1,1));输入52-12-1--16432-15

n,ans,i,j:integer;s:string;functionget(i:integer):char;ifi<=nget:=s[i]get:=s[i-n:=length(s);ans:=1;fori:=2tondoforj:=0ton-1ifget(i+j)<get(ans+j)thenans:=i;elseifget(i+j)>get(ans+j)thenforj:=0ton-1do 四、完善程序（228328分的点（x、y坐标都比它小），它可以控制的点的数目称为“战斗力”。依次输出每出其中最大的）。SIZE=x,y,f:array[1..SIZE]ofinteger;n,i,j,max_f,ans:integer;fori:=1tondoreadln(x[i],y[i]);max_f:=fori:=1tondof[i] forj:=1tondoif(x[j]<x[i])and ) max_f:= fori:=1tondo （排列数）nm(1n20,1mn)1~nm个数，按字典221321233132

SIZE=used:array[1..SIZE]ofboolean;data:array[1..SIZE]ofinteger;n,m,i,j,k:integer;flag:fillchar(used,sizeof(used),false);fori:=1tomdodata[i]:=i;used[i]:=true;flag:=true;whileflagdofori:=1tom-1dowrite(data[i],' flag:= fori:=mdownto1do forj:=data[i]+1ton fused[j]=falsethenused[j]:=true;data[i]:= flag