Zufallsgleitkommazahlen mit zufälligen Nachkommastellen

[Chemiker]

Hallo,

@sx2008: Das die Random() Function überladen ist, ist mir bekannt, allerdings wenn man einen Werte-Bereich angibt werden nur Interger-Zahlen zurückgegeben.

@Medium: Danke erst mal für ausführliche Informationen. Die erste Funktion müsste nur geändert werden um die Nachkomma-Stellen als Integer zu bekommen.

Geändert:

Delphi-Quellcode:

function dZufallsZahlen(Von, Bis: Integer): Double;
var 
  KommaStellen: Integer; 
begin 
  KommaStellen := trunc(Power(10, random(8))*10); 
  Result := iZufallsZahlen(Von*KommaStellen, bis*KommaStellen)/KommaStellen; 
end;

Nach einem kurzen Test funktioniert sie wunschgemäß.
Es sollen Zahlen zwischen -1000 und 100000 generiert werden, da sollte der Werte-Bereich noch funktionieren.

Der String der erstellt wird von der Zufallszahl soll unterschiedliche Länge haben und nicht mit Nullen aufgefüllt werden.

Zitat:

Alles andere wäre Rumgehackel und bestenfalls ein "dirty trick", aber nichts zum vorm Chef damit glänzen

Beim Programmieren bin ich mein eigener Chef.

Bis bald Chemiker