bubble sort ausgabeproblem
Halli hallo,
ich habe ein Problem. Ich möchte gerne Zahlen sortieren mit Hilfe des Bubblesorts. So wie ihr unten sehen könnt habe ich das mit dem sortieren so halb wegs(HOFFE ICH) hinbekommen. Jetzt möchte ich die Zahlen in einer Listbox sortiert ausgeben wie mach ich das? Weil ich habe es schon mit listbox2.items.add(inttostr(buffer)) das macht er zwar aber immer nur eine Zahl.. Ich möchte gerne das alle eingegebenen Zahlen sortiert ausgeben werden. Könnt ihr mir helfen?
Delphi-Quellcode:
procedure Tform3.sortiere;
var buffer,j:integer; begin for i:=1 to (anzahl-1) do if speicher[i]>speicher[i+1] then buffer:=speicher[i]; speicher[i]:=speicher[i+1]; speicher[i+1]:=buffer; end; |
Re: bubble sort ausgabeproblem
Du musst durch den gesamten Array gehen und die Elemente der ListBox hinzufügen.
|
Re: bubble sort ausgabeproblem
bedeutet listbox2.items.add(inttostr(speicher[1..anzahl]))?
|
Re: bubble sort ausgabeproblem
Zitat:
Du musst das array von Beginn bis Ende durchlaufen und in jedem Durchlauf die Zahl als String der Listbox hinzufügen. etwa so:
Delphi-Quellcode:
for i:=0 to High(speicher) do
begin listbox2.items.add(inttostr(speicher[i])); end; |
Re: bubble sort ausgabeproblem
Funktioniert irgendswie nicht, er gibt mir zwar zahlen aus aber genau die selben wie vorher..
|
Re: bubble sort ausgabeproblem
Welche sonst? :mrgreen:
Natürlich nach dem Sortieren. |
Re: bubble sort ausgabeproblem
Der BubbleSort ist doch eh nicht vollständig. Da fehlt ein begin und end, sowie die zweite Schleife.
|
Re: bubble sort ausgabeproblem
Das ist mein Source zu meinem oberen Problem, das Problem ist er vertauscht nicht, gibt nur 0en und die kleinste Zahl aus. Und vertauscht die anderen daten nicht. HILFE-.- Schreib da am Freitag ne Klausur ...
[delphi] begin for j := 1 to 5 do begin for i := 1 to 5 do if speicher[i].Nummer>speicher[i+1].Nummer then begin buffer:=speicher[i].Nummer; speicher[i].Nummer:=speicher[i+1].nummer; speicher[i+1].nummer:=buffer; end; for i:= 1 to 5 do listbox1.items.add(inttostr(speicher[i].Nummer)); listbox2.items.add(speicher[i].Autor); listbox3.Items.add(speicher[i].Titel); listbox4.Items.add(inttostr(speicher[i].Bestand)); end; |
Re: bubble sort ausgabeproblem
Hast du den Algorithmus schonmal auf dem Papier ausgeführt?
|
Re: bubble sort ausgabeproblem
Ich weiß gerade mal nicht was du meinst. Tut mir leid
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:32 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz