Zufallsgleitkommazahlen mit zufälligen Nachkommastellen

[Chemiker]

Hallo,

ich glaube, dass ich eine Lösung gefunden habe.

Delphi-Quellcode:

function iZufallsZahlen(Von, Bis: Integer): integer;
begin
  Result:= RandomRange(Von, Bis+1);
end;

function dZufallsZahlen(Von, Bis: Integer): Double;
const ArrKommaStellen : Array [0..7]of Integer =(1,
                                                 10,
                                                 100,
                                                 1000,
                                                 10000,
                                                 100000,
                                                 1000000,
                                                 10000000);
var
  KommaStellen: Integer;
begin
  KommaStellen:= RandomFrom(ArrKommaStellen);
  Result:= iZufallsZahlen(Von*KommaStellen, bis*KommaStellen)/KommaStellen;
end;

Vielleicht kann das einer von Euch mal überprüfen, ob man das so machen kann.

@Omata: Ich werde Deine Lösung auch noch mal prüfen.

Bis bald Chemiker