for-Schleife - Aktion IMMER 5 mal ausführen

[arnold mueller]

Hallo Yheeky!

Ist es für Dich egal an welcher Stelle im Spielfeld die Suche beginnt?

Wenn die Suche immer oben links beginnen darf, dann würde ich es so machen:

Delphi-Quellcode:

var Field: array[1..10,1..10] of byte;
    Changed: byte;

(...)

Changed := 5;

for x := 1 to 10 do
begin
  for y := 1 to 10 do
  begin
    if Field[x,y] <> 1 then
    begin 
      Field[x,y] := 2;
      dec(Changed);
      if Changed = 0 then Break;
    end;
  end;
end;

Andernfalls zufällige Werte für x und y wählen:

Changed := 5;

x := random(9);
y := random(9);

Repeat
    if Field[x+1,y+1] <> 1 then
    begin 
      Field[x,y] := 2;
      dec(Changed);
    end;
until Changed = 0;

Oder Startpunkt zufällig wählen, und von dort nach rechts oder nach links suchen.


Oder vielleicht doch ganz anders ...

Bye,
Arno

[edit=alcaeus]delphi-Tags gesetzt. In Zukunft bitte selbst machen. Danke Mfg, alcaeus[/edit]