Расстановка ферзей

@Wanee · Регистрация: 02.02.2011

Author24 — интернет-сервис помощи студентам

Переделать подпрограмму расстановки ферзей в итерационную так, чтобы стек рекурсии моделировался с помощью массива.

Pascal

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.

Как это сделать?

	24.12.2011, 18:23