Zufallsgleitkommazahlen mit zufälligen Nachkommastellen

[omata]

Delphi-Quellcode:

function dZufallsZahlen(Von, Bis: Integer; Stellen:byte): Double;
var K:cardinal;
begin
  K:=trunc(power(10, Stellen));
  Result:= (Von*K + random((bis-von)*K)) / K;
end;