Форум: "Основная";
Поиск по всему сайту: 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.024 c
3-46276           Stranger              2002-03-25 16:01  2002.04.15  
Хранение файлов различных типов в полях БД MS SQL Server


14-46489          Shaman_Naydak         2002-03-06 13:09  2002.04.15  
Еще про объекты


1-46319           helga                 2002-04-02 18:00  2002.04.15  
CopyFile


14-46484          Shaman_Naydak         2002-03-06 12:49  2002.04.15  
Delphi: конструктор и деструктор


14-46510          Knight                2002-03-07 14:47  2002.04.15  
Материал по теории графов...