Sortere et array med talværdier

Det kommer an på hvad du vil. Er det tallene fra 1 til 30?
Er der nogen krav på "tilfældighed".

En yderst simpel løsning, som samtidig sorterer dem er:

1) Start med et tilfældigt tal mellem 1 og 10.
2) Vælg nu 29 gange et nyt tilfældigt tal mellem 1 og 10, og
  adder til det foregående.

Vupti: 30 "tilfældige" tal i voksende rækkefølge.

erikjacobsen: Jeg har en random funktion, som f.eks 12 gange vælger et tal mellem 1 og 30... Det tilfældige tal må ikke have en værdi > end de 30, og det vil det med den løsning du foreslår...Men har selv tænkt tanken...

Function ArrayToString(const a : Array of Integer) : String;
var
  i : Integer;
begin
  Result := '[';
  for i := Low(a) to High(a) do
  begin
    if a[i] < 10 then
      Result := Result + '0' + IntToStr(a[i]) + ','
    else
      Result := Result + IntToStr(a[i]) + ',';
  end;

  Result [Length(Result)] := ']';
end;

procedure QuickSort(var A: array of Integer);
  procedure Sort(iLo, iHi: Integer);
    var
      Lo, Hi, Mid : Integer;
      T: integer;
    begin
      Lo := iLo;
      Hi := iHi;
      Mid := A[(Lo + Hi) div 2];
      repeat
        while A[Lo] < Mid do Inc(Lo);
        while A[Hi] > Mid do Dec(Hi);
        if Lo <= Hi then
        begin
          T := A[Lo];
          A[Lo] := A[Hi];
          A[Hi] := T;
          Inc(Lo);
          Dec(Hi);
        end;
      until Lo > Hi;
      if Hi > iLo then
        Sort(iLo, Hi);
      if Lo < iHi then
        Sort(Lo, iHi);
    end;
begin
  Sort(Low(A), High(A));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i, Len : Integer;
  a : Array of integer;
begin
  len := Random(30);
  SetLength(a, Len);
  for i := 0 to Len do
    a[i] := Random(500);

  Memo1.Lines.Add(ArrayToString(A));
  QuickSort(a);
  Memo1.Lines.Add(ArrayToString(A));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize;
end;


Jens B

Borrisholt: Den sorterer fint med det du foreslår, men der er stadig værdier som er ens....

Måske er der en metode her der virker:

http://www.udvikleren.dk/article.php?aid=140&techid=2

Her en lille tilføjelse til Borrisholts eksempel:

type
  AInteger = Array of Integer; // denne type skal bruges i både FjerneGenGangere-proceduren og Button1Click-proceduren, hvorfor den skal være længere oppe i din kode end begge procedurere.

procedure FjernGenGangere(var A: AInteger);
var
  I: Integer;
  AInt: AInteger;
begin
  SetLength(AInt, 0);
  for I := Low(A) to High(A) do
  begin
    if I = Low(A) then
    else if A[I] <> A[I - 1] then
    begin
      SetLength(AInt, Length(AInt) + 1);
      AInt[High(AInt)] := A[I];
    end
    else if A[I] <> A[I - 1] then
    begin
      SetLength(AInt, Length(AInt) + 1);
      AInt[High(AInt)] := A[I];
    end;
  end;
  A := AInt;
end;

Desuden skal Button1Click-proceduren erstattes med denne lidt ændrede version:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, Len : Integer;
  a : AInteger;
begin
  len := Random(30);
  SetLength(a, Len);
  for i := Low(a) to High(a) do // Jens: Her var der en lille fejl, da din version svarede til at man skrev for i := Low(a) to Length(a) do, og Length(a) vil altid i et dynamisk array være en større end High(a). Faktisk kunne jeg ikke trykke på knappen uden at få fejl, inden jeg rettede denne fejl.
  begin
    if (i mod 6 = 0) and (i > 0) then
      a[i] := a[0]
    else
      a[i] := Random(500);
  end;

  Memo1.Lines.Add(ArrayToString(A));
  QuickSort(a);
  FjernGenGangere(a); // FjernGenGangere-proceduren virker kun i sorterede arrays, derfor skal den kaldes efter sorteringen.
  Memo1.Lines.Add(ArrayToString(A));
end;

Jeg takker de herrer...