Генератор случайных чисел Pascal/delphi

[BlowLight]

Требуется написать генератор случайных чисел (pascal, delphi) для квадратного поля (матрицы). При условии, что генерируется по n элем. n типов.
Например, есть поле* 5 x 5, в нём генерируются числа от 1 до 5, численность каждого вида элемента равна пяти. Т.е. поле 5 x 5, пять едениц, пять двоек, пять троек...

[min@y™]

ну и в чём проблем?

[Serge_Bliznykov]

да, реально, в чём проблема?


если решить в "лоб" (не оптимально), тогда получится такой код:

Randomize;
{обнулим матрицу)
for i:=1 to N do 
  for j:=1 to N do Matrix[i,j]:=0;

for k:=1 to N do
  for d:=1 to N do begin
    repeat
      i:=Random(N)+1;
      j:=Random(N)+1;
    until Matrix[i,j]=0;
    Matrix[i,j] := d
  end;

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

Эффективное решение - заполнить матрицу нужными значениями подряд.
Потом правильно перемешать.
Всё.

Если надо, то могу набросать код.

[BlowLight]

Сообщение от Serge_Bliznykov

да, реально, в чём проблема?


если решить в "лоб" (не оптимально), тогда получится такой код:

Randomize;
{обнулим матрицу)
for i:=1 to N do 
  for j:=1 to N do Matrix[i,j]:=0;

for k:=1 to N do
  for d:=1 to N do begin
    repeat
      i:=Random(N)+1;
      j:=Random(N)+1;
    until Matrix[i,j]=0;
    Matrix[i,j] := d
  end;

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

Эффективное решение - заполнить матрицу нужными значениями подряд.
Потом правильно перемешать.
Всё.

Если надо, то могу набросать код.

Набросайте, если не сложно. Заполнение матрицы элементами подряд понятно. Также хотел реализовать перемешивание, однако не вышло.

[Аватар]

http://www.programmersforum.ru/showthread.php?t=106614

[Serge_Bliznykov]

Сообщение от BlowLight

Набросайте, если не сложно. Заполнение матрицы элементами подряд понятно. Также хотел реализовать перемешивание, однако не вышло.

нет проблем.

за основу взял код отсюда - http://www.programmersforum.ru/showp...8&postcount=13

получился такой код:

const N = 5;
var
 i,j,k,m,buf:integer;
 matrix: array [1..N,1..N] of integer;
begin
 //заполнить
 for i:=1 to N do
   for j:=1 to N do matrix[i,j]:=j;
   
   
 Randomize;
 
 //----------перемешать-------------
 for m:=1 to N*N-1 do
  begin
   k:= Random(N*N-m+1)+m;
   if k<>m then begin
     buf:=matrix[(m-1) div N + 1, (m-1) mod N + 1];
     matrix[(m-1) div N + 1, (m-1) mod N + 1]:=matrix[(k-1) div N + 1, (k-1) mod N + 1];
     matrix[(k-1) div N + 1, (k-1) mod N + 1]:=buf;
   end;
  end;
  
 //-------------вывести-------------
 WriteLn('-------------');
 for i:=1 to N do begin
  for j:=1 to N do  Write(Matrix[i,j]:3);
  WriteLn;
 end
end.