AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Array sortieren

Ein Thema von michael.cohrs · begonnen am 25. Jul 2017 · letzter Beitrag vom 25. Jul 2017
Antwort Antwort
Seite 3 von 3     123
michael.cohrs

Registriert seit: 11. Nov 2005
Ort: Hamburg
130 Beiträge
 
#21

AW: Array sortieren

  Alt 25. Jul 2017, 17:26
Danke für all die Antworten und Diskusionen,

jedoch hat das mein Problem nicht beseitigt, leider.....ich weiß es ist für euch ein Kinderspiel, naja egal
Michael Cohrs
  Mit Zitat antworten Zitat
Jumpy

Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.736 Beiträge
 
Delphi 6 Enterprise
 
#22

AW: Array sortieren

  Alt 25. Jul 2017, 17:37
#10 sollte es doch eigentlich erschlagen.

Wenn nicht muss das Problem woanders liegen ggf. heißen deine Variablen anders oder sonstwas. Da musst du dann nochmal mehr Code zeigen.
Ralph
  Mit Zitat antworten Zitat
nahpets
(Gast)

n/a Beiträge
 
#23

AW: Array sortieren

  Alt 25. Jul 2017, 17:50
Hast Du irgendwelche von den Hinweisen umgesetzt?

Wenn ja, welche und wie sieht der Quelltext jetzt aus?

In Deinen Beispielen greifst Du einmal auf Elemente ausserhalb der Arrays zu. Das funktioniert nicht. Hast Du den Fehler behoben?

Dann vergleichst Du das i. mit dem j + 1. Element.

Ist das i. Element größer, so vertauschst Du die Elemente j und j + 1.

Das erscheint mir nicht zielführend.

Du solltest dann schon eher die miteinander verglichenen Elemente vertauschen.

Gegeben sei folgende Liste:

47
56
23
34
57
10
30
99

Wenn wir hier nun annehmen i sei = 1 und j = 5, dann vergleichst Du 56 mit 30. 56 ist größer als 30. Deine Routine vertauscht daraufhin die 10 mit der 30. Das ist nicht sinnvoll, da 10 kleiner 30 ist und daher in der Sortierung vor der 30 bleiben muss.

Grob sieht es so aus, als müssten die drei zum Vertauschen gedachten Zeilen des ersten Beispiels in das zweite Beispiel und die drei zum Vertauschen gedachten Zeilen des zweiten Beispiels in das erste Beispiel.

Es müsste also erstmal ein Tausch der Tauschroutinen erfolgen.
  Mit Zitat antworten Zitat
Delphi-Laie

Registriert seit: 25. Nov 2005
1.474 Beiträge
 
Delphi 10.1 Berlin Starter
 
#24

AW: Array sortieren

  Alt 25. Jul 2017, 19:20
Irgendwo in der DP gab es auch en "Sortier-Kino", oder wie das Programm hieß.
Das gibt es nach wie vor und erfreut sich auch in diesem Forum seiner neuesten Version, und der Name stimmt fast (bis auf den Bindestrich).

Zeigte mehrere Sortieralgorithmen live nebeneinander.
Nein, also ganz so funktional ist es doch nicht: Immer schön hübsch einzeln werden die Algorithmen angezeigt.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.022 Beiträge
 
Delphi 12 Athens
 
#25

AW: Array sortieren

  Alt 25. Jul 2017, 19:49
hatte auch ohne - gesucht, aber die SuFu meine nö.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Fritzew

Registriert seit: 18. Nov 2015
Ort: Kehl
678 Beiträge
 
Delphi 11 Alexandria
 
#26

AW: Array sortieren

  Alt 25. Jul 2017, 19:55
So jetzt doch einfach mal eine Lösung für sein Problem:
Da er ja schon 12 Jahre hier angemeldet ist wird es ja wohl keine Hausaufgabe sein
Delphi-Quellcode:
program Project32;
{$APPTYPE CONSOLE}
uses
  System.SysUtils;
type
  TRec = record
    Datum: TDateTime;
    Kunde: string;
    Nummer: Integer;
  end;

Var a : array of TRec;

// Erzeugt und füllt das Array
procedure init;
var
  I: Integer;
  ltemp : TRec;
  le : Extended;
  ln : integer;
 begin
   setlength(a, 100);
   randomize;
   for I := Low(a) to High(a) do
    begin
      ltemp.Datum := date + random(400)+ random;
      ln := random(1000);
      ltemp.Kunde := 'Kunde'+inttostr(ln);
      ltemp.Nummer := random(ln);
      a[i] := ltemp;
    end;
 end;

 // Ausgabe auf Console
 procedure printA;
 Var i : integer;
 begin
   for I := Low(a) to High(a) do
    begin
      writeln(DateTimeToStr( a[i].Datum), ' ', a[i].Kunde, ' ', a[i].Nummer);
    end;
 end;

 //Sortiere
 procedure Sort;
 var i, j : integer;
     ltemp : TRec;
 begin
   for i := Low(a) to High(a)-1 do // -1 weil letztes müssen wir nicht prüfen
    for J := succ(i) to High(a) do // i + 1 bis zum letzen
    // Prüfe auf >
     if a[i].Datum > a[j].Datum then
     // Ja tausche
      begin
        ltemp := a[i];
        a[i]:=a[j];
        a[j]:= ltemp;
      end;
 end;

begin
  try
    init;
  // printA;
    Sort;

    printA;
    writeln('fertisch.....') ;
    readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.
Fritz Westermann
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:51 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