Как генирируеться случайное число?

[Altera]

Привет всем... У меня вопрос, как комп генентрует случайное число, по дате и времени?

[Романнн]

хм.....щас можт че и сморожу,но в сегодняшних процессорах предусмотрена такая штука как "тепловой шум".....думаю,не надо объяснять что с этим шумом происходит?))

[Air]

по дате и времени

Мне казалось, что комп просто выбирает любое число из предложенного диаппазона.

[mihali4]

Borland, насколько я помню, генерирует эти числа в зависимости от текущего времени в миллисекундах.

[B_N]

Сообщение от Altera

Привет всем... У меня вопрос, как комп генентрует случайное число, по дате и времени?

Это в значительной степени зависит от задачи. "Обычные", системные, генераторы делают это, как правило, с помощью несложной арифметики, скажем вот генератор псевдослучайных чисел из FreeBSD.

[Viteef]

Сообщение от mihali4

Borland, насколько я помню, генерирует эти числа в зависимости от текущего времени в миллисекундах.

Скорее всего так.

Делал программу на паскале, которая случайно расставляла точки на экране, через какое-то время начали вырисовываться прямые линии

комп просто выбирает любое число

Объясни ему, что такое "любое" число

[Serge_Bliznykov]

Так как не указано, что подразумевается под словами "комп генерирует" то вариантов правильных ответов вагон и ещё тележка!!

есть и спецплаты (для шифрации), у которых есть аппаратный генератор случайных чисел, а есть и таблицы случайных чисел...

с точки зрения, как это происходит в какой-нибудь среде программирования например Pascal/Delphi), то
имхо, наиболее верный ответ дал mihali4!

Например, в Pascal/Delphi есть переменная RandSeed
есть алгоритм (ну, грубо говоря, математическая формула) для получения очередного случайного числа на основе предыдущего (опорного числа).
Если эту переменную не проиницилизировать, то будет получаться одна и та же последовательность случайных чисел... Для того, чтобы в эту переменную занести новое опорное число используется процедура Randomize, в её исходниках написано следующее:
sum = hours * 60 + minutes
sum = sum * 60 + seconds
sum = sum * 1000 + milliseconds
MOV RandSeed,EAX

[Altera]

Сообщение от Viteef

Скорее всего так.

Делал программу на паскале, которая случайно расставляла точки на экране, через какое-то время начали вырисовываться прямые линии


Объясни ему, что такое "любое" число

Это с randomize, или без?

[Квэнди]

Сообщение от Altera

Привет всем... У меня вопрос, как комп генентрует случайное число, по дате и времени?

function Random: Extended;
{$IF DEFINED(CPU386)}
const two2neg32: double = ((1.0/$10000) / $10000);  // 2^-32
asm
{       FUNCTION _RandExt: Extended;    }

        PUSH    EBX
{$IFDEF PIC}
        CALL    GetGOT
        MOV     EBX,EAX
        MOV     ECX,[EBX].OFFSET RandSeed
        IMUL    EDX,[ECX],08088405H
        INC     EDX
        MOV     [ECX],EDX
{$ELSE}
        XOR     EBX, EBX
        IMUL    EDX,[EBX].RandSeed,08088405H
        INC     EDX
        MOV     [EBX].RandSeed,EDX
{$ENDIF}

        FLD     [EBX].two2neg32
        PUSH    0
        PUSH    EDX
        FILD    qword ptr [ESP]
        ADD     ESP,8
        FMULP   ST(1), ST(0)
        POP     EBX
end;
{$ELSEIF DEFINED(CLR)}
begin
  InitRandom;
  Result := RandomEngine.NextDouble;
end;

function Random(const ARange: Integer): Integer;
{$IF DEFINED(CPU386)}
asm
{     ->EAX     Range   }
{     <-EAX     Result  }
        PUSH    EBX
{$IFDEF PIC}
        PUSH    EAX
        CALL    GetGOT
        MOV     EBX,EAX
        POP     EAX
        MOV     ECX,[EBX].OFFSET RandSeed
        IMUL    EDX,[ECX],08088405H
        INC     EDX
        MOV     [ECX],EDX
{$ELSE}
        XOR     EBX, EBX
        IMUL    EDX,[EBX].RandSeed,08088405H
        INC     EDX
        MOV     [EBX].RandSeed,EDX
{$ENDIF}
        MUL     EDX
        MOV     EAX,EDX
        POP     EBX
end;
{$ELSEIF DEFINED(CLR)}
begin
  InitRandom;
  Result := RandomEngine.Next(ARange);
end;