Zufälliger Integer-Wert zwischen zwei zahlen

[NikoMitDaMacht]

Hi mir ist diese frage etwas peinlich:

Wie kann man einen zufälligen integer wert inerhalb von zwei zahlen erstllen?

[Basic-Master]

z.b. so :)

Delphi-Quellcode:

Randomize;
a := Random(maximum) + minimum;

[Stevie]

Zitat:

Zitat von Basic-Master

z.b. so :)

Delphi-Quellcode:

Randomize;
a := Random(maximum) + minimum;

Nicht ganz... :wink:

Delphi-Quellcode:

Random(Succ(High-Low)) + Low;

[NikoMitDaMacht]

ne das klappt nich so recht:

Delphi-Quellcode:

Randomize; 
a := Random(100) + 80;

da kommen werte über hundert raus!

[Jens Schumann]

Hallo,

Code:

Random(11)+10

liefert Dir Zufallszahlen von [10 bis 20]

[edit]siehe Stevie[/edit]

[Pseudemys Nelsoni]

Delphi-Quellcode:

function Rand(RandFrom, RandTo: integer): integer;
begin
  if RandTo > RandFrom then
  begin
    Randomize;
    Repeat
      Result := Random(RandTo);
    until Result > RandFrom-1;
  end
  else Result := 0;
end;

kannste dann aufrufen mit:

Delphi-Quellcode:

Var := Rand(minimum, maximum);

[NikoMitDaMacht]

Danke

Delphi-Quellcode:

Random(Succ(High-Low)) + Low;

doch für was steht das Succ

[Jens Schumann]

Zitat:

Zitat von Pseudemys Nelsoni

Delphi-Quellcode:

function Rand(RandFrom, RandTo: integer): integer;
begin
  if RandTo > RandFrom then
  begin
    Randomize;
    Repeat
      Result := Random(RandTo);
    until Result > RandFrom-1;
  end
  else Result := 0;
end;

kannste dann aufrufen mit:

Delphi-Quellcode:

Var := Rand(minimum, maximum);

Das ist völlig unbrauchbar. 1. viel zu viel Code 2. viel zu langsam. 3. Randomize sollte nur einmal im Programm aufgerufen werden. z.B. beim Programmstart

[Matze]

Zitat:

Zitat von NikoMitDaMacht

doch für was steht das Succ

OH ;)

@Pseudemys Nelsoni:
Diese function ist aber nicht so toll, man sollte randomize nur einmal aufrufen, sonst kann es schlechte Auswirkungen haben, auch wenn's zuerst nicht so ausschaut... ;)

[sakura]

Und ab Delphi 6

Delphi-Quellcode:

uses
  Math;

...
// function RandomRange(const AFrom, ATo: Integer): Integer;
Wert := RandomRange(1000, 2000);

...:cat:...

[eroe]

Im Endeffekt wollten dir die ganzen Delphi-Cracks hier nur sagen, dass du mit der Funktion

Delphi-Quellcode:

randomize;

den Zufallsgenerator praktisch initialisierst und mit der Funktion

Delphi-Quellcode:

random(bereich)+minimum;

den Bereich angibst, in dem die Zahl liegen soll .. Weiterhin wird vom Minimum ab gezählt, sprich, wenn du eine Zahl zwischen 100 und 200 haben willst (das sind 100 Zahlen --> bereich = 100) nimmst du folgenden Befehl :

Delphi-Quellcode:

random(100)+101;  // ja, eigentlich müsste das Minimum 100 sein, jedoch hat Delphi doch seine Standard-Krankheit dass immer und überall von 0 ab gezählt wird, nicht von 1 ;)

Stimmts Jungs ? :D

[Pseudemys Nelsoni]

wie soll das denn gehen mit + minimum?

Sagen wir mal ich habe es so:

Delphi-Quellcode:

procedure irgendwas;
var
  Minimum, Maximum: integer;
  Ergebnis: integer;
begin
  Randomize;
  Minimum := 20;
  Maximum := 100;
  Ergebnis := Random(Maximum)+Minimum;
end;

So, toll, was ist wenn Random(Maximum) bereits 90 rauskommt? dann wird Minimum(20) dazugerechnet, und dann ist es ÜBER dem Maximum, nämlich 110.... :roll:

Zitat:

doch für was steht das Succ

Succ(Successor) gibt dir den Nachfolger eines Elements im Typ. Pred gibt dir den Vorgänger

[Matze]

Zitat:

Zitat von Stevie

Delphi-Quellcode:

Random(Succ(High-Low)) + Low;

Wenn, dann geht es so. ;)

[yankee]

Ach, hör mal: Die Funktion Random(x) liefert dir einen zufälligen Wert. Dieser Wert ist >=0 und <x.
Wenn du jetzt eine Zahl haben willst, zwischen 80 und 100, dann lässt du dir einfach eine Zufallszahl zwischen 0 und 20 ausgeben und addierst am Ende noch 80 hinzu.

[Stevie]

Zitat:

Zitat von yankee

Ach, hör mal: Die Funktion Random(x) liefert dir einen zufälligen Wert. Dieser Wert ist >=0 und <x.
Wenn du jetzt eine Zahl haben willst, zwischen 80 und 100, dann lässt du dir einfach eine Zufallszahl zwischen 0 und 20 ausgeben und addierst am Ende noch 80 hinzu.

Was meinst du denn, was

Delphi-Quellcode:

Random(Succ(High-Low)) + Low;

macht? :lol:
Wenn du also Random(20) eingibst, was kommt raus? Richtig, Zahlen im Bereich von 0-19, deshalb Succ (Nachfolger) davon plus der untere Wert.

[iaby]

Delphi-Quellcode:

function zahl(von, bis: integer): integer;
begin
result:= random(bis - (von + 1)) + von + 1;
end;

funkt nur, wenn "von" kleiner als "bis" ist.
kannst ja noch ne abfrage reinmachen.
rarndomize dann halt im onCreate oder so.

gruss,
iaby

[Stevie]

Zitat:

Zitat von sakura

Und ab Delphi 6

Delphi-Quellcode:

uses
  Math;

...
// function RandomRange(const AFrom, ATo: Integer): Integer;
Wert := RandomRange(1000, 2000);

...:cat:...

Und hier die Definition dieser Funktion:

Delphi-Quellcode:

function RandomRange(const AFrom, ATo: Integer): Integer;
begin
  if AFrom > ATo then
    Result := Random(AFrom - ATo) + ATo
  else
    Result := Random(ATo - AFrom) + AFrom;
end;

[yankee]

@Stevie Ist ja gut, ich wollte es ja nur verständlicher darstellen...

[Stevie]

Zitat:

Zitat von yankee

@Stevie Ist ja gut, ich wollte es ja nur verständlicher darstellen...

Ich wollte nur vermeiden, dass das +/-1-Problem auftaucht, hatte ich schon oft: "Da kommt ja überhaupt nie 20 raus, obwohl ich Random(20) eingegeben habe!" :wall: :wink: