alle Tupel einer Variation ermitteln

[oki]

Hi,

ich hab jetzt mal den letzten Code von alzaimar getestet. Ergebnis für Variation und Kombination gleich.

Ich versteh im besonderen nicht, was die Funktion
Function NthPermutation (const aString : AnsiString; aCount : Integer) : AnsiString; genau macht. vorallem im code-bsp. fällt folgende Stelle auf:

Delphi-Quellcode:

  if k=0 Then
    For j:=1 to Fakultaet(k) do
      Form1.memo1.Lines.Add(NThPermutation (q,j)) // Teilmenge gefunden, irgendwo muss sie ja hin

Wenn K = 0, dann Fakultaet(k) auch immer 0. Dann ist die Schleife eigentlich auch überflüssig. Ich hab so den Eindruck das hat was mit der Fakultät auf die Klasse zu tun, denn

Variation = Kombination * Fakultät(Klasse) ergibt mathematisch die anzahl aller Variationen.

NaJa

Gruß oki