а вот тебе прога этой задачи
program Queens;
const N=8;
type Index=1..N;
Rasstanovka=array [Index] of 0..N;
var X:Rasstanovka;
Count:word;
function P(var X:Rasstanovka;k,y:Index):boolean;
var i:Index;
begin
i:=1;
while (i<k)and(y<>X[i])and(abs(k-i)<>abs(y-X[i])) do inc(i);
P:=i=k
end;
procedure Backtracking(k:Index);
var i,y:Index;
begin
for y:=1 to N do
if P(X,k,y) then
begin
X[k]:=y;
if k=N then
begin
for i:=1 to N do write(X[i]);writeln;inc(Count)
end;
Backtracking(k+1)
end
end;
begin
Count:=0;
writeln('Расстановки ',N,' ферзей:');
Backtracking(1);
writeln('Всего ',Count,' расстановок')
end.
М | Bard, обрати внимание на первый пост в теме "Олимпиадные задачи". Пожалуйста, пость туда только проверенные решения. Я вынес твое сообщение в отдельную тему. Lapp |
Bard, твоя программа у меня вылетела с ошибкой 201... Проверь, пожалуйста, решение.
Вообще-то, решение этой задачи есть в FAQ'е: http://forum.pascal.net.ru/index.php?showtopic=2503