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

[Veryn4ik1993]

Здравствуйте!!!Мне нужно разобраться в следующем: я написала линейный конгруэнтный метод, но для определенных чисел,есть какая то функция seed(), можно ли ей тут пользоваться? и как мне еще эти числа записать в файл???
Заранее за любую помощь спасибо!!!

program LKGM;

const
  a = 214013;
  c = 2531011;
  m = 232;

var
  i, x: integer;my: integer;

begin
  i := 0;
  my:= 8;
  while (i < 100) do
  begin
    x := (a * my + c) mod m;
    my:= x;
    write(my:5, ' ');
    i := i + 1;
  end;
end.

[ZX Spectrum-128]

Randomize - изменяет последовательность псевдослучайных чисел
Random(x) - псевдослучайное число в интервале 0..x-1
Randseed - Изменяет число, с которого начиная генерация

[Veryn4ik1993]

Тогда моя последовательность будет случайной

[ZX Spectrum-128]

Так вроде вам же это и нужно было. Нет?

[Veryn4ik1993]

а как мне в моей програмке воспользоваться

[ZX Spectrum-128]

x:=random(256);

Например.
Только, честно говоря, я не совсем понял, что вам нужно.

[Veryn4ik1993]

мне нужно написать генератор псевдослучайных чисел, вот выписка со статьи, я просто понять не могу, как к моей програмке это применить
У любого ГПСЧ есть некоторое значение (переменная), которое текущее значение которой и является случайным значением, назовём эту переменную RandSeed, его также принято называть инициализатором ГПСЧ (по крайнем мере я его так называю, вы называйте, как хотите смысл не меняется). При вызове функции Randomize() происходит присваивание переменной RandSeed некоторого значения, которое извлекается от системного таймера или другого источника, значение которого трудно предсказать.

[ZX Spectrum-128]

То есть вам все-таки нужно написать сам гпсч?

[Veryn4ik1993]

да, я начали, но для определенных чисел, правильно ли это будет

[ZX Spectrum-128]

http://www.delphiplus.org/fundamenta...nii-metod.html
Там обьяснение и код.