Zahlen-Kombinationen

[bioser]

Zitat:

Zitat von freak4fun

Wie kommst du auf ' 2 0 1 3'? :gruebel:

Mit BioserPermutation ('0123', 3); komme ich auf 3012.

MfG
freak

Ja, genau.

[bioser]

Zitat:

Zitat von alzaimar

Oh, ist doch aber nicht schwer:

Delphi-Quellcode:

Procedure BiosenPermutator (aList, aOutput : TList; aCount : Integer);
Begin
  aOutput[0] := aList [aCount];
  For i := 0 to High (aList) do
    if i<aCount then 
      aOutput[i+1] := aList[i]
    else if i>aCount Then
      aOutput[i] := aList[i];
End;

Ungestet, aber sollte klappen.

Ja, das sieht doch sehr gut aus. Danke. Das high brauche ich nicht, dafür setze ich alist.count-1 ein. Vorher sollte man noch die Ausgabeliste mit Create erzeugen. Die Ausgabeliste benötigt aber noch Speicherplatz, oder ? So funktioniert es nämlich nicht.

[alzaimar]

Der Aufrufer von BioserPermutation ist für die Speicherverwaltung zuständig. Weiterhin kannst/solltest Du die Datentypen sowie die High-funktion ggf an deinen Datentyp anpassen.
Wenn Deine Liste z.B. Als Array [0..3] Of Integer deklariert ist, dann wäre es ja schön blod, die zuerst in eine TList zu kopieren, dann zu BioserPermutieren, um sie abschließend wieder von der TList in das Array of Integer zurück zukopieren. Insofern verwendest Du meinen Code natürlich nur als Anhaltspunt.

[Eichhoernchen]

Wir haben damit jetzt gerade in der Schule begonnen,
vielleicht hilft dir das:

Delphi-Quellcode:

const n = 5;

var
  Form1: TForm1;
  zahl_gesetzt : array[1..n] of Boolean;
  zahlen : array[1..n] of Integer;
  count : integer;

implementation

{$R *.dfm}

procedure init;
var i : integer;
Begin
for i := 1 to n do
 zahl_gesetzt[i] := false;
 count := 0;
end;

procedure Ausgabe(zahl : integer);
Begin
 Form1.StringGrid1.Cells[0, count] := IntToStr(zahl);
 inc(count);
 Form1.Stringgrid1.RowCount := count;
 Form1.StringGrid1.Update;
 Form1.StringGrid1.Refresh;
end;

procedure permut(i : integer);
var j, k ,zahl : integer;
Begin
 for j := 1 to n do
  if not zahl_gesetzt[j]
    then Begin
          zahlen[i] := j;
          zahl_gesetzt[j] := true;
          if i < n
            then permut(i+1)
            else Begin
                  zahl := 0;
                  for k := n downto 1 do
                    zahl := zahl + (zahlen[k] * round(power(10, n-k)));
                  Ausgabe(zahl);
                 end;
          zahl_gesetzt[j] := false;
         end;
end;



procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Init;
permut(1);
end;

Hoffe es hilft!