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