VPF::5 ферзей - Форум программистов

Vsegnev

Дата 28.4.2007, 19:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 28.4.2007

Репутация: нет
Всего: нет

Найти такую расстоновку пяти ферзей на шахматной доске 8х8, при которой каждое поле будет находиться под ударом одного из них.
Всего должно получиться 4860 расстоновок. Нужно вывести все варианты.

Есть похожая задача (помещаю как пример): определить все возможные расстоновки n ферзей на шахматной доске mxm, при условии что ни один ферзь не угрожает другим.
Вот код:

Код


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.

Это сообщение отредактировал(а) volvo877 - 29.4.2007, 08:51

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »