Функция Random

[Ser_arm]

Подскажите пожалуйста, мне нужно из промежутка не целых чисел, сгенирировать случайные числа, как я понял Random работает только с целыми, как это сделать???

[ROMA2PVT]

ставишь

mas:array[1..100,1..100] of real;

и генерируешь рандомайзом

a[i]:=random(60)+random-25;

и выводишь

write(a[i,j]:1:3,' ');

и будет те счастье.

[Ser_arm]

Спасибо большое сейчас попробую!!!

[VintProg]

В начали такую делаеш функцию:

function Random_Float(Value : Single):Single;
begin
  Result := (Random(10000000) / 10000000 * Value);
end;

А потом такую и все!

function Random_float_deapozon(Low, High : single):single;
begin
  Result := (Random_Float(High - Low) + Low);
end;

Я лично такую делал.

[Serge_Bliznykov]

язык программирования какой?
если Delphi
то достаточно вызывать random() без параметров, чтобы получить вещественное число от 0 до 1
если Pascal - то генерите целое число и делите на основание:
r:= random(100000)/100000;

[Bars1992]

Чтоб сгенерировать не целое число рандомом можно сделать так:

a:=random(100)+random(1000)/1000

выходит герерируем отдельно целую и дробную часть

[Ser_arm]

Сообщение от Serge_Bliznykov

язык программирования какой?
если Delphi
то достаточно вызывать random() без параметров, чтобы получить вещественное число от 0 до 1
если Pascal - то генерите целое число и делите на основание:
r:= random(100000)/100000;

Мне надо в Stringgrid, столбец забить случайными числами из определенного интервала, целыми и Random забивает а вещественными не работает!!!

[VintProg]

Ser_arm
Для промежутка пользуйся этой функцией:

function Random_float_deapozon

Она самый раз!

[Ser_arm]

Спасибо Всем большое за помошь!!!!

[VintProg]

Ser_arm
Вот:

StringGrid1.Cells[2,2] := FloatToStr(Random_float_deapozon(0.5,1.5));