Guten Morgen,
ich bräuchte mal einen Denkanstoß, ich komm einfach nicht mehr weiter.
Und zwar habe ich ein Sudokufeld (Array 0..8 of Array 0..8)
Nun habe ich 2 Routinen geschrieben zum Prüfen ob eine Zahl in einer Reihe oder in einer Spalte doppelt sind :
Bsp. Code zum Prüfen in einer Reihe:
Delphi-Quellcode:
Var
x, y, i, j: integer;
Begin
x := 0;
y := 0;
i := 1;
Repeat
Repeat
Repeat
If (aSudoku[x, y] = aSudoku[x, y + i]) And (aSudoku[x, y] > 0) Then Begin
ShowMessage('Eine Zahl in Reihe ' + IntToStr(x + 1) + ' ist doppelt');
i := i + 1;
End Else
i := i + 1;
Until (y + i) >= 8;
y := y + 1;
i := 1;
Until y >= 8;
y := 0;
x := x + 1;
i := 1;
Until x >= 9;
Nun stellt sich mir die Frage, wie Prüfe ich ob in einem Feld 3x3 eine Zahl doppelt vorkommt ??