Lineares RandomRange für Real

[Alexander Roth]

Am Round im RandomRRange für Real Zahlen? Also das

Zitat von Alexander Roth:

Erstmal für Real Zufallszahlen

Delphi-Quellcode:

{-----------------------------------------------------------------------------
  Description:
  Procedure:    RandomRRange
  Arguments:    min,max:real; nachkomma:integer=5; IncludeMin:boolean=true; IncludeMax:boolean=true
  Result:       real
  Detailed description:
-----------------------------------------------------------------------------}
function RandomRRange(min,max:real; nachkomma:integer=5; IncludeMin:boolean=true; IncludeMax:boolean=true):real;
begin
  min:=min*power(10,nachkomma);
  max:=max*power(10,nachkomma);
  if IncludeMin then
    min:=min-1;
  if IncludeMax then
    max:=max+1;

  result:=randomrange(round(min),round(max))/power(10,nachkomma);
end;

Aber wenn ich das aufrufe gibt es eine gleichmäßige Zufallsverteilung.

Gruß Alexander