Zufallsgleitkommazahlen mit zufälligen Nachkommastellen

[Dax]

Delphi-Quellcode:

function Random2(digitCount: Integer): Double;
var i: Integer; offset: Double;
begin
  Result := 0;
  offset := 0.1;
  for i := 1 to digitCount do
  begin
    Result := Result + Random(9) * offset;
    offset := offset * 0.1;
  end;
end;