random med decimaler?

Kan du ikke bare køre 2 gange random.
En til dit heltal og en til dit decimal tal også lægge dem sammen.
Bare check at sammetællinge ikke overstiger 100 ellers kør den igen

Stoney

eller hvad med denne mulighed ?

function RandExt(Max: Integer): Real;
var
  tmp: int64;
begin
  tmp := Random(1000000*Max);
  Result := tmp / 1000000;
end;

/SpEeDy

x:=Random; 
giver et tal mellem 0 og 1 - dvs hvis du siger:
x := 100*Random;
får du et tal mellem 0 og 99.99999
//hreiff

uha der kan man bare se :)

ej mens jeg ikke har været herinde på eksperten har jeg selv tænkt lidt, og kom frem til at lave noget ala speedy's. men jeg prøver selv lige at skrive en funktion som jeg skal bruge og så vender jeg tilbage.

takker alle indtil vidre...

/ZIRON

fra lidt inspiration fra jer alle, er jeg kommet frem til denne funktion, så jeg giver ligt point til os alle:

function RandomDecimal(AntalDecimaler, Til : Extended): Real;
var
  tmp, tmp1 : Integer;
begin
  tmp := StrToInt(FloatToStr(Range * Power(10, AntalDecimaler)));
  tmp1 := Random(tmp);
  Result := tmp1 / Power(10,AntalDecimaler);
end;

/ZIRON

så speedy smid lige et svar...

/ZIRON

okay, tak :)

/SpEeDy