Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Генератор не повторяющихся чисел

Автор: Гость_Макс 28.10.2003, 19:36

Помогите пожалуйста!!!!!!!!!
Срочно нужна прога которая заполняет двумерный массив(5-столбцов и 20-строк)
случайными числами от 1 до 100,
только чтобы эти числа не повторялись.

Автор: p0s0l 28.10.2003, 19:54

Вроде так будет работать...

Код

var
  a1 : array [1..20, 1..5] of byte;

procedure RandomArray;
var
  i, j, k, b, n : integer;
  a2 : array [0..99] of byte;
begin
  for i := 0 to 99 do a2[i] := i;
  n := 100;
  for i := 1 to 20 do
    for j := 1 to 5 do
    begin
      b := random(n);
      a1[i, j] := a2[b];
      for b := b to n-2 do a2[b] := a2[b+1];
      Dec(n);
    end;
end;

Автор: Dmitry V.Abramov 28.10.2003, 21:15

p0s0l Красиво. Сразбегу показалось что не будет правильно работать, пока не заметил скромный Dec(n)...

Автор: dm9 28.10.2003, 22:27

У меня то же самое было - действительно, изящное решение

Автор: p0s0l 29.10.2003, 00:09

Так,в догонку - я там перемудрил...

Код

var
  a1 : array [1..5, 1..20] of byte;
  a2 : array [0..99] of byte absolute a1;

procedure RandomArray;
var
  i, b, n : integer;
begin
  for i := 0 to 99 do a2[i] := i;
  for i := 99 downto 1 do
  begin
    n := Random(i+1);
    b := a2[n];
    a2[n] := a2[i];
    a2[i] := b;
  end;
end;

Смысл почти тот же самый, но вроде понятнее...