Sortieralgorithmen

[biby90]

ihr habt recht he he... immerhin ist das thema funktionen vorbei.....

Zitat:

Immer noch am sortieren, Kumpel?

ja ganz genau... nur noch feinarbeiten..... kannst mich gerne als kumpeline bezeichnen:wink:


wie änder ich hier denn den namen? oder geht das gar nicht

[DeddyH]

Das geht nur innerhalb von 24 Stunden. Aber wenn Du einen Mod lieb darum bittest ("Report"-Button), übernimmt er das bestimmt gerne für Dich ;)

[biby90]

ich tu mein bestes^^

[bernerbaer]

Auch wenn es hier nun keine direkte Hilfe ist. Ich finde die Aufgabenstellung bzw die Anforderungen sind didaktisch mindestens fragwürdig.

Als Programmierer geht man (ich) in der Regel vereinfacht so vor:

1. Problemerfassung (Was wird verlangt?)
2. Welche Eingaben benötige ich/sind vorgegeben (Hier TStrings bzw Memo.lines)
3. Wie soll das Resultat präsentiert werden? (Hier TStrings, bzw Memo.lines)
4. Wie gelange ich von der Eingabe zum Resultat (Algo -> Hier Shellsort)

Nun wenn ich hier diese obigen Schritte durchgehe, wird ein (durchschnittlicher) Programmierer wohl den kürzesten und effizientesten Weg wählen. Input und Output sind vom Typ TStrings, weshalb sollte ich da einen Umweg über Array of String nehmen? Für das Erreichen des Zieles (Schreiben eines Sortieralgorithmus) ist das absolut unerheblich und lenkt nur von der eigentlichen Aufgabe ab.

[biby90]

Zitat:

Als Programmierer geht man

ich bin doch noch ein anfänger.... das muss ich halt alles noch lernen.
ich bin ja erst seit zwei wochen in der ausbildung und muss mich erst einmal an das ganze gewöhnen...
außerdem sind das alles vorgaben von meinem ausbilder um mir das ganze etwas einfacher zu machen... sprich unnötige funktionen erstellen und so weiter für den reinen lerneffekt

[bernerbaer]

Mein Beitrag war auch keineswegs als Vorwurf an Dich gemeint, sondern richtete sich nur an Deinen Ausbildner.

[Medium]

Didaktik scheint aber den meisten (nicht-akademischen) IT-Wissensvermittlern abzugehen. Im Hochschulumfeld fehlt dann aber wiederum gerne mal die Praxisrelevanz :mrgreen:

[biby90]

@bernerbear
hab ich auch nicht als eine aufgefasst....

naja selber ausprobieren find ich persönlich besser. man sieht seine fehler und lernt daraus.

[biby90]

habe jetzt in meinem button eingefügt, dass wenn ein leerstring vorhanden ist, die zeile gelöscht wird. aber irgendwie funktioniert das nicht ganz.... wenn er es sortiert hat fehlt ein wort und die obere zeile ist leer....
ich habe mir jetzt gedacht, dass ich die zeile um einen verschiebe, wenn eine zeile gelöscht wurde.
also entweder lasse ich ihn das ganze noch einmal prüfen ab der gelöschten zeile oder mache es so wie ich es probiert habe....

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  lArray: array of String;
  i, j : Integer;
  A, B : String;
begin
  SetLength(lArray, Memo1.Lines.Count);

  for i := 0 to Memo1.Lines.Count -1 do
  begin
    //sicherstellen, dass der String min. ein Zeichen hat.
    if Memo1.Lines.Strings[i] = '' then
    begin
      Memo1.Lines.Delete(i);
      dec(j); //klappt trotzdem nicht
    end else
    begin
      lArray[i] := Memo1.Lines.Strings[i][1];
    end;
  end;

    //Array sortieren.
    ShellSort(lArray);

    //TODO: Array zurück ins Memo kopieren.
    Memo1.Lines.Clear;
    Memo1.Lines.Add('');
    for i := 0 to Length(lArray) - 1 do
    begin
      Memo1.Lines.Add(lArray[i]);
    end;
end;

naja es klappt aber irgendwie nicht.

[Bjoerk]

Das mußt du mit einer while Schleife machen, da sich Memo1.Lines.Count ändert, wenn eine Zeile gelöscht wurde.