Coding für Sortieralgorithmus

[TeronG]

Zitat von grumbeernils:

klappt noch ned irgendwie hab das jetz mit dem randomize gemacht

"klappt noch ned" ist keine Fehlerbeschreibung.
Sag doch mal was die Fehlermelung bzw. das Symptom ist....
Oder Zeig mal wie du Random() verwendest...

[hoika]

TeronG

schaust du mir beim Tippen über die Schulter ??


Heiko

[TeronG]

[Klaus01]

.. bedenken solltest Du auch das random keine
größeren Zahlen auswirft als Deine Listbox Einträge hat.

Grüße
Klaus

[grumbeernils]

hier mal das bisherige coding:

Delphi-Quellcode:

var
Form1: TForm1;
i, j, help: integer;
Zahlen: array [0..6] of integer;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
for i:= 0 to 6 do
Zahlen[i] := Random (100);

for i := 0 to 5 do
begin
ListBox1.Items.Add(inttostr(Zahlen[i]));
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin


for j:= 0 to 5 do
begin

for i:= j to 5 do
begin
if (Zahlen[j] > Zahlen[i+1])
then
begin
help := Zahlen[j];
Zahlen[j] := Zahlen[i+1];
Zahlen[i+1] := help;
end
end;
end;

for i := 0 to 5 do
begin
ListBox2.Items.Add(inttostr(Zahlen[i]));
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Clear;
ListBox2.Clear;
end;



end.

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

[Forlan]

Solange er noch nichts schreibt versuch ich mal eine mögliche Fehlerquelle von ihm auszuschließen...
In eine Listbox fügst du einen Zufallseintrag wiefolgt ein...

ListBox1.Items.Add(IntToStr(Random(x)) Wobei x natürlich eine Variable vom Typ Integer ist, was das Casting eigentlich auch schon verrät.

[Edit] Der rote Kasten... =D Das hat er ja richtig gemacht^^[/Edit]

[hoika]

Hallo,

also BubbleSort

Delphi-Quellcode:

for j:= 0 to 5 do
begin
  for i:= j+1 to 5 do
  begin 
    if (Zahlen[j] > Zahlen[i])

j+1


Dein Code klappt zwar,
aber die vergleichst in der i-Schleife sonst
ja den den ersten Eintrag mit sich selbst.


#Edit#:
if (Zahlen[j] > Zahlen[i+1])

Ah so, sieht aber blöd aus :=)
Habe es oben im Code mal geändert.


Heiko

[TeronG]

anmerkung am Rande:
Zahlen: array [0..6] of integer;
Aber im weiteren Verlauf machst du immer nur 0 bis 5 ... (evtl. wegen dem i+1?)

[leddl]

Zitat von TeronG:

anmerkung am Rande:
Zahlen: array [0..6] of integer;
Aber im weiteren Verlauf machst du immer nur 0 bis 5 ... (evtl. wegen dem i+1?)

Nicht nur eventuell, sonst würde es knallen
Du musst ja schließlich den letzten Eintrag nur mit dem Vorletzten vergleichen. Ein weiterer Vergleich würde ins Leere laufen

Hoika sollte aber in der inneren Schleife ruhig todesmutig noch einen weiteren Schleifendurchlauf einplanen

[grumbeernils]

so jetz läuft alles!!!!!
vielen dank an euch alle!!

gruß
nils