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:...