fork download
copy 
  1. const max=10;
  2. type square=array [-1..max+1,-1..max+1] of longint;
  3. vector=array [1..max*max] of longint;
  4. var n:longint;
  5. x:array [1..8] of longint=(-2,-2,-1,-1,+1,+1,+2,+2);
  6. y:array [1..8] of longint=(-1,+1,-2,+2,-2,+2,-1,+1);
  7. c,r:square;
  8. a,b:vector;
  9. checking:boolean;
  10.  procedure input;
  11.   begin
  12.   readln(n);
  13.   end;
  14.  procedure backTrack(i,u,v:longint);
  15.   var j:longint;
  16.   begin
  17.   if (i>n*n) then
  18.    begin
  19.    checking:=true;
  20.    exit;
  21.    end;
  22.   r[u,v]:=i;
  23.   for j:=1 to 8 do
  24.     begin
  25.     if checking then exit;
  26.     inc(u,x[j]);
  27.     inc(v,y[j]);
  28.     if (u>0) and (u<=n) and (v>0) and (v<=n) and (i<=n*n) and (c[u,v]=0) then
  29.      begin
  30.      c[u,v]:=1;
  31.      backTrack(i+1,u,v);
  32.      c[u,v]:=0;
  33.      end;
  34.     dec(u,x[j]);
  35.     dec(v,y[j]);
  36.     end;
  37.   end;
  38.  procedure solve;
  39.   begin
  40.   fillchar(c,sizeof(c),0);
  41.   c[1,1]:=1;
  42.   r[1,1]:=1;
  43.   checking:=false;
  44.   backTrack(1,1,1);
  45.   end;
  46.  procedure output;
  47.   var j,i:longint;
  48.   begin
  49.   for j:=1 to n do
  50.    begin
  51.    for i:=1 to n do write(r[i,j],' ');
  52.    writeln;
  53.    end;
  54.   end;
  55. begin
  56. input;
  57. solve;
  58. output;
  59. end.
  60.  
Success #stdin #stdout 0.19s 280KB
comments (?)
stdin
copy 
5
stdout
copy 
1 16 15 14 11 
16 13 2 7 14 
15 12 5 10 3 
12 17 8 13 6 
13 14 11 4 9
https://ideone.com/FdFQuX
language:
Pascal (fpc 3.0.4)
created:
9 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!