Forum: Object-Pascal / Delphi-Language
Delphi
by xyss,
27. Jan 2013
Ja, ein Sudoku wird meines Wissens so aufgebaut, dass man es zuerst komplett (und natürlich auch korrekt) auffüllt, und dann eine gewisse Anzahl an zahlen wieder löscht. Dabei muss allerdings die Bedingung erfüllt sein, dass es eindeutig lösbar bleibt (also dass keine 2 verschiedene Lösungen möglich sind). Damit ein Sudoku überhaupt noch lösbar ist, soll es mindestens 17 Ziffern beinhalten. ...
Forum: Object-Pascal / Delphi-Language
Delphi
by xyss,
26. Jan 2013
Auch hier schonmal ein großes Danke :)
Volker Z, dein Vorschlag hat auf jeden Fall das Problem mit dem Count gelöst (Jetzt hat die Variable Count den Wert 19 und es befinden sich auch wirklich 19 Ziffern im Feld), jedoch lief es nach wie vor bei meinen Versuchen darauf hinaus, dass es immer nur durch Count=19 geendet hat, und nicht durch IsValid(SG). Aber vielleicht finde ich ja noch den...
Forum: Object-Pascal / Delphi-Language
Delphi
by xyss,
26. Jan 2013
Mittlerweile hab ich den Generator schon wieder etwas mehr verbessert(durchschnittlich ~5 Sekunden für ein Sudoku) aber meine Prozedur, welche die Zahlen aus dem vollständigen Sudoku herausziehen soll, funktioniert nicht wie sie soll...
Ich hab zum Thema Sudoku ein wenig "nachgeforscht", und es hieß, dass mindestens 7 der 9 Ziffern irgendwo in dem fertigen Sudoku vorhanden sein müssen, und es...
Forum: Object-Pascal / Delphi-Language
Delphi
by xyss,
25. Jan 2013
Stimmt! Ist mir heute vormittag auch aufgefallen, nachdem ich ein SG.Repaint eingebaut habe und dann mal per Breakpoint geschaut habe :)
Ich hab jetzt einen Array definiert, aus dem er dann die Zahl "ausstreicht" wenn sie einmal benutzt wurde und es nicht weitergeht, und somit geht er dann in dem Fall ein weiteres Feld zurück und probiert dort. Das ganze ist zwar noch nicht 100%ig effizient...
Forum: Object-Pascal / Delphi-Language
Delphi
by xyss,
25. Jan 2013
Ich dachte es würde so funktionieren, dass, wenn alle Testwerte "durchfallen", das heißt, wenn das Programm nicht mehr weiterkommt, es um eine Zelle zurückgeht und dort eine neue Ziffer einfügt.
Daher auch dieser Teil hier
if not Test then
Col:=Col-1
da sollte er doch theoretisch wieder eine Zelle zurückgehen, und die von neuem mit einer Zufallszahl füllen, oder nicht?
Forum: Object-Pascal / Delphi-Language
Delphi
by xyss,
24. Jan 2013
Die procedure TestValues soll ja an sich nur für eine spezifische Zelle jede Zahl durchprobieren, wenn die random-Zahl nicht reinpasst. Und daher muss die Zelle ja auch leer sein bevor sie eine Zahl einfüllt (dachte ich mir jedenfalls so). Die FillUp procedure wird ja durch die IsFilled procedure wieder aufgerufen (wenn diese False ergibt). Ich habs mal mit der vorgeschlagenen Änderung versucht,...
Forum: Object-Pascal / Delphi-Language
Delphi
by xyss,
23. Jan 2013
Guten Abend :)
Auch wenn ich noch relativ neu bin, hab ich mir gedacht, ich Versuch mich mal an einem Sudoku Generator. (vor allem, da ich mich selbst sehr viel mit Sudokus beschäftige) Tragischerweise scheiter ich schon in der ersten Etappe des Programms, nämlich dem kompletten Befüllen eines Sudokufeldes.
Es erscheint jedes Mal ein StackOverflow.
Ob mein Programm jetzt funktionieren würde...
