функция random_float

[VintProg]

Как реализовать такую функцию:

function random_float(Value : single): single;

чтобы она возвращала вещественное число от нуля до Value?

[ОДИНОЧЕСТВО В СЕТИ]

random_float:=random(value)+random(100)/100;

[evg_m]

random(100000000)/100000000 *value

[VintProg]

Хм неплохо.

[russian-stalker]

Бред,но: :-)

function random_float(Value : single): single;
var
s:string;
begin
 randomize;
 result:=random(trunc(Value));
 s:=floattostr(frac(value));
 s:=copy(s,3,8);   
 result:=strtofloat(floattostr(result)+','+inttostr(random(strtoint(s))));
end;

[VintProg]

function random_float(Value : single): single;
var
s:string;
begin
 randomize;
 result:=random(trunc(Value));
 s:=floattostr(frac(value));
 s:=copy(s,3,8);   
 result:=strtofloat(floattostr(result)+','+inttostr(random(strtoint(s))));
end;

Этот код будет работать медленнее.

[Somebody]

Random(Value) + Random
Random * Value