Ладьи Опции

[nastya_ab]

Помогите пожалуйста!

Ладьи.
Требуется найти такую расстановку 8 ладей на шахматной доске, при которой они не будут угрожать друг другу. Первые три фигуры расставляет пользователь.

[Lapp]

А мне кажется, что klem4 прав. По сути, я ждал этого вопроса. Клем только забыл главный аргумент - масштабируемость. Ведь никто не сказал, что доска не может быть, скажем, 1000х1000 или еще больше.. И тогда эффективность алгоритма резко упадет..

Вот реализация алгоритма, который существенно повышает эффективность при сохранении случайности выбора:

const
  b=8;    {размер доски}
  m=3;    {начальное число ладей}

var
  l:char;
  n,k:byte;
  i:integer;
  Letters:set of char;
  Numbers:set of byte;

begin
  Letters:=[];
  Numbers:=[];
  for i:=1 to m do begin
    Write('Введите положение (буква и цифра через пробел) ладьи ',i,': ');
    ReadLn(l,n);
    Include(Letters,UpCase(l));
    Include(Numbers,n);
  end;
  WriteLn('Остальные ладьи можно расставить так:');
  for i:=m+1 to b do begin
    k:=Random(b-i+1)+1;
    l:='@';
    repeat
      Inc(l);
      while l in Letters do Inc(l);
      Dec(k)
    until k=0;
    Include(Letters,l);
    k:=Random(b-i+1)+1;
    n:=0;
    repeat
      Inc(n);
      while n in Numbers do Inc(n);
      Dec(k)
    until k=0;
    Include(Numbers,n);
    WriteLn(l,' ',n)
  end;
  ReadLn
end.

Алгоритм, вроде, работает (хотя я уже практически сплю, могут быть ошибки.. ), но мне почему-то кажется, что он неоптимальный. Кто-нить может быстрее?
При существенном увеличении размера доски буквы можно заменить на цифры.