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.