Найти расстановку восьми слонов на шахматной доске

Тема в разделе "Delphi - Multimedia, Графика, Игры", создана пользователем WhiteKuz, 29 апр 2010.

  1. WhiteKuz

    WhiteKuz Гость

    Репутация:
    0
    Найти такую расстановку восьми слонов на шахматной доске, при которой каждое поле находится под ударом одного из них. Один из вариантов расстановки представить на экране в графической форме.

    Помогите с прогой, очень срочно надо!!!!!!
     
  2. VahaC

    VahaC Well-Known Member

    Репутация:
    0
    Регистрация:
    10 янв 2007
    Сообщения:
    116
    Симпатии:
    0
    И чем собсно помочь?? Если написать за вас то вы разделом ошиблись, а если есть конкретные вопросы по реализации тогда задавайте их.

    ПС
    За некоторое вознаграждение могу написать ету прогу за вас
     
  3. 0rtega

    0rtega Гость

    Репутация:
    0
    Это типичная задача на перебор с возвратами. Решение задачи – некоторая последовательность, имеющая определенные свойства. На каждом шаге добавляется новый элемент. Если новый элемент добавить нельзя, возвращаемся на предыдущий шаг и пытаемся выбрать другой элемент. Вводятся понятия номер хода и номер варианта.
    Вот шаблонный код процедуры поиска вариантов:

    Код (Text):
    procedure search(k: integer);
    var i:integer;
    begin
    i:=0;{инициализация выбора варианта}
    repeat
    {выбор варианта} inc(i);
    if check (k,i) {подходит} then
    begin
    a[k]:=i;{запись варианта}
    if k<n {решение неполное}
    then search(k+1) {ищем дальше}
    else print;
    a[k]:=0;{стирание варианта}
    end
    until (i=n); {все перебрали};
    end;
    Процедура check(k,i) - удовлетворяет ли текущий вариант твоему условию. Дальше думай сам
     
Загрузка...

Поделиться этой страницей