Sortieren mit direktem Auswahlort

[rebellxsky]

Hi Leute,

ich muss in der Schule die Arbeitsweise des Sortierverfahrens mit direktem Auswahlort erklären.
Das Prinzip habe ich schon verstanden.
Mein Problem ist, dass ich nicht weiß, wie man dies in Delphi/Lazarus durchführt.

Ich würde denken, dies macht man mit zwei Array´s, ein unsortiertes und ein sortiertes.
Aber wie sucht man denn die kleinste Zahl im unsortierten Feld heraus???
Außerdem will ich die Zahlen alle über ein Edit-Feld erstmal einlesen (einzeln). Geht das irgendwie???

Ich wäre euch echt dankbar für jede Hilfe.

LG.

[himitsu]

Array oder Liste ... ist am Ende in etwa das Gleiche ... was man halt lieber hat.

Zitat von rebellxsky:

Außerdem will ich die Zahlen alle über ein Edit-Feld erstmal einlesen (einzeln). Geht das irgendwie???

TEdit ... TButton (hinzufügen) ... im OnClick das Array vergrößern und den neuen Wert anhängen oder ein Add auf die Liste ?

[rebellxsky]

ja genau.

jeder wert soll einzeln eingelesen werden und dann angehängt.
Aber dafür muss ja mit jedem betätigen des Buttons das Array um eins vergrößert und dann noch die zahl hinzugefügt werden.
Und an dieser Stelle komme ich nicht weiter.

Und dann sollen die zahlen noch sortiert werden...

[humbuck]

Probiers mal damit:

Delphi-Quellcode:

procedure auswahlsort (var a: array of Word);
var bis,i,j,k : LongInt;
h : Word;
begin
bis := High(a);
for i := 0 to bis - 1 do
begin
h := a[i];
k := i;
for j := i + 1 to bis do if a[j] < h then
begin
h := a[j];
k := j
end;
a[k] := a[i];
a[i] := h
end
end;

[humbuck]

...oder das...

Trifft es vielleicht noch eher...

Delphi-Quellcode:

procedure austauschsort (var a: array of Word);
var bis,i,j : LongInt;
h : Word;
begin
bis := High(a);
for i := 0 to bis - 1 do
for j := i + 1 to bis do
If a[i] > a[j] then begin
h := a[i];
a[i] := a[j];
a[j] := h
end
end;

[humbuck]

Letzteres entspricht dem folgenden Schema:

[Dejan Vu]

Zitat von rebellxsky:

Aber dafür muss ja mit jedem betätigen des Buttons das Array um eins vergrößert und dann noch die zahl hinzugefügt werden.
Und an dieser Stelle komme ich nicht weiter.

Und dann sollen die zahlen noch sortiert werden...

Zitat von humbuck:

...das...Trifft es vielleicht noch eher...

Delphi-Quellcode:

procedure austauschsort (var a: array of Word);
...

Also irgendwie... Glaub nich (Antwort passt nicht so richtig zur Frage). Bezüglich der o.g. Frage wäre eher folgender Schnippsel hilfreicher:

Delphi-Quellcode:

var
  myList : TList<integer>;
  myArray : Array of Integer;

begin
  myList := TList<integer>.Create;
  setLength(myArray,0);

// Anfügen eines Wertes
// 1. An eine TList<int>
myList.Add(Value);

// 2. An ein Array
  SetLength(myArray, Length(myArray) + 1);
  myArray [Length(myArray)] := Value;

[humbuck]

Morgens!

Zitat:

Also irgendwie... Glaub nich (Antwort passt nicht so richtig zur Frage).

Lieber Dejan Vu

Die Aufgabenstellung umfasst doch die Frage nach einem bestimmten Algorithmus: Sortieren mit direktem Auswahlort sprich: Sortierung durch direkte Auswahl...
Meine Programmbeispiele beantworten die Frage nach dem gesuchten Algorithmus definitiv... Ein anderes Programmbeispiel mit umfassender Beschreibung findet man (sogar in Delphi geschrieben) unter Wikipedia.
Dazu muss man dann noch EINE seiner Fragen berücksichtigen:

Zitat:

Aber wie sucht man denn die kleinste Zahl im unsortierten Feld heraus???

Hmmm... Da passt meine Antwort doch auch oder?

Naja, ich gebe zu, nicht all seine Fragen werden von mir beantwortet...
Aber ich glaube darum sollte es hier auch gar nicht gehen.

Ich denke, an dieser Stelle müsste der junge Padawan noch mal zum Zuge kommen und vielleicht erklären, was genau die Aufgabenstellung an IHN ist.

Mir stellt sich nämlich die Frage, ob es eine genaue Definition zur Lösung einer gestellten Aufgabe gibt, oder ob er vielleicht nur das gesucht Sortierverfahren, bzw. den Algorithmus, in Delphi umzusetzen hat und es ihm dabei frei gestellt ist, wie er ein veranschaulichendes Programm schreibt; nämlich mit dem benannten Button (auf den bisher noch keiner von uns genauer eingegangen ist) und einem dynamischen Array.
Es stellt sich nämlich hieraus unweigerlich die Frage, wird von einer statischen Werte-Menge wie z.B. Lottozahlen ausgegangen oder eine variable Werte-Menge wie z.B. aus sich veränderten Messergebnissen...?

Also: Ein Appell an den Verfasser dieses Themas: Schreib doch mal wieder.

[Dejan Vu]

Zitat von humbuck:

Hmmm... Da passt meine Antwort doch auch oder?

Stimmt ja, nur so unmittelbar nach der Frage, wie man Zahlen in ein Array stopft, fand ich deine Antwort halt lustig.

Stell Dir vor, jemand will von Hamburg nach Berlin mit dem Auto, und zwar in die Skeuderitzer Str. 28. Er fragt, wo der Rückwärtsgang ist, weil er ausparken muss und Du gibst im Tipps, wie man in die Skeuderizter Str. einbiegt (weil da ne Baustelle ist). Klar, ohne deinen Tipp kommt er nicht an, aber er muss doch erst mal losfahren

Komm schon, die Sonne scheint (jedenfalls hier)

Grüße

[rebellxsky]

Erstmal möchte ich mich für die Antworten bedanken.
Trotzdem habe ich noch ein paar Fragen:
1. Um die Zahlen in das Array (sort) einzufügen habe ich das so gemacht:

Delphi-Quellcode:

zahl:= strtoint(edteingabe.caption);
 for a:= min + 1 to bis do
       begin
            sort[a]:= zahl;
       end;

Delphi-Quellcode:

bis := High(sort);
 min := low (sort);

Frage: Funktioniert das so?

2. Um die Zahlen zu sortieren:

Delphi-Quellcode:

For i:= 1 to N-1 Do
   Begin
     min:= i;
     For j:= i+1 To N Do
       If (sort[j] < sort[min]) Then
       min:= j;

bis dahin bin ich gekommen(vgl.http://www.delphipraxis.net/281-tuto...hmen-i-ii.html)
Dort steht nun aber die Werte i und min müssen getauscht werden (Dreieckstausch?). Aber wieso und wie sieht das dann aus?
Und wie kann man dann das sortierte Array auf ein Label ausgeben???

Ich bedanke mich schonmal für alle Antworten.