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

[WhiteKuz]

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

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

 

[VahaC]

И чем собсно помочь?? Если написать за вас то вы разделом ошиблись, а если есть конкретные вопросы по реализации тогда задавайте их.

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

 

[0rtega]

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

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