VPF::Генератор не повторяющихся чисел

Гость_Макс

Дата 28.10.2003, 19:36 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

p0s0l

Дата 28.10.2003, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

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

Код

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;

Это сообщение отредактировал(а) p0s0l - 28.10.2003, 19:56

--------------------

С уважением, г-н Посол.

Dmitry V.Abramov

Дата 28.10.2003, 21:15 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 177
Регистрация: 30.9.2003
Где: Saint-Petersburg

Репутация: 5
Всего: 4

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

--------------------

/DVA

dm9

Дата 28.10.2003, 22:27 (ссылка)

(нет голосов)

Загрузка ...

Дмитрий Копытин

Профиль
Группа: Vingrad developer
Сообщений: 3876
Регистрация: 22.7.2002
Где: Москва

Репутация: 6
Всего: 137

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

p0s0l

Дата 29.10.2003, 00:09 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

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

Код

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;

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

--------------------

С уважением, г-н Посол.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »