Thema: Delphi Zufallswörter

Einzelnen Beitrag anzeigen

Waldteufel
(Gast)

n/a Beiträge
 
#3

Re: Zufallswörter

  Alt 21. Nov 2005, 18:13
Hi.

Mit Zufall hat das ja nicht unbedingt was zu tun... Du willst wohl eher alle Möglichkeiten durchprobieren, oder?

Ich würde es so machen (Pseudocode):

Code:
[b]Konstante[/b] Bv [i]{ Buchstabenvorrat }[/i] = ('U', 'R', 'L', 'T', 'K', 'A', 'D', 'P', 'E');
[b]Variable[/b] b1, b2, b3 [i]{, ...}[/i] ;

[b]für alle[/b] b1 [b]in[/b] Bv [b]tue[/b]
  [b]für alle[/b] b2 [b]in[/b] (Bv [b]ohne[/b] (b1)) [b]tue[/b]
    [b]für alle[/b] b3 in (Bv [b]ohne[/b] (b1, b2)) [b]tue[/b]
       [i]{ ... bis schlussendlich: }[/i]
         ZuListboxHinzufügen(NeuerString(b1, b2, b3, ...));
  Mit Zitat antworten Zitat