30 lines
1.1 KiB
ObjectPascal
30 lines
1.1 KiB
ObjectPascal
|
function IsSafe(board: array of integer; row, col: integer): boolean;
|
|||
|
|
begin
|
|||
|
|
Result := True; // Предполагаем, что позиция безопасна
|
|||
|
|
for var i := 0 to row - 1 do
|
|||
|
|
if (board[i] = col) or // Проверка вертикали
|
|||
|
|
(board[i] - i = col - row) or // Проверка диагонали /
|
|||
|
|
(board[i] + i = col + row) then // Проверка диагонали \
|
|||
|
|
begin
|
|||
|
|
Result := False; // Найден конфликт
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure SolveNQueens(board: array of integer; row: integer);
|
|||
|
|
begin
|
|||
|
|
if row = 8 then // Все ферзи расставлены успешно
|
|||
|
|
board.Println
|
|||
|
|
else
|
|||
|
|
for var col := 0 to 7 do
|
|||
|
|
if IsSafe(board, row, col) then
|
|||
|
|
begin
|
|||
|
|
board[row] := col; // Поставить ферзя на ряд row
|
|||
|
|
SolveNQueens(board, row + 1); // Рекурсивный вызов для следующго ряда
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var board := [0] * 8;
|
|||
|
|
SolveNQueens(board, 0); // Начинаем с первой строки (0)
|
|||
|
|
end.
|