Zufallszahl sortieren

[spaxxn]

Zitat von MalteV:

Delphi-Quellcode:

  for i := 1 to 10 do
  begin
    y := i;
    if (y + 1) <= 10 then begin
    while zufallszahl[y+1] < zufallszahl[y] do
    begin
      tauschen (zufallszahl[y], zufallszahl[y+1]);
      if y > 1 then y := pred(y);
    end;
  end else begin
    mach es halt anders :P
  end;

oder

Delphi-Quellcode:

  for i := 1 to 9 do
  begin
    y := i;
    while zufallszahl[y+1] < zufallszahl[y] do
    begin
      tauschen (zufallszahl[y], zufallszahl[y+1]);
      if y > 1 then y := pred(y);
    end;
  end;

oder so...