Zufallszahl aus bestimmten vorgegebenen Zahlen

[füchschen29]

Also folgendes Problem

Aus bestimmten Zahlen, die in keiner weise zusammenhängen (z.B. 4 , 25 , 36 , 104 , 99 , 555 , usw)
Soll das Programm EINE zufällig anzeigen.

Gibt es dafür möglichkeiten in Delphi außer
zunächst mit Random(6) [oder entsprechend der Anzahl] zu arbeiten und den einzelnen möglichen ergebnissen dann die anderen zahlen zuzuweisen?

lg und im vorraus schon danke

[Sir Rufo]

Nein, wozu auch?

[freak4fun]

Alle Zahlen in ein Array und den Index per Random ziehen lassen.

[Sir Rufo]

Zitat von freak4fun:

Alle Zahlen in ein Array und den Index per Random ziehen lassen.

Das ist doch genau das, wozu eine Alternative gesucht wird

[Satty67]

Mit der von Dir gemachten Einschränkung halte ich es für unmöglich, ausser jemand kennt einen Code, der hellseherische Fähigkeiten implementiert

Random in Delphi berechnet eine Zahl aus einem Zahlenbereich, der aus Start- und Endwert besteht.

Einzige Möglichkeit ist die von Dir beschriebene Vorgehensweise. Eine eigene Random-Funktion, die man mit Zahlen füttern kann, aus der ausgewählt würde, wäre letztlich das gleiche. Beides muss die gewünschten Zahlen irgenwie verwalten und über eine Art "zufälligen" Index daraus auswählen.

[füchschen29]

Schade^^
Ich hab halt nur eine einfachere Variante gesucht, aber es wird auch so gehen
Trotzdem Danke!

[Sir Rufo]

Zitat von füchschen29:

Schade^^
Ich hab halt nur eine einfachere Variante gesucht, aber es wird auch so gehen
Trotzdem Danke!

Hmm, einfacher als einen 2-Zeiler?
Das wird schwierig

[himitsu]

Andere Möglichkeit:

du nimmst dir die kleinste und die größte aller Zahlen aus den vorgaben,
dann besorgst du dir eine Zufallszahl, welche auch mindestens diesen Wertebereich entstammt
und nun wiederhost du das solange, bis die gefundene Zufallszahl einer deiner Wunschzahlen entspricht.

Ich wette dir kommt der andere Weg (mit Random(6) ) doch plötzlich viel besser vor.

Wenn die Zahlen in einem Array drinstehn, dann
MyArr[Random(Length(MyArr))] , bzw. MyArr[Random(Length(MyArr)) + Low(MyArr)] , wenn es ein statisches Array ohne 0-Index ist
und bei einer Liste sieht es ähnlich aus.