400 Zufallszahlen erzeugen & Bubble sortieren

[hansklok]

Hallo, meine Frage ist aus der Überschrift schon abzuleiten. Ich möchte ein Programm schreiben, dass mit Hilfe von Random 400 Zufallszahlen von 1-999 erzeugt und dann per Textout auf das Canvas der Form ausgibt. Durch einen Button Click sollen diese 400 Zahlen mit Hilfe des Bubblesort Algorithmus ebenfalls auf dem Canvas sortiert ausgegeben werden. Kann mir jemand bitte ein paar Codeschnipsel geben?

Danke

MfG
hansklok

[sakura]

Wie weit bist Du denn schon von alleine gekommen?

...:cat:...

[hansklok]

zunächst die 400 Zufallszahlen erstellen:

Delphi-Quellcode:

var 
  Zahl: byte; 
begin 
  randomize; //Initialisieren des Zufallszahlengenerators
  Zahl:= Random(400); //0-400
end;

weiter bin ich leider noch nicht!

[alcaeus]

Hallo hansklok,

du musst die Zahlen in einem Array abspeichern, und dann mit Hilfe der Algorithmen in Daniels Sortieralgorithmen-Tutorial sortieren. So wie du den Code bis jetzt hast, wird eine Zahl von 0-399 generiert.

Greetz
alcaeus

[Binärbaum]

Zitat:

Zitat von hansklok

zunächst die 400 Zufallszahlen erstellen:

Delphi-Quellcode:

var 
  Zahl: byte; 
begin 
  randomize; //Initialisieren des Zufallszahlengenerators
  Zahl:= Random(400); //0-400
end;

weiter bin ich leider noch nicht!

So gehts besser:

Delphi-Quellcode:

var
  zahlen: array[0..399] of Integer;
  i: Integer;
begin
  Randomize;
  for i:= 0 to 399 do
   zahlen[i]:= Random(1000); //Zufallszahlen von 0-999
end;

MfG
Binärbaum

[freak4fun]

Zitat:

Zitat von Binärbaum

Delphi-Quellcode:

var
  zahlen: array[0..399] of Integer;
  i: Integer;
begin
  Randomize;
  for i:= 0 to 399 do
   zahlen[i]:= Random(1000); //Zufallszahlen von 0-999
end;

Wenn man bei dem Random + 1 Rechnet

Delphi-Quellcode:

zahlen[i]:= (Random(1000)) + ;

bringt man da den Zufallsalgorithmus durcheinander? :gruebel:

MfG
fR34k

[alcaeus]

Zitat:

Zitat von freak4fun

Wenn man bei dem Random + 1 Rechnet

Delphi-Quellcode:

zahlen[i]:= (Random(1000)) + ;

bringt man da den Zufallsalgorithmus durcheinander? :gruebel:

Nein, warum? Du zählst ja nur 1 zum Ergebnis hinzu, mit der Folge dass werte von 1-1000 anstatt 0-999 rauskommen. Mit dem Zufallsgenerator hat das herzlich wenig zu tun...

Greetz
alcaeus

[jfheins]

Zitat:

Zitat von freak4fun

Wenn man bei dem Random + 1 Rechnet

Delphi-Quellcode:

zahlen[i]:= (Random(1000)) + 1;

bringt man da den Zufallsalgorithmus durcheinander? :gruebel:

Nein, dann hast du Zahlen von 1 bis 1000, nicht von 0 bis 999 ...

Mit dem Update wird alles besser ... :wink:

[freak4fun]

Super! :thumb:

MfG
fR34k

[Binärbaum]

@freak:
Nein, man sorgt nur dafür, dass alle Zahlen eins größer sind.
Wenn man

Delphi-Quellcode:

zahlen[i]:= Random(1000);

aufruft, erhält man ja eine Zufallszahl von 0-999. Falls man aber keine null haben will, nimmt man

Delphi-Quellcode:

zahlen[i]:= Random(1000)+1;

und erhält somit Zahlen von 1-1000. Der Zufallsalgorithmus bleibt davon ganz und gar unbeeindruckt.

MfG
Binärbaum