Форум: "Основная";
Поиск по всему сайту: 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.03 c
14-46515          Gray 99 rus           2002-03-04 19:56  2002.04.15  
Помогите с объемом программы...


1-46320           ...                   2002-04-03 16:05  2002.04.15  
Ламерский вопрос


3-46233           AlexNord              2002-03-23 07:56  2002.04.15  
Blolb поля на Insert в IB SQL


1-46450           AFROLOV               2002-04-03 11:21  2002.04.15  
Resize форм


3-46261           Delphin2              2002-03-25 08:36  2002.04.15  
Базы данных