Random: Delphi vs. Lazarus?

[himitsu]

Zitat von tigernut:

Wie liefert Radom eine Kommazahl, wenn wir ausschließlich mit Ganzzahlen rechnen?

Indem dort anders gerechnet wird?

Delphi-Quellcode:

function Random: Extended;
const
  two2neg32: double = ((1.0/$10000) / $10000);  // 2^-32
{$IFDEF PUREPASCAL}
var
  Temp: LongInt;
  F: Extended;
begin
  Temp := RandSeed * $08088405 + 1;
  RandSeed := Temp;
  F  := Temp;
  Result := F * two2neg32;
end;

[gammatester]

Zitat von himitsu:

Delphi-Quellcode:

  //...
  F  := Temp;
  Result := F * two2neg32;
end;

Dieser Code liefert allerdings Zahlen im Intervall [-0.5,0.5). Für das normalerweise von random verwendete Interval [0,1) kann man

Delphi-Quellcode:

  //...
  Result := (Temp + 2147483648.0) / 4294967296.0;
end;

benutzen, und eine ähnliche Formel wenn man mehr als 32 Bit braucht.