Можно ли подсчитать функцию random?

[vadmaruschak]

А именно... Я узнал, что работает рандом по формуле, и генерирует следущие числа в зависимости от предыдущих. Можно ли сделать так, чтобы самому писать числа, а рандом чтобы генерировал следущее число в зависимости от введенных мной чисел?

[Lime]

А разве это будет random ?

[Lemo]

Заносит в массив, числа рендомом, в указаном вами диапазоне...

write('n=');
readln(n);
////////////
for i:=1 to 10 do
a[i]:=random(n)+1;

Отписал, но наверно не то.... =(

[DeKot]

var limit: integer; // Ваше число для рандома
                val: integer;  // рандомная переменная
begin
  Randomize;
  val:= Random(limit);
end;

[Stilet]

Для этого есть переменная RandSeed которая если не ошибаюсь есть базовая для генерации очередного числа. Его и выставляй

[Serge_Bliznykov]

можно.
присваивайте значение "начальной затравки" своё число и получите одну и ту же последовательность псевдослучайных чисел.

сравните:
случайная последовательность.

  Randomize;
  for i:=1 to 10 do
    Memo1.Lines.Append(IntToStr(Random(100)));

и

  RandSeed := 100;
  for i:=1 to 10 do
    Memo1.Lines.Append(IntToStr(Random(100)));

это даст последовательность:
13 99 1 23 14 ....
разумеется, измените число, изменится и последовательность.

___________________________________ ____________________________

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

Для этого есть переменная RandSeed которая если не ошибаюсь есть базовая для генерации очередного числа.

Вы абсолютно правы, коллега. к сожалению не увидел Вашего поста, когда писал ответ...

[vadmaruschak]

А можно полный код программки на примере?)) Просто я только учусь на первом курсе, и еще не очень понимаю...

[Stilet]

Смотря что ты хочешь. Если нужно выставить базовую точку для случайного числа то так:

var i:integer;
begin
 RandSeed:=5;
 for i := 0 to 10 do begin
  write(random(10):5);
 end;
 readln;
end.

А если начало отсчета то так:

var i:integer;
begin
 for i := 0 to 10 do begin
  write(5+random(10):5);
 end;
 readln;
end.

Определись с задачей

[vadmaruschak]

Вот код генерации чисел от 0 до 100:

begin
 Randomize;
  Writeln(random(100));
  Writeln(random(100));
  Writeln(random(100));
  Writeln(random(100));
  Writeln(random(100));
 Readln;
end.

Он вывел 5 чисел:
41
9
73
83
98.
В следущий раз он генерирует новые числа... А как сделать, чтобы задать эти числа(41 9 73 83 98) и генератор продолжил генерир. относительно этих чисел?

[Stilet]

Ты мой пост вимательно читал?