listen generisches array

[Waldteufel]

Hi.

Zitat von loki:

@all: wie würdet ihr den grund algorith. angehen?

Verschachtelte For-Schleifen

Delphi-Quellcode:

for i := 1 to 3 do
  for j := 1 to 3 do
    for k := 1 to 4 do
    begin
      Teile[i, j].Rotieren(k);
      Teile[i, j].Ausgeben;
    end;

oder Rekursion

Delphi-Quellcode:

procedure MachDas(i : integer);
begin
  if (i <> 9) then
  begin
    Rotieren;
    MachDas(i + 1);
    Rotieren;
    MachDas(i + 1);
    Rotieren;
    MachDas(i + 1);
    Rotieren;
    MachDas(i + 1); 
  end;
end;