Coding für Sortieralgorithmus

[TeronG]

Zitat:

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]

:angel2:

[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... :mrgreen:
In eine Listbox fügst du einen Zufallseintrag wiefolgt ein...

Delphi-Quellcode:

ListBox1.Items.Add(IntToStr(Random(x))

Wobei x natürlich eine Variable vom Typ Integer ist, was das Casting eigentlich auch schon verrät. :stupid:

[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:

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 :mrgreen:

[grumbeernils]

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

gruß
nils