Sudoku Array of Array vergleichen

[Marcel2906]

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 ??

[Bummi]

vielleicht kannst Du damit was anfangen, schnell hingetippt,nicht großartig getestet

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

type TZCount=Array[1..9] of Integer;
var
  x,y,xx,yy:Integer;

  ZCount:TZCount;
  Procedure ClearZCount;
    var
    i:Integer;
    begin
      for I := 1 to 9 do ZCount[i]:=0;
    end;
  Procedure Doublette;
   var
    i:Integer;
    begin
      for I := 1 to 9 do if ZCount[i]>1 then Showmessage('Doublette');
    end;
  Procedure Add2Zcount(z:Integer);
    begin
      if (z>0) and (z<10) then inc(ZCount[z]);
    end;
begin
   for y := 0 to 8 do
        begin
        ClearZCount;
        for x := 0 to 8 do  Add2Zcount(sud[y,x]);
        Doublette;
        end;
   for x := 0 to 8 do
        begin
        ClearZCount;
        for y := 0 to 8 do  Add2Zcount(sud[y,x]);
        Doublette;
        end;
   for xx := 0 to 2 do
     for yy := 0 to 2 do
     begin
     ClearZCount;
     for y := yy*3 to yy*3 + 2 do
          begin
          for x := xx*3 to xx*3 + 2 do  Add2Zcount(sud[y,x]);
          end;
     Doublette;
     end;
end;

[Marcel2906]

Hey cool, funktioniert. Danke

Aber kann mir das vllt mal einer genau erklären was wo gemacht wird??
Oder einfach grob die Idee die dahinter steckt erläutern

[Bummi]

Du läufst die Zeilen ab
Du läufst die Spalten ab
Du läufst 3*3 die (3*3) Blöcke ab

Jedes mal wird hier eine Array für die Zahlen 1-9 mit 0 initalisiert
beim Ablaufen der o.g. Bereiche für jede Zahl das auftreten um 1 erhöht
wenn eine Zahl mehrfach vorkommt muß in dem Array irgendwo eine Zahl>1 stehen.

[Marcel2906]

Aber wenn ich mehre Fehler habe, zeigt er mir hunderte mal an, dass etwas doppelt ist. Wie kann ich das nach der ersten ShowMessage stoppen?

[himitsu]

Einzelne Schleifen kannst du mit Break abbrechen.
Wenn du die Prüffunktion in eine eigene Funktion auslagerst, kannst du die Prozedur (und damit auch mehrere Schleifeb) mit Exit verlassen.
Oder man speichert sich den Status in einer Variable und reagiert nur auf das erste Vorkommen.