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
