Ich nehme alles zurück!!! Neutral Generals Lösung funktioniert
nicht, es sei denn, ich habe was falsch implementiert. Man muss ja sozusagen x ineinanderverschachtelte for-schleifen haben. Da fällt mir nichts anderes ein als die Rekursion, also:
Delphi-Quellcode:
var schloss:array[1..stellen] of integer;
procedure angriff(laenge:integer);
var i:integer;
begin
if laenge=1 then
begin
for i:=0 to 9 do
begin
schloss[laenge]:=i;
knackdasschloss(schloss);
end;
end
else
begin
for i:=0 to 9 do
begin
schloss[laenge]:=i;
angriff(laenge-1);
end;
end;
end;
//Aufruf
angriff(stellen);
Im Prinzip ist das eine Simulation von laenge ineineanderverschlachtelten for-Schleifen.