Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.26;
Скачать: CL | DM;

Вниз

Фунция случайных чисел   Найти похожие ветки 

 
Октябрь ©   (2002-09-14 12:01) [0]

Здравствуйте коллеги :-)
Ни как не могу врубится :-(
Нужно брать случайное целое число «x» которое лежит в интервале от 0 до 99, для этого я пишу:
x := StrToInt (FloatToStr (Int ((random)*100)));
Запускаю на счет и получаю первый раз 0, затем 3, затем 86, 20, 27 и тд… всегда когда я запускаю эту прогу на счет с начала получаю опять 0, 3, 86, 20, 27…и т.д...!!!!!!! те в датчике случайных чисел явно прослеживается закономерность чтоли???!!! Если да, то как с этим боротся то можно??? Или я чего не так делаю???
Спасибо


 
VID ©   (2002-09-14 12:04) [1]

действительно, ужасная ситуация !
особенно когда вызов Randomize перед X:=.. не указан ;)

Вообще-то то, что прослеживается - не закономерность, а 100% совпадение :)


 
Ag2002   (2002-09-14 12:19) [2]

Вот есть такая функция в иодуле Math для Делфи-6
function RandomRange(const AFrom, ATo: Integer): Integer;
begin
if AFrom > ATo then
Result := Random(AFrom - ATo) + ATo
else
Result := Random(ATo - AFrom) + AFrom;
end;

Про Randomize тоже не надо забывать !!!


 
Anatoly Podgoretsky ©   (2002-09-14 12:33) [3]

Randomize и Random(100)


 
Fog ©   (2002-09-14 13:50) [4]

Другими словами в начало процидуры добавь Randomize



Страницы: 1 вся ветка

Текущий архив: 2002.09.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
1-85508
Rule
2002-09-16 22:24
2002.09.26
Очень прошу помочь, помираю (горит проект) !!!!!!!!!!!!!!!!!!!!!!


1-85506
maxim2
2002-09-17 09:39
2002.09.26
Как сделать цветной текст на title формы


1-85495
nomshar
2002-09-17 00:59
2002.09.26
Событие AfterScroll в TADOQuery


1-85537
IgorV
2002-09-13 11:07
2002.09.26
THintWindow


1-85507
Pavel_s
2002-09-17 09:31
2002.09.26
TListView