Форум программистов [Powered by Invision Power Board]

Код

program queens_rec;
uses crt;
const n=4; nd=n*2;
var m,k : word;
      gr : array [1..n] of boolean;
      vd,zd : array [1..nd] of boolean;
      poza : array [1..n] of word;
    procedure try (i:word);
    var j,l: word;
BEGIN
    for j:= 1 to n do
      if gr[j] and vd[n+j-i] and zd[i+j] then
          begin
       gr[j]:=false; vd[n+j-i]:=false; zd[i+j]:=false;
       poza[i]:=j;
       if i<n then try (i+1)
            else
             begin
          k:=k+1;
          write('; k=',k,' var=');
          for l:=1 to n do write(poza[l]);
         end;
       gr[j]:=true; vd[n+j-i]:=true; zd[i+j]:=true
          end;
END;
BEGIN
      clrscr;
      k:=0;
      for m:=1 to n do gr[m]:=true;
      for m:=1 to nd do
      begin vd[m]:=true; zd[m]:=true; end;
      try(1);
      writeln;
      writeln('‚Vsego ',k,' Variantov');
END.