8 ферзей

[Роза!!!]

Помогите, пожалуйста, переделать программу))) Нужно, что бы было расставлено 8 ферзей, так, что бы они "не били" друг друга. С помощью матрицы расставить ферзи, а не перечислить расстановки. 1 - это ферзь, всё остальное 0. В строке, столбце и диагонали, где стоит ферзь сумма элементов не превышала 1, т.е. ферзи "не били" друг друга.

program z1;
uses crt;
var a:array[1..8,1..8] of char; i,j,m,n:integer;
begin
clrscr;
writeln('координаты ферзя');
readln(m,n);
for i:=1 to 8 do
for j:=1 to 8 do
begin
if (i=m) and (j=n) then a[i,j]:='1';
if ((i=m) and (a[i,j]<>'1'))
or ((j=n) and (a[i,j]<>'1')) then a[i,j]:='0';
if (i+j=m+n) and (a[i,j]<>'1')
then
a[i,j]:='0';
if (i-j=m-n) and (a[i,j]<>'1')
then
a[i,j]:='0';
if (a[i,j]<>'1') and (a[i,j]<>'0') then a[i,j]:='*';
end;
for i:=1 to 8 do
begin
for j:=1 to 8 do
write(a[i,j]:2);
writeln;
end;
readkey;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[DRAgon™]

http://algolist.manual.ru/maths/combinat/queens.php
..........

[Serge_Bliznykov]

DRAgon™ +1


Роза!!! и ещё посмотрите внизу есть раздел "Похожие темы". Данная задача на форуме не раз поднималась...

[Grag]

Роза!!!, есть готовое решение задачи с псевдо-графическим представлением решения... (псевдо-графика на экране).

Контакты:
e-mail: delmas-61@mail.ru
icq: 585281783
Skype: delmas61