-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
7. Mär 2011
Hm, tja, ich fürchte, ich muss wohl das ganze nochmal überarbeiten. Bin fast am überlegen, ob ich die Funktion zum Erstellen des Sudokus nicht einmal komplett lösche und dann neu machen, gleich vernünftig mit array etc. und mir dann vorher überlege, wie die Logik dahinter ist.
Werd's mir auf jeden Fall nochmal anschauen und: Danke für deine Hilfe!
LG; hans ditter
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
4. Mär 2011
HA! Ich glaub ich hab ihn gefunden, den Fehler. Wobei, war weniger ein Fehler als mehr was vergessen...
Also, die Funktion CreateNewSudoku wird ja vom HA aufgerufen und steuert dann die ganze Erzeugung etc.
procedure CreateNewSudoku(PlaygroundSize: integer);
begin
Size:=PlaygroundSize;
Randomize;
PrepareMap(Size);
if NOT(SetCell(0))
then SetCell(0);
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
4. Mär 2011
@Jumpy
Ich glaube nicht, dass da der Fehler liegt. Ich hatte das (um ehrlich zu sein) bei mir nichtmal in der Unit drin. Weiß nicht, wo das bei dir hergekommen ist. Braucht man ja eigentlich auch nicht, oder?
Ich hab gerade überlegt, ob es möglicherweise woanders dran liegen könnte: Wenn jetzt ein Teilsudoku erstellt wird, bei dem ab einer bestimmten Stelle einfach keine Lösung mehr möglich...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
4. Mär 2011
Hm, ja, scheint wirklich zu laufen. Das mit dem logischen Fehler hab ich auch schon entdeckt, aber ich weiß nicht, wo der Fehler ist... hast du ja auch nicht rausgefunden.
Ich werd mir deine Version und meine die Tage nochmal anschauen. Hoffe, ich finde den Fehler.
LG und danke für die Hilfe,
hans ditter
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
30. Jan 2011
Hallo alle zusammen,
sorry, dass ich erst jetzt schreib. Die Schule frisst einen auf...:roll:
Ich hab den Quellcode nach euren Angaben verbessert. Jetzt scheint es auch zu funktionieren. Allerdings kommt zwischendurch mal ein Sudoku, wo die letzte Reihe nur mit Nullen gefüllt ist. Ich häng das Projekt nochmal ran.
Wenn ihr möchtet, könnt ihr ja gerne auch nochmal testen, ob das bei euch...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
24. Jan 2011
ups... hab ich wohl vor lauter Aufregung vergessen... :oops: passiert mir irgendwie dauernd... :shock:
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
22. Jan 2011
@Jumpy: Also ich hab deinen code mal getestet. Aber es will immer noch nicht funktionieren... :cry:
Ich häng das Projekt mal dran. Hab neben dem Feld nochmal 2 Listen gepackt, die die Werte von j und k anzeigen. Utopisch hohe Werte und vor allem total durcheinander.
Vielleicht magst du nochmal drüber schauen.....??
LG, hans ditter
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
19. Jan 2011
Super. Danke das du nochmal drüber geschaut hast.
Das mit Trunc() hab ich gemacht, weil Delphi mir sagte, dass Smallsize vom Typ Extended (oder so ähnlich) sein müsste. Deshalb Trunc(). Die Umwandlung einer Float zu einem Integer.
Das Andere probier ich nochmal aus!
LG, hans ditter
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
18. Jan 2011
@Jumpy: 'Tschuldige, ich hatte viel zu tun die Tage. Ich häng nochmal das gesamte Projekt ran (ist nicht viel. Nur die Exe, die Projektdateien und die SudokuLogic-Unit, in der du dann auch die Überprüfun findest).
Würde mich freuen, wenn du da mal rüberschauen könntest! :)
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
15. Jan 2011
Also, ich hab deinen Rechenweg noch ein wenig verändert. So wie du ihn hier beschrieben hast, war der nicht ganz richtig...(warum, weiß ich auch nicht so genau, war einfach so... :stupid:)
Hier der Code:
Smallsize:=Trunc(sqrt(Size));
X:=i div SmallSize;
Y:=i div SmallSize;
for j := (SmallSize * X) to (SmallSize * X) do
begin
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
14. Jan 2011
Also ich denke, dass 81 Funktionsaufrufe nacheinander nicht so das Problem darstellen dürften... sollte heute schon funktionieren, zumindest wenn man mal den Preis betrachtet . . . :wink:
Ansonsten: Ja, wäre wohl besser, die Zahlen in einem Array zu speichern, aber soweit war ich einfach noch nicht. Ich wollte das Programm erstmal zum Laufen bringen und dann weitere Funktionen einbauen (z.B....
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
12. Jan 2011
Okeeeee... werd's mal schauen, ob ich das umsetzten kann. Meld mich dann wieder.
Danke für deine Hilfe!
LG, hans ditter
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
12. Jan 2011
Also, ich hab jetzt beides nochmal überprüft.
@Notxor
Ich hab's geändert. Hat auch schonmal was gebracht. Da hat's dann jedesmal funktioniert. Jedes andere 2te Mal kam aber die Fehlermeldung, dass der Litenindex überschritten wurde.
@Jumpy
Ich glaube löschen geht nicht! :D
Ich hab das auch bei dir geändert. Hat dann dazu geführt, dass ich ca. 10-15 Mal ein Sudoku erzeugen konnte. Aber...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
11. Jan 2011
Hast du absolut Recht... das fehlte!
Aber leider behebt es immer noch nicht mein Problem. Ich glaube fast, dass es irgendwie einen falschen Zugriff auf eine falsche TStringList gibt.
Oh man, ich komm einfach nicht weiter...:roll:
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
9. Jan 2011
hm, ich hab's grade mal geändert (hattest übrigens recht, das i sollte ein j sein), hat aber nichts geändert.
Ich glaube eher, dass dig irgendwie '' ist. Aber ich weiß nicht warum.
Könntet ihr dahingehend nochmal durchschauen? Such auch schon seit ein paar Stunden nach dem Fehler... :(
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
9. Jan 2011
Also, ich hab jetzt gerade mal den Pseudocode umgesetzt in meinem Programm. Ob er funktioniert, kann ich noch nicht sagen, da er mir (unverständlicherweise) an einer Stelle sagt, dass " '' ist kein gültiger Integerwert".
Hier mal der Code, mit dem alle Zellen gefüllter werden (sollen):
function SetCell(i: integer) : boolean;
var ValidDecision: TStringList;
j,X,Y: Integer;
dig: string;...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
9. Jan 2011
Oh...:oops: das hab ich dann wohl etwas missverstanden... :oops:
Naja, dann muss ich also retunr doch selber "ausschreiben"... :D
Danke!
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
8. Jan 2011
Also, schau mal bitte in diesen Beitrag.... Da wird definitiv return benutzt (und ja sogar erklärt...).
Kann aber auch sein, dass unser lieber Jason da was durcheinander gebracht hat. :zwinker:
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
8. Jan 2011
Also, ich hab gerade festgestellt, dass mein Turbo Delphi kein return für Funktionen kennt. Oder hab ich vergessen, irgendeine Unit einzubinden?
Ich wollte das machen:
function SetCell(i: integer) : boolean;
begin
if i > Size * Size then
return true;
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
7. Jan 2011
Hi Chris.
Interessanter Ansatz! Daran hab ich auch schonmal gedacht, ein Array of Array zu erzeugen. Aber so wie es im Moment ist, ist es erstmal einfacher für mich. Das muss ich erstmal hinbekommen, dann versuch ich mich vielleicht an deiner Idee... :zwinker:
Denn wie es hesst es so schön:
Immer langsam mit den jungen Pferden! :D
LG, hans ditter
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
5. Jan 2011
Ich denke, ich konnte das Problem jetzt lösen... soll heissen, dass ich's noch nicht als Quelltext probiert hab!
Die Nummerierung i der Felder muss bei NULL anfangen, da war mein Fehler, meines Erachtens!
_|_0_|_1_|_2_|_3_|
0| 0 | 1 | 2 | 3 |
1| 4 | 5 | ...
2|
3|
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
30. Dez 2010
Ich hab grad nochmal ein wenig rumgerechnet... Wenn ich jetzt für i=2 setzte ergibt sich mit deiner Rechenweise folgendes Ergebnis:
X: 2 mod 4 = 2--> hier müsste eig. 1 stehen
Y: 2 div 4 = 0
Bei i=12 folgendes:
12 mod 4 = 0 --> steht für nichts... bei 12 kommt keine Koordinate 0 vor
12 div 4 = 3 --> steht hier für X, statt für Y
Wo ist denn schon wieder der Fehler??:glaskugel: Ich...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
29. Dez 2010
aber wie würdest du die X-Koordinate für i=2 herausfinden?
i mod 4 = 2 mod 4 = 0... x müsste aber 2 sein...
also irgendwie ist das auch noch nicht ganz ausgereift... Wie macht man das bloß, es sind Ferien, ich merks...:stupid:
hans ditter
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
28. Dez 2010
Also, ich knabber im Moment noch ein wenig an der Auswahl des Feldes...
Da ich das ja mit einem einfachen 'i' machen soll (was ja auch Sinn ergibt), müsste man das dann ja wohl umrechnen. Nur leider will mir nicht richtig in den Kopf, wie das gehen soll.
Also, meine bisherigen Überlegungen:
Ich habe ein Spielfeld der Größe 4 x 4. Die Beschriftung der Felder ist (hier nur sporadisch) so:
...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by hans ditter,
27. Dez 2010
achso... also bedeutet das, dass bei return := true das Ergebnis der Funktion auf Wahr gesetzt und die Funktion gleichzeitig verlassen wird? Dann ist mir einiges klarer geworden.
Bin jetzt erstmal essen und dann Theorie... :( kommt aber nochmal ein überarbeiteter Quellcode dann.
Danke und LG,
hans ditter
