Генерация случайных уникальных последовательностей с гарантированным интервалом в Delphi

Delphi , Синтаксис , Массивы

Введение

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

Текущее решение

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

Альтернативное решение

В альтернативном ответе предложен подход, основанный на использовании очереди (queue), что позволяет хранить элементы в порядке FIFO (First-In-First-Out). Сначала массив с элементами перемешивается, затем срез последних элементов (размером в желаемый интервал) переносится в очередь. После этого случайным образом выбирается элемент из оставшейся части массива, который затем используется и помещается в конец очереди. Элемент, который первым попадает в очередь, возвращается обратно в массив на место использованного элемента.

Реализация на Delphi

Для реализации описанного алгоритма на языке Object Pascal (Delphi) можно использовать следующий подход:

1. Перемешать исходный массив.
2. Создать очередь и поместить в неё элементы, соответствующие желаемому интервалу (например, одну треть от общего количества элементов).
3. Выбрать случайный элемент из оставшейся части массива.
4. Использовать выбранный элемент и поместить его в конец очереди.
5. Вернуть первый элемент из очереди обратно в массив на место использованного элемента.

Вот пример кода на Delphi, который реализует данный алгоритм:

program RandomSequenceGenerator;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  System.Generics.Collections;

var
  Array: TArray<Integer>;
  Queue: TQueue<Integer>;
  Index, Spacing: Integer;
  Element: Integer;
begin
  SetLength(Array, 10); // Создаем массив из 10 элементов
  for Index := Low(Array) to High(Array) do
    Array[Index] := Index + 1;
  Randomize; // Инициализация генератора случайных чисел
  // Перемешиваем массив
  for Index := Low(Array) to High(Array) - 1 do
  begin
    Swap(Array[Index], Array[Index + Trunc(Random * (High(Array) - Index + 1)))]);
  end;
  // Определяем размер интервала
  Spacing := Length(Array) div 3;
  // Создаем очередь и помещаем в неё элементы для интервала
  SetLength(Queue, 0, TQueue<Integer>);
  for Index := High(Array) - Spacing + 1 to High(Array) do
    Queue.Enqueue(Array[Index]);
  // Выполняем генерацию последовательности
  for Index := 1 to 20 do
  begin
    // Выбираем случайный элемент из оставшейся части массива
    Element := Array[Low(Array) + Trunc(Random * (Length(Array) - Spacing))];
    // Выводим элемент
    Write(Element, ' ');
    // Добавляем элемент в конец очереди
    Queue.Enqueue(Element);
    // Возвращаем первый элемент из очереди обратно в массив
    Array[Array.IndexOf(Element)] := Queue.Dequeue;
  end;
  Writeln;
  Readln;
end.

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

Заключение

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

Создано по материалам из источника по ссылке.

Задача состоит в генерации случайной уникальной последовательности с гарантированным интервалом между повторениями одного элемента, с использованием языка программирования Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Массивы ::