program P1004;type
arr=array[0..4,0..4] of integer;const
dx:array[1..4] of longint=(1,-1,0,0);
dy:array[1..4] of longint=(0,0,1,-1);//增量数组。。。var
f:array[1..500000,0..4,0..4] of integer;
a:Arr;
i,j,x_1,x_2,y_1,y_2:longint;
c:char;
flag:boolean;//标记是否为为第一个出现的空位function Comple...
|
