Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)
-   -   Grafische Darstellung von Sortierverfahren (https://www.delphipraxis.net/115905-grafische-darstellung-von-sortierverfahren.html)

Nicodius 19. Jun 2008 18:34


Grafische Darstellung von Sortierverfahren
 
Liste der Anhänge anzeigen (Anzahl: 2)
Hey Leute.
Habe mich mal wieder mit Delphi beschäftigt und da kam mir dann ein Programm zur Darstellung von Sortierverfahren in den Sinn.
Vielen Dank an Daniel, dessen Sortieralgorithmen mir schon des öfteren geholfen haben ;) (übrigens wurde der code noch nicht wie in dem thread angekündigt upgedated :P )


Zur Bedienung: Das ganze ist relativ einfach, man füllt zunächst ein Array(value regler = Feldgröße) mit Zufälligen Zahlen von 1 - Pixelregler) - man kann diese auch gleich von 1-100 sortieren dann bekommen man eine pyramide raus.
Ich habe das ganze so gelöst das jede Zufallszahl im Feld in form von Pixeln dargestellt wird und zwar wird die Zufallszahl links und rechts von der zeichenmitte als linie mit der pixellänge gezeichnet also wenn die zufallszahl 50 ist ist die Länge des striches der die Zahl darstellt 100.
Nun kann man mal die Sortierverfahren anklicken - und schwupps sollten die zahlen sortiert werden(kleinste ganz oben - größte ganz unten) im weißen textfeld daneben sieht man die ordnung auch nochmal.

sollte man wieder ein unsortiertes array haben wollen auf "fill array" klicken!
so jetzt zum spannenderen teil ;) man klicke auf show progress rechts im formular und dann wieder fill array
nun kann man mittels klick auf ein sortierverfahren sehen wie das ganze abläuft.

wer will kann sich alternativ dazu noch den mittelwert anzeigen lassen(sollte dieser im array vorkommen) in dem man auf mark klickt(kommen mehrere vor wird der strich dementsprechend dicker da alle werte die den mittelwert darstellen rot gemalen werden)


vorweg wenn man heapsort ausprobiert und direkt darauf bubblesort verändern sich seltsamer weise die werte um +/- 1 ich bin leider noch nicht draufgekommen wieso das so ist aber ich arbeite daran.


ich hoffe es gefällt euch ein bisschen - anregungen sind erwünscht =)

Neue Version - optimierte Darstellungsweise/schnellerer Bildaufbau + Balken möglichkeit
edit kleiner fehler bei den balken aufgefallen funktioniert nur mit 100 pixel derweil wird verbessert

lg nico


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:09 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