zeichenkette erstellen

[Klaus01]

Hallo Michael,

Dein Beispiel kann ich nicht so ganz folgen..

Du hast 3 Elemente a,b,c

Durch Vertauschung wären nur diese Kombinationen möglich (wenn ich keine vergessen habe):
a,b,c
a,c,b
c,a,b
c,b,a
b,c,a
b,a,c

Wenn Du die Anzahl einzelner Elemente erhöst,
kannst Du das bis zu unendlichkeit treiben.

Stichwort:Permutation

Grüße
Klaus

[mfrank]

ich meine das so
a
b
c
aa
ab
ac
ba
bb
bc
ca
cb
cc
aaa
aab
aac
aba
...
Auszuwählen sollten die Zeichen z.Bsp. 'a'-'z' und die Länge der Ausgabezeichenkette sein 'aaaaa' -> 5. Permutation bringt dies nicht alles - nur jedes Zeichen einmal und eine feste Länge. Ist dies vieleicht Variation?

[himitsu]

Tipp: Such mal nach Bruteforce, denn dort wird ja sowas genutzt.

Kommt drauf an in welchem Maße (Länge und Anzahl) das benötgt wird.
Am Einfachsten kann man da mathematisch rangehn.

Man zählt einen Integer/Int64 hoch.
Und zerlegt ihn bei jedem Schritt in seine Einzelzeile, welche man mit den gewünschen Zeichen gleichsetzt.

Delphi-Quellcode:

function Zerlege(Num: Cardinal; Chars: string): string;
begin
  Result := '';
  while Num > 0 do begin
    Result := Result + Chars[Num mod Length(Chars) + 1];
    Num := Num div Length(Chars);
  end;
end;

Label1.Caption := Zerlege(0815, 'abc');

[gammatester]

Am einfachsten geht's wohl rekursiv. Hier ein Beispielcode

Delphi-Quellcode:

{$apptype console}
program kette;

const
  maxlen = 3;
  zeichen: string='abc';

procedure genlen(pre: string; len: integer);
var
  i: integer;
begin
  if len<2 then for i:=1 to length(zeichen) do writeln(pre,zeichen[i])
  else for i:=1 to length(zeichen) do genlen(pre+zeichen[i],len-1)
end;

var
  len: integer;
begin
  for len:=1 to maxlen do genlen('', len);
end.

mit der Ausgabe:

Code:

a
b
c
aa
ab
ac
ba
bb
bc
ca
cb
cc
aaa
aab
aac
aba
abb
abc
aca
acb
acc
baa
bab
bac
bba
bbb
bbc
bca
bcb
bcc
caa
cab
cac
cba
cbb
cbc
cca
ccb
ccc

[mfrank]

ja, genau dies habe ich gesucht - es funktioniert prima und ist auch nachvollziehbar.
Vielen Dank
Michael

[Horst_]

Hallo,

falls Du nur die Anzahl der verschiedenen Möglichkeiten brauchst, kannst Du diese ja jetzt leicht berechnen.
Bei k verschiedenen Zeichen mit Länge l ergibt sich
Anzahl = Summe (i= 1 bis l) [k^i]
Im Beispiel hier k=3 und l = 3
ergibt Anzahl= 3^1+3^2+3^3 = 3+9+27 = 39

Ginge die Summe mit i= 0 los ergäbe es die Zinsenszinsformel
q_l = (q^(l+1)-1)/(q-1) mit q = k
Schönerweise ist aber q^0 immer 1 für q <> 0
also geht hier

Anzahl = (k^(l+1)-1)/(k-1) -1

hier also Anzahl = (3^4-1)/2 -1 = 40-1 = 39

[mfrank]

Hallo,
ich muss dieses Thema noch einmal öffnen.
Gibt es auch eine Möglichkeit die Abfrage mit Zeichenketten abzurufen - also nicht abcd sondern 'ab', 'bc', '11'.
Ich habe schon einiges probiert aber noch keine Lösung gefunden.
Viele Grüße
Michael

[Delphi-Laie]

Zitat von mfrank:

ich meine das so
...

Das sind Variationen mit Wiederholung.

Mit 3 verschachtelten Schleifen - jede läuft von '' über a bis c - bekommst Du diese generiert. Wobei der erste String, der Leerstring, ausgesiebt werden muß.