Задача "Домино": сгенерировать рандомно 28 костяшек домино

@Stoxis · Регистрация: 13.10.2014

Студворк — интернет-сервис помощи студентам

Надо написать код, который задавал бы рандомно 28 пар неповторяющихся элементов от 0 до 6.
то есть 28 доминошек.

Pascal

type
    domino=record
      left, right: 0..6
    end;
    ryad=array [1..28] of domino;

@volvo · 05.12.2014, 12:50

Обычно не занимаются генерированием подобных вещей. А заполняют массив последовательными значениями, и потом его перемешивают в случайном порядке:

Pascal

type
  domino = record
    left, right: 0..6
  end;
  ryad = array [1..28] of domino;
 
procedure print(p: ryad);
begin
  foreach var d: domino in p do
    writeln(d.left, ':', d.right);
end;
 
procedure shuffle(var p: ryad);
var
  i, j: integer;
begin
  for i := 28 downto 1 do
  begin
    j := Random(i) + 1;
    Swap(p[i], p[j]);
  end;
end;
 
var
  pack: ryad;
  i, j, k: integer;
 
begin
  k := 0;
  for i := 0 to 6 do 
    for j := i to 6 do
    begin
      k := k + 1;
      pack[k].left := i; pack[k].right := j;
    end;
  
  // print(pack); // до перемешивания
  shuffle(pack);
  print(pack); // после перемешивания
  
end.

Опции темы