level 1
禁锢の夜
楼主
program NOIC4; var total:integer;x,y,n,m,j,k:integer;checkerbored:array[0..4,0..8] of boolean; procedure died(x,y:integer); begin if (x=n) and (y=m) then total:=total+1 else begin if (x+1<=4) and (checkerbored[x+1,y]=true) then died(x+1,y); if (y+1<=8) and (checkerbored[x,y+1]=true) then died(x,y+1); end; end; begin write('endpoint=[n,m]'); readln(n,m); write('horse=[x,y]'); readln(x,y); for j:=0 to 4 do for k:=0 to 8 do checkerbored[j,k]:=true; checkerbored[x,y]:=false;checkerbored[x+1,y+2]:=false;checkerbored[x+1,y-2]:=false; checkerbored[x-1,y+2]:=false;checkerbored[x-1,y-2]:=false;checkerbored[x-2,y+1]:=false; checkerbored[x+2,y-1]:=false;checkerbored[x-2,y-1]:=false;checkerbored[x+2,y+1]:=false; died(0,0); for j:=0 to 4 do begin for k:=0 to 8 do if (j=0) and (k=0) then write('BEGIN':6) else if (j=n) and (k=m) then write('END':6) else write(checkerbored[j,k]:6); writeln; end; write(total); end.
2007年05月12日 12点05分
1
