Заполнение массива не повторяющимися числами.

[Armageddets]

Доброго времени суток, уважаемые эксперты. Нужна Ваша помошь. Стоит задача заполнить массив разного размера (от 4х4 до 9х9). Он должен заполняться числами от 1 до размера массива (4-9). Заполнить массив нужно так, чтобы в строках числа не повторялись дважды и по столбцам не повторялись дважды, например так, но абсолютно случайно:

1234
4123
3412
2341

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

Мой алгоритм таков:

for j:=0 to Razmer-1 do
  begin
    for n:=1 to Razmer do
    begin
    u:=false;
      while u=False do
      begin
      i:=Random(Razmer);
        if (map[i,j]=0) then
        begin
          if j=0 then
          begin
          map[i,j]:=n;
          u:=True;
          end;

          if (j>0) then
          begin
          u:=True;
            for k:=0 to j do
            if map[i,k]=n then u:=False;

            if u=True then
            map[i,j]:=n;
          end;
        end;
      end;
    end;
  end;

Заранее спасибо всем за помощь.

[Stilet]

program Project1;
const n=10;
var i,j,k:integer;
begin
  k:=1;
  for i:=1 to n do begin
    for j:=1 to n do begin
      write(((i+j) mod n + 1):5);
    end; writeln;
  end; writeln;
  readln;
end.

Не? Единственное что не учитываю это случайность. Это важно?

[Armageddets]

Да случайность это очень важно в этом примере. Я пока решил сделать алгоритм так, чтобы каждая новая строка начиналась с числа равного номеру строки, а дальше числа увеличивались на единицу, пока не вылезут за границы допустимого значения. В этом случае я их делал равными единице и снова увеличивал. А потом я переставлял случайно строки, а затем случайно переставлял столбцы, вроде работает пока.

В любом случае спасибо, что откликнулся. А там посмотрю может быть доработаю твой алгоритм.

[Serge_Bliznykov]

Armageddets, всё очень просто.
нужно
1) заполнить массив числами от 1 до N
2) перемешать массив случайным образом.

готовый код можно взять ТУТ

Добавлено
а нет. мой пост "мимо кассы"
я проглядел, что у Вас нужно заполнить матрицу особым образом!!

[Stilet]

По-моему эта задача не решима. Коллизии все равно будут. Нужны дополнительные условия, ИМХО.

[Аватар]

Заполни первую строку случайно. Дальше каждый столбец сверху вниз циклически в последовательности первой строки. Псевдо-случайность конечно, зато решаема.

[Armageddets]

С кучей проверок добился более менее приличного вида. Конечно может баги и будут случаться, но пока не заметил. Этот алгоритм мне нужен был для создания игры-головоломки Хитори. Спасибо всем, кто не остался равнодушен. Уже не раз меня спасали. Думаю тему можно закрывать.