Sudoku Programm !?

[Light]

Hallo Christian,

ICH BIN ZU LANGSAMM GEWESEN --
die anderen waren schneller als ich *G*
ich stells trozdem rein war sonst zu viel aufwand umsonst

Formuliere doch noch mal dein Zeil was du damit erreichen willst.
- und kontrolliere nochmal dein code - ein abbruch wegen "zu hohem rechenaufwand" gibt es glaube ich so nicht!
es könnte eher sein das er sich irgendwo in einer schleife verfängt oder so -
ich würde diesen ansatz mit verschachtelten schleifen machen:
-irgendwie so ähnlich wie

Delphi-Quellcode:

//ich hab jetzt die zahlen wegen der übersichtlichkeit durch buchstaben ersetzt
VAR
Neu : Boolean;
Z : Integer;
I1, I2, I1b, I2b : Integer; //oder ähnliches
...

for I1:= a to i do
begin
  for I2:= 1 to 9 do
  begin
    //eine random zahl die noch nicht vorkamm.
    repeat
      Z := random(9)+1;
      for I1b:= a to i do
      begin
        for I2b:= 1 to 9 do
        begin
          if (Z <> "Wertearray[I1b,I2b]") then neu := true;
        end;
      end;
    until (Neu);

    "Wertearray[I1,I2]" := Z;
    Neu := false;

  end;
end;

Ich hoffe ich konnte dir weiterhelfen!
Diese methode ist bestimmt nicht leistungsorientiert -
eigentlich müsste es sich allerdings bei 81 feldern nicht so bemerkbar machen.

LG Stefan

PS: der hängt sich bestimmt in der repeat- until schleife auf weil des nie wahr werden kann oda so