Delphi. Вопрос с алгоритмом пакетирования.

[Artsiom]

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

Можно вообще отказаться от пакетов.
1. Все юниты (всех противников) имеющие право действия выстраиваются в очередь
2. затем данная очередь перемешивается случайным образом
3. и действия юнитов выполняются в порядке случайной очереди.

От пакетов не откажешься. Там ещё есть один фактор распределения: юниты распределяются в пакеты согласно их весу. Более лёгкие стреляют первые.
И в пакеты распределяется не просто, а
Находим число юнитов в пакете у каждого игрока. Для этого число юнитов у каждого игрока делиться на число пакетов и округляется с избытком (в случае, если получившееся число больше числа неотстрелявшихся юнитов у игрока, размер пакета устанавливается равным числу оставшихся неотстрелявшихся юнитов). В нашем случае 7/4→2 у первого игрока и 4/4→1 у второго. Внимание: округление осуществляется до ближайшего большего целого. Т.е. 5/4→2.

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

а какая разница
случайно выбрать ОДИН из полного списка.
или
случайным образом составить ОДИН.

При условии что вероятности выпадения(выбора/генерации), будут одинаковы.

Наверное я не понимаю.
Варианты ведь составляются в зависимости от количества юнитов, изменяется как длинна варианта пакетов, так и количество этих вариантов. Под вариантом подразумеваю:
последний вариант (B1 A2)(B1 A2)(B1 A2)(B1 A1)
первый (A2 B1)(A2 B1)(A2 B1)(A1 B1) и тд.
Наверное разницы нет или случайно выбрать или случайно составить, но тогда надо сделать так что бы одинаковые пакеты не повторялись больше определённого количества раз...

Мне тут сказали что надо юзать базы данных, но больше ничего от неё не добился. Вопрос появился. Она врёт или с БД это можно легче сделать?
БД предназначена же для хранения данных и всё.

[evg_m]

Наверное разницы нет или случайно выбрать или случайно составить, но тогда надо сделать так что бы одинаковые пакеты не повторялись больше определённого количества раз...

Варианты ведь составляются в зависимости от количества юнитов, изменяется как длинна варианта пакетов, так и количество этих вариантов.

qB:=<число юнитов B>;
r:=min(qA, qB); //число порций (число пакетов) 
r:=min(qA,QB,qC); // как-то так для трех игороков

Находим игрока у которого наименьшее ненулевое число неотстрелявшихся юнитов. Сколько у него юнитов - столько будет пакетов (в нашем случае число пакетов равно 4)

mA:=qA div r; // мощность порции A (число юнитов А в одном блоке пакета)

Находим число юнитов в пакете у каждого игрока. Для этого число юнитов у каждого игрока делиться на число пакетов и округляется с избытком (в случае, если получившееся число больше числа неотстрелявшихся юнитов у игрока, размер пакета (последнего неполного) устанавливается равным числу оставшихся неотстрелявшихся юнитов). В нашем случае 7/4→2 у первого игрока и 4/4→1 у второго.

Внимание: округление осуществляется до ближайшего большего целого. Т.е. 5/4→2.

судя по этому немного не так как написано выше, а

ma:=qA div r;
if qA mod r >0 then mA:=mA+1; // округление в большую сторону

case random(2) of
  0: s:=format('A%d B%d',[mA, mB]);
  1: s:=format('B%d A%d',[mB, mA]);
  end;

Случайным образом выбираем порядок в котором будут стрелять игроки (в нашем случае таких возможностей всего 2: сначала первый потом второй, и наоборот. В случае 3 игроков возможно 6 вариантов: 1-2-3, 1-3-2, 2-1-3, 2-3-1, 3-1-2, 3-2-1, и т.

case ramdom(6) of
 0: A B С // s:=format('A%d B%d C5d',[mA, mB, mC]);
 1: A C B
 2: B A C
 3: B C A
 4: C A B
 5: C B A
 end;

но тогда надо сделать так что бы одинаковые пакеты не повторялись больше определённого количества раз...

Вот этого как раз делать НЕ НАДО. Все пакеты должны быть независмы и равновроятны.