не могу перемешать оба массива без кроссовера и значений, которые находятся за пределами диапазона - PullRequest
Новая
       7

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

0 голосов
/ 16 декабря 2018

У меня есть два массива, которые я хочу перемешать.ниже вы увидите объявления и пример шаффла.

var
  highNums : array[1..9] of integer;
  lowNums  : array[1..20] of integer;
begin
  Q := 0;

  for I := 1 to Length(highNums) do
  begin
    highNums[I] := q;
  end;

  for K := 1 to Length(lowNums) do
  begin
    lowNums[K] := q;
  end;


bigNums[] {25 ..225} every 25
lowNumes[] {1..10} two of each number

procedure shuffleHighArray();
var
  I, ToSwapHigh, HighTemp : integer;
begin
  for I := 1 to length(highNums) do
  begin
    toSwapHigh := Random(length(highNums));
    HighTemp := highNums[I];
    highNums[I] := highNums[toSwapHigh];
    highNums[toSwapHigh] := HighTemp;
  end;
end;


procedure shuffleLowArray();
var
  K, ToSwapLow, LowTemp : integer;
begin
  for K := 1 to length(lowNums)  do
  begin
    toSwapLow := random(length(lowNums));
    LowTemp := lowNums[K];
    lowNums[K] := lowNums[toSwapLow];
    lowNums[toSwapLow] := LowTemp;
  end;
 end;

Вот процедуры, которые я использую вместе с объявлениями обоих массивов.
Спасибо за вашу помощь

1 Ответ

0 голосов
/ 17 декабря 2018

Вы должны использовать универсальный метод для перемешивания вашего массива.

Я написал это для вас: 

uses
  System.Math;

type
  TArrayHelper = class abstract
  public
    class constructor Create;
    class procedure PermuteArray<T>(var A: array of T);
  end;


{ TArrayHelper }

class constructor TArrayHelper.Create;
begin
  Randomize;
end;

class procedure TArrayHelper.PermuteArray<T>(var A: array of T);
var
  Tmp: T;
  i, j: Integer;
begin
  for i := High(A) downto low(A) do
  begin
    j := RandomRange(0, i);
    Tmp := A[i];
    A[i] := A[j];
    A[j] := Tmp;
  end;
end;

Если вы хотите проверить его.Поместите кнопку и памятку в форму, а затем попробуйте этот код: 

procedure TForm1.Button1Click(Sender: TObject);
  procedure DisplayArray(A: array of Integer);
  var
    i: Integer;
    s: String;
  begin
    s := '[';
    for i := low(A) to min(10, High(A)) do
      s := s + A[i].ToString + ',';

    s[Length(s)] := ']';
    Memo1.Lines.Add(s);
  end;

var
  i: Integer;
  Nums: array [1 .. 9000] of Integer;
begin
  Memo1.Lines.Clear;

  for i := low(Nums) to High(Nums) do
    Nums[i] := i;

  DisplayArray(Nums);
  TArrayHelper.PermuteArray(Nums);
  DisplayArray(Nums);
end;
...