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

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

  1. WhiteKuz

    WhiteKuz Гость

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

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

    VahaC Well-Known Member

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

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

    0rtega Гость

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

    Код (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) - удовлетворяет ли текущий вариант твоему условию. Дальше думай сам
     
Загрузка...

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