Doppelte Zahlen in Arrays finden

[kylix.user]

Hi!

Da jedes Array indiziert ist, könntest Du doch auch mit den Indexen arbeiten.
(Habe z.Zt. kein Delphi hier - um keinen Syntaxfehler zu machen daher sehr abstrakt):

// Deklariere ein (dynamisches) Array mit Booleanwerten.


myBol: Boolean;

myBolArray: Array of myBol;


// das ganze Array müsste jetzt NIL-Werte enthalten!

Schleife begin

Zufallszahl := Random()

if legth(myBolArray) < Zufallszahl
setlength(myBolArray, X);

myBolArray[Zufallszahl) := True;

Schleife ende


// Nun kannts du das Array mit der Länge X sequenziell und vorallem sortiert auswerten.

for myZaehler := 0 to high(myBolArray) begin
if myBolArray[myZaehler] := true then
// das war eine Zufallszahl!



Müsste theoretisch funktionieren. Wenn Du anstatt Boolean auf z.B. Integer wechselst, könntest Du hinterher auch noch auswerten, an welcher Stelle welche Zahl gezogen wurde. Auch ein mehrdimensionales Array wäre denkbar!

Gruß