VPF::список со случайными неповторяющимися числами

bagos

Дата 2.8.2009, 16:45 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 275
Регистрация: 17.6.2006

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

Поставил задачу, получить список из случайных не повторяющихся чисел.
Вот что получилось, вроде работает, но один раз из 10-15 получается список с двумя одинаковыми четверками, что за бред не пойму. Помогите плиз разобраться!

Код



var
 i, ran1, ran2: integer;
 bo: Boolean;
 list: TStringList;
begin
 list := TStringList.Create;
 Randomize;
   for i := 0 to 3 do
   begin
     ran2 := Random(12) + 1;
     bo := false;
     if list.IndexOf(IntToStr(ran2)) = -1 then
       list.Add(IntToStr(ran2))
     else begin
       repeat
         ran1 := Random(12) + 1;
         bo := true;
       until (list.IndexOf(IntToStr(ran1)) = -1);
       if bo then
         list.Add(IntToStr(ran1));
     end;
   end;
   lst2.Clear;
   SortList(list);
   lst2.Items.AddStrings(list);
   list.Free;

VanHelsing

Дата 2.8.2009, 17:12 (ссылка)

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

Загрузка ...

ХОЧУ ВСЕ ЗНАТЬ!!!

Награды: 1

Профиль
Группа: Участник
Сообщений: 288
Регистрация: 3.1.2008
Где: Екатеринбург

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

Забыл давно такое не делал. Решил вспомнить:

Код


procedure TForm1.btnRandomClick(Sender: TObject);
var
  i, Rand:Integer;
begin
   lst1.Clear;
   Randomize;
   for i:=0 to 3 do
    begin
      Rand:=Random(12);
      lst1.Items.Add(IntToStr((Rand)));
    end;
end;

Сделал вот так. Да действительно бывают совпадения. Бывает даже что три одинаковых числа.
Идеи следующие: либо увеличить диапазон генерируемых чисел, либо при каждой генерации делать проверку, есть ли уже такое число или нет.

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

Мой блог.
Specialist

Keeper89

Дата 2.8.2009, 19:08 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Код


procedure GetRandomList(N, a, b: Integer;
                        var randList: TStringList);
var
  x, i: Integer;
begin
  // Получаем N уникальных случайных чисел от A до B

  // Если чисел требуется больше, чем есть на интервале - сообщим
  if (b - a < N) then
  begin
    ShowMessage('Невозможно выполнить операцию!');
    Exit;
  end;

  randomize;
  for i := 1 to N do
  begin
    repeat
      x := a + random(b -a + 1);
    until (randList.IndexOf(IntToStr(x)) = -1);
    randList.Add(IntToStr(x));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  randList: TStringList;
begin
  randList := TStringList.Create;
  GetRandomList(30, -15, 15, randList);
  ListBox1.Items.Assign(randList);
  randList.Free;
end;

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

MetalFan

Дата 3.8.2009, 21:54 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

предлагаю еще один алгоритм) подойдет для генерации не повторяющихся чисел в опр.диапазоне.
1. заполняем массив от 1 до N
2. проходимся от 1 до N меняя i-тый элемент на j-тый(случайно выбранный).
тем самым не понадобится делать небыстрый поиск в несортированном списке уже сгенеренных значений.

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

There are always someone smarter than you...

Keeper89

Дата 3.8.2009, 22:48 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Цитата(MetalFan @ 3.8.2009, 22:54

)

2. проходимся от 1 до N меняя i-тый элемент на j-тый(случайно выбранный).

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

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Qu1nt

Дата 5.8.2009, 14:15 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 22
Всего: 50

Можно так

Код


function Shuffle(List: TStringList; Item1, Item2: Integer): Integer;
begin
  Result := - 1 + Random(3);
end;

procedure ShuffleList(Items: TStrings);
begin
  with TStringList.Create do
  begin
    Assign(Items);
    CustomSort(Shuffle);
    Items.Text := Text;
    Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Randomize; // вызывать нужно один раз - помести в OnCreate

  with ListBox1 do
  begin
    Clear;
    // заполняем массив
    for i := 0 to 9 do
      Items.Add(IntToStr(i));
    // перетасовываем
    ShuffleList(Items);
  end;
end;

MetalFan

Дата 5.8.2009, 14:31 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

Qu1nt, во, это я и имел ввиду. т.е. не генерация списка случайных чисел, а перемешивание последовательности.

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

There are always someone smarter than you...

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