Losowanie liczb typu double z przedziału od 1 do 100

0

Witam,

jak w temacie. Potrzebuję losować liczbę zmiennoprzecinkową pomiędzy danym zakresem w takiej postaci:

Randomize;
RandomRange(1, 100)

i chciałbym uzyskać taki efekt:
70.87; 45.50; 99.20 itp...

Mam taki kod:

numeric := StrToFloat(format('%12.2f', [RandomRange(ValueFrom, ValueTo) / RandomRange(ValueFrom, ValueTo)]));

Powyższy kod losuje mi liczby z przedziału: 0.01 - 3.99

1

Tak na logikę:

RandomRange(1, 10000) / 100
1
function DoubleRandomRange(const AFrom, ATo: Integer): Double;
begin
  Result := RandomRange(AFrom * 100, ATo * 100) / 100;
end;

Losuje z przedziału od 1.00 do 100.00 dla argumentów DoubleRandomRange(1, 100).

0

Nooo :) i gitarka o to chodziło :) Podziękował Wam pięknie.

1 użytkowników online, w tym zalogowanych: 0, gości: 1