Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Вниз

Генератор случайных числе 


Alx2   (2002-04-02 08:03) [23]

>MBo © (02.04.02 07:56)
Скорее всего :)

Но если уж лезть в дебри по самые уши, то вот, на всякий случай, доказательство независимости random от таймера (randomize, естетственно, к этому не относится):

procedure _RandInt;
asm
{ ->EAX Range }
{ <-EAX Result }
IMUL EDX,RandSeed,08088405H
INC EDX
MOV RandSeed,EDX
MUL EDX
MOV EAX,EDX
end;

procedure _RandExt;
const two2neg32: double = ((1.0/$10000) / $10000); // 2^-32
asm
{ FUNCTION _RandExt: Extended; }

IMUL EDX,RandSeed,08088405H
INC EDX
MOV RandSeed,EDX

FLD two2neg32
PUSH 0
PUSH EDX
FILD qword ptr [ESP]
ADD ESP,8
FMULP ST(1), ST(0)
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.02 c
3-46283           Quest                 2002-03-25 19:41  2002.04.15  
Как установить LangDriver =


1-46443           Leonon                2002-04-03 09:54  2002.04.15  
TMemo - где предел вместимости под Win98 ???


1-46343           Biorobot              2002-04-01 18:28  2002.04.15  
Куда мои вопросы деваются?


1-46426           dimonf                2002-04-02 21:13  2002.04.15  
Как сделать, чтобы QuickReport-а не было видно на моей форме?


14-46500          Olgerd                2002-03-06 18:15  2002.04.15  
Специальные символы