Задача про ферзей Опции

[Ola]

Помогите, пожалуйста, решить задачу про ферзей: на шахматной доске размером NxN расставить N ферзей, чтобы они не били друг друга. ???

[Ola]

Прсто автор уже решила эту задачу с помощью книги Вирта. Могу привести полностью программу.

Код

uses crt;
var i:integer;
     a:array[1..8] of boolean;
     b:array[2..16] of boolean;
     c:array[-7..7] of boolean;
     x:array[1..8] of integer;
procedure Print;
var k:integer;
begin
   for k:=1 to 8 do write(x[k]:3);
   writeln;
end;
procedure Try(i:integer);
var j:integer;
begin
for j:=1 to 8 do
if (a[j]=true) and (b[i+j]=true) and (c[i-j]=true) then
begin
x[i]:=j;
a[j]:=false;b[i+j]:=false;c[i-j]:=false;
if i<8 then try(i+1)
else print;
procedure Try(i:integer);
var j:integer;
begin
for j:=1 to 8 do
if (a[j]=true) and (b[i+j]=true) and (c[i-j]=true) then
begin
x[i]:=j;
a[j]:=false;b[i+j]:=false;c[i-j]:=false;
if i<8 then try(i+1)
else print;
a[j]:=true;b[i+j]:=true;c[i-j]:=true;
end;
end;
begin
clrscr;
for i:=1 to 8 do a[i]:=true;
for i:=2 to 16 do b[i]:=true;
for i:=-7 to 7 do c[i]:=true;
try(1);
readln;
end.

Сообщение отредактировано: volvo - 17.12.2004 18:23