array sortieren

[AlexanderBrade]

Ich hab ein riesengroßes Problem wie kann ich folgendes array Feldsortieren?
array[1..24]
Jedem z.B. A[1] ist der Wert eines edit-Feldes zugewiesen.
Ich möchte nun das Feld sortieren um anschließend die 8 höchsten Werte(1-15 sind möglich) zu erhalten um diese dann addieren zu können!
Wie müsste ein solcher BubbleSortAlgorithmus aussehen und wo schreibe ich den genau hin?

[mkinzler]

Array of was?

[AlexanderBrade]

array[1..24] of word
-->Ich will ja Zahlen sortieren!

[Meflin]

Unser Cheffe höchstpersönlich hat ein recht gutes Tutorial zu allerlei Sortieralgorithmen geschrieben ;)
http://www.delphipraxis.net/internal_redirect.php?t=344

[DeddyH]

Auf Wikipedia ist der Bubblesort schön beschrieben (mit pascal-ähnlichem Pseudocode).

[mkinzler]

Die Suchfunktion sollte auch Einiges zu Tage befördern :zwinker:

[AlexanderBrade]

Das hilft mir aber alles nicht weiter:
Selbst wenn ich folgenden Pseudocde habe:

Delphi-Quellcode:

Procedure BubbleSort;
var i,j : Integer;
Begin
  For i:= N downto 1 Do
    For j:= 1 To i Do
      If (Data[j-1] > Data[j]) Then SwapValues( j-1, j );
End;

Wo kommt diese Prozedur hin und wie verweise ich innerhalb einer Button1click prozedur darauf oder kann ich sie in selbige einbauen?
Und vor allem wie komme ich an die 8 "besten" Elemente?

[DeddyH]

Bei dem von Dir geposteten Code fehlt die Hälfte. Du musst das Array schon als Parameter übergeben. Schau Dir doch einfach mal Daniels Tut an und schmeiß Deinen zitierten Code in die Tonne.

[Meflin]

Zitat:

Zitat von AlexanderBrade

Wo kommt diese Prozedur hin und wie verweise ich innerhalb einer Button1click prozedur darauf oder kann ich sie in selbige einbauen?

Du könntest sie direkt in die ButtonClick Prozedur einbauen, oder du fügst die Prozedur im implementation-Teil ein und rufst sie dann schlicht und einfach aus deiner OnClick-Prozedur heraus auf.

Zitat:

Und vor allem wie komme ich an die 8 "besten" Elemente?

Nach dem Sortieren:

Delphi-Quellcode:

for i := 0 to 7 do
  MachWasMit(Array[i])

[AlexanderBrade]

Also so?

Delphi-Quellcode:

Procedure BubbleSort;
var i,j : Integer;
Begin
  For i:= 24 downto 1 Do
    For j:= 1 To i Do
      If (Array[j-1] > Array[j]) Then SwapValues( j-1, j );
End;

[Noedel]

Zitat:

Zitat von AlexanderBrade

Delphi-Quellcode:

Procedure BubbleSort;
var i,j : Integer;
Begin
  For i:= 24 downto 1 Do
    For j:= 1 To i Do
      If (Array[j-1] > Array[j]) Then SwapValues( j-1, j );
End;

Zitat:

Zitat von AlexanderBrade

Delphi-Quellcode:

Procedure BubbleSort;
var i,j : Integer;
Begin
  For i:= N downto 1 Do
    For j:= 1 To i Do
      If (Data[j-1] > Data[j]) Then SwapValues( j-1, j );
End;

du hast jetzt nicht NUR das "i" von "N" auf 24 geändert, oder?!?!

[AlexanderBrade]

Wenn ihr das alle so genau wisst, warum schreibt ihr immer so unkonkrete Antworten!
Natürlich muss ich selbst überlegen! Aber ich habe von Bubblesort etc. bis zum gestrigen Tage nichts gehört und da soll ich wissen wie ich ihn auf mein Problem anpassen kann?!?
Vielleciht hat jemand einen nützlichen Ratschlag!

[DeddyH]

Du hast Links zu einem Tutorial sowie zu Wikipedia bekommen. Das sollen unkonkrete Antworten sein?

[mkinzler]

Zitat:

Vielleciht hat jemand einen nützlichen Ratschlag!

-Antworten genau lesen ( Detlef rit dir z.B. zur Verwendung eines Parameters)
-Antworten/Tutorials versuchen zu verstehen
-Grundwissen ( Variablen muss man deklarieren)
...

[Noedel]

außerdem ist Bubblesort das einfachste Sortierverfahren, das es gibt!
Das Verfahren beruht darauf, dass man immer wieder die Liste durchgeht und sobald man einen Fehlstand entdeckt, diesen korrigiert.
Das macht man dann so lange, bis alle zahlen an der richtigen Stelle sind...

So schwer ist das doch nicht, oder?
Also wenn du uns mal deinen _ernstgemeinten_ Lösungsansatz zeigst, dann können wir dir auch helfen

[AlexanderBrade]

Wie übergebe ich das Feld(array) als Parameter?/Warum kennt mein Delphi die Prozedur "SwapValues" nicht?

Delphi-Quellcode:

Procedure BubbleSort;
var i,j : Integer;
Begin
  For i:= 24 downto 1 Do
    For j:= 1 To i Do
      If (B[j-1] > B[j]) Then SwapValues( j-1, j );
End;

Wenn mein array: B[1..24] ist müsste es doch so hinhauen?!?
P.S. Wie rufe ich die Prozedur aus meiner On-Click prozedur heraus auf?

[mkinzler]

Delphi-Quellcode:

Procedure BubbleSort( inArray: Array of Word);

[Noedel]

Die SwapValues procedure musst du wohl noch selber schreiben...
Also einfach in nem Dreieckstausch die beiden Werte vertauschen

h:=Wert1;
Wert1:=Wert2;
Wert2:=h;

[AlexanderBrade]

Das hat mir schon einmal geholfen, aber warum kennt mein Delphi die Prozedur "SwapValues" nicht?[So kann ich nicht compilieren!]

[mkinzler]

Zitat:

Die SwapValues procedure musst du wohl noch selber schreiben...

[DeddyH]

Wenn ich beim Gockel die Begriffe [google]Delphi + Bubblesort[/google] eingebe, habe ich als 3. Treffer diese Seite, wo der Algo gut erklärt und in verschiedenen Programmiersprachen implementiert wird.

[mkinzler]

Und eine Vertauschen 2 Werten macht man am Besten mit einem Dreieckstausch

[Noedel]

Weil SwapValues eine so genannte, selbst geschriebene Procedure von Wikipedia ist, und dies nicht in diesem Thema "Bubblesort" extra erklärt werden sollte/könnte/müsste/... ach such dir n wort aus :roll:

[EDIT] wohl mal wieder zu spät :shock: [/EDIT]

[AlexanderBrade]

Vielen Dank für die nützlichen Hinweise, aber eine FRage bleibt:
Wie rufe ich die Procedure Bubblesort innerhalb meiner Button1cclick prozedur auf?

[DeddyH]

Zitat:

Zitat von AlexanderBrade

Vielen Dank für die nützlichen Hinweise, aber eine FRage bleibt:
Wie rufe ich die Procedure Bubblesort innerhalb meiner Button1cclick prozedur auf?

Wie jede andere auch.

Delphi-Quellcode:

Bubblesort(MeinArray);

[Noedel]

weil die Frage schon vorprogrammiert (schöner Wortwitz =D ) ist, einer Procedure "SwapValues" übergibt man 2 parameter!

Delphi-Quellcode:

SwapValues(j-1,j)

demnach erwartet diese auch 2!

Delphi-Quellcode:

procedure TForm1.SwapValues(a,b:integer);

[AlexanderBrade]

inzwischen bin ich so weit gekommen:
(Kann jemand mal Korrektur lesen?!?)

Delphi-Quellcode:

procedure Button1Click(Sender: TObject);
    Procedure BubbleSort(var B: Array of byte);
  private
    { Private-Deklarationen }

              {usw.}
Procedure BubbleSort(var B: Array of byte);
   Procedure Swap(var xx,yy:integer);
     var
      Swp: integer;
      begin
        swp:=xx;
        xx:=yy;
        yy:=swp;
      end;

var i,j : Integer;
Begin
For i:= 1 to 24 Do
   For j:= 1 To 24-1 Do
       If (B[j] > B[j+1]) Then Swap( B[j], B[j+1] );

End;

Zunächst mekkert er immer im Deklarationsteil(oben) bei der Prodedure BubbleSort(...), desweiteren missfällt ihm die if Zeile der Prozedur!

[DeddyH]

Was soll denn A sein?

[edit] Und wenn Du es im interface-Teil als Methode Deines Formulars deklarierst, musst Du es im implementation-Teil auch als Methode schreiben:

Delphi-Quellcode:

procedure TDeineForm.Bubblesort(var B: Array of byte);

[/edit]

[AlexanderBrade]

Das ist eine wirklich gute Frage!

[guidok]

Dein Array ist vom Typ "Byte" und deine Swap Prozedure tauscht Werte vom Typ Integer und angeblich ist dein Array ja vom Typ Word. Du solltest dich mal entscheiden.

[AlexanderBrade]

Vielen Dank, da war ich wohl wieder etwas zu flink! Aber trotzdem mekkert er und bezeichnet die Prozedur innerhalb des "type"-Teiles, d.h. vor private als "Ungeügende Forward- oder External-Deklaration: TForm5.BubbleSort"

[DeddyH]

Schieb es mal unter private.

[AlexanderBrade]

Bringt leider auch nichts!

[DeddyH]

Du hast aber nicht im interface-Teil "TForm5" davorgeschrieben, oder? Das gehört nur in den implementation-Teil.

[mkinzler]

Zitat:

-Grundwissen

http://www.delphi-treff.de/tutorials/grundlagen/

[AlexanderBrade]

Nein das habe ich nicht so geschrieben: Mein Code lautet:
[delphi]

procedure Button1Click(Sender: TObject);
Procedure BubbleSort(var B: Array of byte); {hier meldet er den Fehler}
private
{ Private-Deklarationen }

{usw.}
Procedure BubbleSort(var B: Array of byte);
[delphi]

[DeddyH]

Und damit hast Du alles ignoriert, was ich vorher gepostet hab. :?

[AlexanderBrade]

Aber unter Private klappt es ja auch nicht, deshalb habe ich es wieder verworfen...

[mkinzler]

Delphi-Quellcode:

procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
...
Procedure BubbleSort(var B: Array of byte); {hier meldet er den Fehler}
{usw.}
Procedure TForm<x>.BubbleSort(var B: Array of byte);

[DeddyH]

Nochmal zum Mitschreiben:

Delphi-Quellcode:

type 
  TForm5 = class(TForm)
  ...
  private
    Procedure BubbleSort(var B: Array of byte);
  ...
  end;
...

implementation
...

Procedure TForm5.BubbleSort(var B: Array of byte); //hier muss das TForm5 davor

Und nun lies Dir meine vorherigen Postings noch einmal durch.

[edit] *Grmpf* Markus :lol: [/edit]