NOIP提高组初赛试题汇编(2002-2009)(13)

NOIP提高组初赛试题汇编(2002-2009)noip考试者必备我也是马上要考了!!!

程

序：

programProgram2;const

L:integer=19;SZ:integer=50;UP:char='/';DN:char='\';Var

i,nth,x,y,h,e,f:integer;

m:array[0..1,0..38,0..19]ofinteger;pic:array[0..49,0..49]ofchar;

procedureinit;

vark,s,a,b,c:integer;begin

fora:=0to1do

forb:=0to2*Ldoforc:=0toLdo

m[a,b,c]:=0;m[0,0,0]:=1;

fork:=0to2*L-1dobegin

fors:=1toLdobegin

m[0,k+1,s]:=m[0,k,s+1]+m[1,k,s+1];

m[1,k+1,s]:=(1);

end;

m[0,k+1,0]:=m[0,k,1]+m[1,k,1];end;

end;

proceduredraw(k,s,nth:integer);begin

if(k=0)thenexit;

if((nth-m[1,k,s])>=0)thenbegin

nth:=nth-m[1,k,s];if(y>h)then(2);pic[y,x]:=UP;y:=y+1;x:=x+1;draw(end

elsebegin

y:=y-1;pic[y,x]:=DN;x:=x+1;end;

end;begininit;

(3));

draw(k-1,s-1,nth);