Matematické Fórum

Skrytý text:

program cesta_kralem;

type type_sachovnice = array[1..8,1..8] of byte; type_prekazky = array[1..8,1..8] of boolean;
souradnice = record
         x,y :byte;
      end;
     
procedure cislicka(var sachovnice:type_sachovnice; prekazky :type_prekazky; od:souradnice; var zmena:boolean);
var moje :byte;
begin moje := sachovnice[od.x,od.y] +1;
   if (od.x > 1) then
      if (not prekazky[od.x-1,od.y]) then
         if (sachovnice[od.x-1,od.y] = 0) then
         begin
            sachovnice[od.x-1,od.y] := moje;
            zmena := true;
         end;
   if ((od.x > 1 ) and (od.y < 8)) then
      if (not prekazky[od.x-1,od.y+1]) then
         if (sachovnice[od.x-1,od.y+1] = 0) then
         begin
            sachovnice[od.x-1,od.y+1] := moje;
            zmena := true;
         end;         
   if (od.y < 8) then
      if (not prekazky[od.x,od.y+1]) then
         if (sachovnice[od.x,od.y+1] = 0) then
         begin
            sachovnice[od.x,od.y+1] := moje;
            zmena := true;
         end;
   if ((od.x <8) and (od.y<8)) then
      if (not prekazky[od.x+1,od.y+1]) then
         if (sachovnice[od.x+1,od.y+1] = 0) then
         begin
            sachovnice[od.x+1,od.y+1] := moje;
            zmena := true;
         end;
   if (od.x < 8) then
      if (not prekazky[od.x+1,od.y]) then
         if (sachovnice[od.x+1,od.y] = 0) then
         begin
            sachovnice[od.x+1,od.y] := moje;
            zmena := true;
         end;
   if ((od.x <8) and (od.y > 1)) then
      if (not prekazky[od.x+1,od.y-1]) then
         if (sachovnice[od.x+1,od.y-1] = 0) then
         begin
            sachovnice[od.x+1,od.y-1] := moje;
            zmena := true;
         end;
   if (od.y > 1) then
      if (not prekazky[od.x,od.y-1]) then
         if (sachovnice[od.x,od.y-1] = 0) then
         begin
            sachovnice[od.x,od.y-1] := moje;
            zmena := true;
         end;
   if (( od.x >1) and (od.y > 1)) then
      if (not prekazky[od.x-1,od.y-1]) then
         if (sachovnice[od.x-1,od.y-1] = 0) then
         begin
            sachovnice[od.x-1,od.y-1] := moje;
            zmena := true;
         end;
end;

var pocet,i :byte; sachovnice :type_sachovnice ;prekazky :type_prekazky;
zacatek, konec :souradnice; a,b :byte; bod :souradnice; zmena :boolean;

begin
   for a:=1 to 8 do
      for b:=1 to 8 do
         begin
            sachovnice[a,b] := 0;
            prekazky[a,b] := false;
         end;
   read(pocet);
   for i:=1 to pocet do
   begin
      read(a,b);
      prekazky[a,b] := true;     
   end;
   read(zacatek.x,zacatek.y);
   read(konec.x,konec.y);
   

   i := 0;
   repeat
   
      zmena := false;

      if (i = 0) then
      begin
         
         cislicka(sachovnice,prekazky,zacatek,zmena);       
         
      end
      else
      begin
     
         for a:=1 to 8 do
            for b:=1 to 8 do
            begin

               bod.x := a; bod.y := b;           
               if (sachovnice[a,b] = i) then cislicka(sachovnice,prekazky,bod,zmena);
           
            end; 
     
      end; 
     
      inc(i);
   until ((not zmena) or (sachovnice[konec.x,konec.y] > 0));

   if (sachovnice[konec.x,konec.y] > 0) then write(sachovnice[konec.x,konec.y]) else write(-1);   
   

end.