Hallo

Ich habe eine 8*8 Array mit Prioritäten gegeben, dieses Feld ist hochsymmetrisch also müsste ich theoretisch nur ein Viertel belegen und den Rest befüllen lassen. Doch leider fehlt mir hier ein Ansatz wie man dies bewerkstelligen könnte.

Bsp.

Code :

1 2 3 4 5 6 7 8

9999    5   500 200 200 500 5   9999 5   1   50  150 150 50  1   5 500 50  250 100 100 250 50  500 200 150 100 50  50  100 150 200 200 150 100 50  50  100 150 200 500 50  250 100 100 250 50  500 5   1   50  150 150 50  1   5 9999    5   500 200 200 500 5   9999

Kann mir wer einen Ansatz liefern wie man dies bewerkstelligen könnte. Danke

Ich habe mal was zusammengestopselt, aber nicht getestet (kann gerade kein separates Projekt aufmachen). Gedacht ist es so:

1. Schritt:
w b c d - - - -
x b c d - - - -
y b c d - - - -
z b c d - - - -
- - - - - - - -
- - - - - - - -
- - - - - - - -
- - - - - - - -

2. Schritt:
w b c d d c b w
x b c d d c b x
y b c d d c b y
z b c d d c b z
- - - - - - - -
- - - - - - - -
- - - - - - - -
- - - - - - - -

3. Schritt:
w b c d d c b w
x b c d d c b x
y b c d d c b y
z b c d d c b z
z b c d d c b z
y b c d d c b y
x b c d d c b x
w b c d d c b w

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

var   x, y: Integer;   i: Integer;     // Belegung des linken oberen Quadranten   Feld[0, 0] := 9999;   Feld[1, 0] := 5;   Feld[2, 0] := 500;   Feld[3, 0] := 200;     Feld[0, 1] := 5;   Feld[1, 1] := 1;   Feld[2, 1] := 50;   Feld[3, 1] := 150;     Feld[0, 2] := 500;   Feld[1, 2] := 50;   Feld[2, 2] := 250;   Feld[3, 2] := 100;     Feld[0, 3] := 200;   Feld[1, 3] := 150;   Feld[2, 3] := 100;   Feld[3, 3] := 50;     // Abbilden der Werte auf den rechten oberen Quadranten   for y := 0 to 3 do        // Zeilenrichtung normal   begin     i := 4;     for x := 3 to 0 do       // Spaltenrichtung invers     begin       Feld[i, y] := Feld[x, y];       Inc(i);     end;   end;     // Abbilden der oberen Matrixhälfte auf die untere   i := 4;   for y := 3 to 0 do              // Zeilenrichtung invers   begin     for x := 0 to 7 do           // Spaltenrichtung normal       Feld[x, i] := Feld[x, y];     Inc(i);   end;

Vielen Dank CSANecromancer das war sogar mehr als ein Ansatz

Runterzählende Schleifen heißen in pascal downto ansonsten funktioniert es perfekt

Sorry, abwärts zählende Schleifen habe ich bislang noch keine gebraucht, daher wusste ich das nicht.