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 :-D

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.

[DeddyH]

Oder man ersetzt die For- durch While-Schleifen und ergänzt die Schleifenbedingung entsprechend.

Delphi-Quellcode:

i := 1;
doppelt := false;
while (i < 9) and not doppelt do
  begin
    if Array[i] > 1 then
      begin
        doppelt := true;
        ShowMessage('Dublette');
      end;
    inc(i);
  end;

[Marcel2906]

Wenn ich es mit der while schleife versuche, habe ich wieder das Problem, dann wenn z.b. Sudoku[0,0] und [0,1] gleich sind er mir 4 mal eine meldung ausspuckt. 2mal das in einer reihe etwas doppelt ist und 2 mal dass im feld eine zahl doppelt ist...

Mit break und exit hab ich schon ein wenig rumprobiert, leider es nicht geschafft, da es ja eine procedure in einer procedure ist.

Mein code sieht so aus:

Delphi-Quellcode:

Procedure TForm2.BtPruefenClick(Sender: TObject);
Type
   THilfsArray = Array[1..9] Of Integer;
Var
   x, y, xx, yy: Integer;
   HilfsArray: THilfsArray;

   //HilfsArray erstellen
   Procedure HilfsArrayLeeren;
   Var
      i: Integer;
   Begin
      For I := 1 To 9 Do
         HilfsArray[i] := 0;
   End;

   //Wenn eine Zahl doppelt, Fehlermeldung
   Procedure ZahlDoppelt(WO: String);
   Var
      i: Integer;
      doppelt: boolean;
   Begin
      // Das alte mit der for Schleife

      {     For I := 1 To 9 Do
              If HilfsArray[i] > 1 Then Begin
                 Showmessage('Zahl in' + WO + ' doppelt');
                 BtNewClick(BtNew);
              End; }

      i := 1;
      doppelt := false;
      While (i < 9) And Not doppelt Do Begin
         If HilfsArray[i] > 1 Then Begin
            doppelt := true;
            ShowMessage('Zahl in' + WO + ' doppelt');
         End;
         inc(i);
      End;
   End;

   //Zahl zum Hilfsarray hinzufügen
   Procedure AddHilfsArray(z: Integer);
   Begin
      If (z > 0) And (z < 10) Then
         inc(HilfsArray[z]);
   End;

Begin
   //Zeile prüfen
   For y := 0 To 8 Do Begin
      HilfsArrayLeeren;
      For x := 0 To 8 Do
         AddHilfsArray(aSudoku[y, x]);
      ZahlDoppelt(' einer Zeile');
   End;
   //Spalte prüfen
   For x := 0 To 8 Do Begin
      HilfsArrayLeeren;
      For y := 0 To 8 Do
         AddHilfsArray(aSudoku[y, x]);
      ZahlDoppelt(' einer Spalte');
   End;
   //Feld prüfen
   For xx := 0 To 2 Do
      For yy := 0 To 2 Do Begin
         HilfsArrayLeeren;
         For y := yy * 3 To yy * 3 + 2 Do Begin
            For x := xx * 3 To xx * 3 + 2 Do
               AddHilfsArray(aSudoku[y, x]);
         End;
         ZahlDoppelt(' einem Feld');
      End;
End;

[himitsu]

Mach aus ZahlDoppelt eine Funktion, welche dir einen Boolen zurückgibt. (False wenn nicht doppelt usw.)

Du rufst diese Funktion ja mehrmals auf und das doppelt ist bis jetzt in jedem Funktionsaufruf neu/eigenständig.
Du mußt also auch noch die nchfolgenden Funktionsaufrufe entsprechend behandeln. :zwinker:

[Marcel2906]

irgendwie hab ich ne Blockade :-P
habs jetzt so versucht:

Delphi-Quellcode:

Procedure TForm2.BtPruefenClick(Sender: TObject);
Type
   THilfsArray = Array[1..9] Of Integer;
Var
   x, y, xx, yy: Integer;
   HilfsArray: THilfsArray;

//...

   //Wenn eine Zahl doppelt, Fehlermeldung
   Function ZahlDoppelt: boolean;
   Var
      i: Integer;
      doppelt: boolean;
   Begin
      For I := 1 To 9 Do
         If HilfsArray[i] > 1 Then
            Result := true;
   End;

//...


Begin
   //Zeile prüfen
   For y := 0 To 8 Do Begin
      HilfsArrayLeeren;
      For x := 0 To 8 Do
         AddHilfsArray(aSudoku[y, x]);
      If ZahlDoppelt = true Then
         ShowMessage(' einer Zeile');
   End;
   //Spalte prüfen
   For x := 0 To 8 Do Begin
      HilfsArrayLeeren;
      For y := 0 To 8 Do
         AddHilfsArray(aSudoku[y, x]);
      If ZahlDoppelt = true Then
         ShowMessage(' einer Spalte');
   End;
   //Feld prüfen
   For xx := 0 To 2 Do
      For yy := 0 To 2 Do Begin
         HilfsArrayLeeren;
         For y := yy * 3 To yy * 3 + 2 Do Begin
            For x := xx * 3 To xx * 3 + 2 Do
               AddHilfsArray(aSudoku[y, x]);
         End;
         If ZahlDoppelt = true Then
            ShowMessage(' einem Feld');
      End;
End;