Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by himitsu,
7. Feb 2014
Indem dort anders gerechnet wird?
function Random: Extended;
const
two2neg32: double = ((1.0/$10000) / $10000); // 2^-32
{$IFDEF PUREPASCAL}
var
Temp: LongInt;
F: Extended;
begin
Temp := RandSeed * $08088405 + 1;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by himitsu,
6. Feb 2014
Nee
function Random(const ARange: Integer): Integer;
{$IFDEF PUREPASCAL}
var
Temp: Longint;
begin
Temp := RandSeed * $08088405 + 1; // berechne den nächsten Wert
RandSeed := Temp; //
Result := (UInt64(Cardinal(ARange)) * UInt64(Cardinal(Temp))) shr 32;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by himitsu,
31. Jan 2014
Es ist egal wie schnell, da der RNG von Delphi immer raufrechnet.
Es sei denn du hattes den Fehler der Fehler gemacht und Randomize zu häufig aufgerufen.