Ладьи Опции

[nastya_ab]

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

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

[Michael_Rybak]

Фи, ссылка...

Договорились - давайте придумывать

[Lapp]

Договорились - давайте придумывать

Я некоторое время чувствовал себя некомфортно, как бы с долгом . Сегодня нашел минутку подумать над этой задачей. Вот результат..
Я привожу код, который заполняет массив [1..n] неповторяющимися случайными числами от 1 до n. Код не использует множеств, так что размер массива ограничен выбранным типом переменных (в ТР - по сути, размером блока). Код должен работать, мне кажется, быстрее предыдущего моего варианта.
Принцип такой:
- заполняем массив (RestNum) номерами по порядку (это те номера, которые остались);
- в цикле выдергиваем из этого массива по одному элементу случайным образом и кладем в массив Num, заполняя его по порядку;
- образовавщуюся в RestNum от изымания элемента дыру заполняем, сдвигая хвост массива на один элемент влево, начиная с номера сразу за дырой;
- размер RestNum при этом как бы эффективно уменьшается на 1 (переменная m), что мы учитываем, уменьшая диапазон случайных чисел.
Вот сам код. Его можно оформить в виде процедуры при желании . Если нужно только выводить номера на печать или в файл, то массив Num по сути не нужен, можно вдвое сэкономить память.

const
  n=20;

type
  tRange=array[1..n]of integer;

var
  Num,RestNum:tRange;
  i,j,k,m:integer;

begin
  for i:=1 to n do RestNum[i]:=i;
  m:=n;
  for i:=1 to n do begin
    k:=Random(m)+1;
    Num[i]:=RestNum[k];
    if k<m then Move(RestNum[k+1],RestNum[k],(m-k)*SizeOf(Integer));
    Dec(m)
  end;
  for i:=1 to n do Write(Num[i]:3);
  ReadLn
end.

Сообщение отредактировано: Lapp - 23.06.2007 7:50