Zitat von
Nailor:
Und was ist mit rekursiv? Was will man denn dabei rekursiv machen?
Einmal schnell in meine Tastatur gehackt (sollte aber funktionieren...)
Delphi-Quellcode:
type
TBoard = array[0..7, 0..7] of Boolean;
procedure EightQueens(Level: Integer; Board: TBoard);
var
i: Integer;
begin
for i := 0 to 7 do begin
Board[Level, i] := True;
if (TestCorrectSituation(Board)) then
// Damen stehen korrekt
if (Level > 0) then
EightQueens(Level - 1, Board)
else
PaintSituation(Board); // Zeichnen
Board[Level, i] := False;
end;
end;
Zitat von
Nailor:
Kylix: So einer bist du also
Steht doch neben jedem meiner Beiträge
.
MfG,
d3g