Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
15. Feb 2012
Horst, das hast du mit Sicherheit nicht von mir übernommen. :?
BTW, wenn du etwas postest, dann nenn die Dateien bitte ncht Bjoerk*.zip. Danke. :evil:
Zusammenfassung: Von mir: #8 #51, Nicht von mir: Bjoerk*.zip
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
12. Feb 2012
Hallo Horst,
ich bezog mich hier auf die in #15 von TE angegeben Rechenzeiten. Sind alle viel zu groß. Deshalb auch meine Frage bezüglich der aufrufenden procedure.
// Edit: Dort gings noch um 5 mill. Durchläufe..
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
12. Feb 2012
Also, mit deinen 15 sec. kann was nicht stimmen, hab eben mal meine selectionsort 5 Mio mal durchlaufen lassen. < 0,5 s.
Wie reagiert denn deine aufrufende procedure auf das Onchange von A. Eventuell den Sort dann besser als function?
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
9. Feb 2012
Ob 4, 5 oder 6 Vergleiche, das kann bei 1.000.000 Durchläufen max. 5 Sekunden ausmachen. Wenn nicht, dann hast du in der Tat Äpfel mit Birnen verglichen.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Bjoerk,
4. Feb 2012
Sollte auf alle Fälle funktionieren:
procedure Selectionsort(var A: ByteArray);
procedure Exchange(const I, J: integer);
var
T: byte;
begin
T:= A.A;
A.A:= A.A;