Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Генерация чисел [D7, XP]


Саня ©   (2008-11-06 12:51:00) 

Привет!!! Подскажите как мне сгенерировать случайные дробные числа? RandSeed:=random(10);вот так только целые получаются


Правильный$Вася   (2008-11-06 13:20:00) [1]

кстати, а случайные по какому закону распределения тебе надо?


Vlad Oshin   (2008-11-06 13:14:00) [2]


> на 15

на *Pi и /е :)


Ega23   (2008-11-06 13:09:00) [3]

var
 RandArr : array[1..1000000] of Double;
 i : Integer;
begin
 for i:=1 to 1000000 do
   RandArr[i] := random*1000;
end;


Правильный$Вася   (2008-11-06 13:09:00) [4]


> RandSeed:=random(10); вот так только целые получаются

гы, если уж так тянет из целых дробные, подели результат на 15


Сергей М.   (2008-11-06 12:57:00) [5]

А справку по Random ты внимательно проштудировал ?


clickmaker   (2008-11-06 12:54:00) [6]

F1

function Random [ ( Range: Integer) ];

Description

In Delphi code, Random returns a random number within the range 0 <= X < Range. If Range is not specified, the result is a real-type random numberwithin the range

0 <= X < 1.


Наверх

Титульная страница Поиск, карта сайта Написать письмо