Непонятна работа связки randomize - random

@peahematop · Регистрация: 08.04.2016

Author24 — интернет-сервис помощи студентам

При создании процедуры заполнения массива случайными цифрами, в прогоне программы через RUN массивы получаются с одинаковыми данными, в прогоне через DEBUG пошагово - все нормально, данные разные, всем подвох? Или как всегда кривость рук?
Пример

Pascal

Procedure loadmas(var a: tmas);
Var
I: integer;
Begin
Randomize;
For I:= 1 to csize  do a[i]:= random(50)+1;
End;
 
Var
X, y, z: tmas;
Begin
Loadmas(x);
Loadmas(y);
Loadmas(z);

Код не весь, но смысл ясен.
Непойму почему через отладчик все норм, а через run массивы равны, проясните если незатруднит.

@bormant · 27.12.2016, 21:15

В модуле System есть переменная RandSeed. Ее значение используется для вычисления значения очередного псевдослучайного числа (а затем и ее значение изменяется). По умолчанию ее значение 0, число, которое при этом выдаст Random() тоже 0. Randomize берет значение текущего времени и из него формирует псевдослучайное значение для RandSeed.

У вас вызов Randomize происходит в рамках одной временной единицы, RandSeed получает одинаковое значение и отсюда одинаковые порожденные последовательности.

@peahematop · 27.12.2016, 21:34 **[ТС]**

Спасибо за развёрнутый ответ, а какие могут быть варианты заполнения нескольких массивов? Делать промежуточный с количеством элементов равный сумме элементов остальных, и далее из него заполнять необходимые? Больше в голову ничего не идёт...

@bormant · 27.12.2016, 21:44

Вариант простой, зовем в начале 1 раз:

Pascal

1 2	begin Randomize;

@peahematop · 27.12.2016, 21:52 **[ТС]**

Заработало)

@bormant Модератор 7769 / 4598 / 2823 Регистрация: 22.11.2013 Сообщений: 13,077 Записей в блоге: 1
	27.12.2016, 21:15	2
	В модуле System есть переменная RandSeed. Ее значение используется для вычисления значения очередного псевдослучайного числа (а затем и ее значение изменяется). По умолчанию ее значение 0, число, которое при этом выдаст Random() тоже 0. Randomize берет значение текущего времени и из него формирует псевдослучайное значение для RandSeed. У вас вызов Randomize происходит в рамках одной временной единицы, RandSeed получает одинаковое значение и отсюда одинаковые порожденные последовательности. 1

@peahematop 0 / 0 / 3 Регистрация: 08.04.2016 Сообщений: 9
	27.12.2016, 21:34 [ТС]	3
	Спасибо за развёрнутый ответ, а какие могут быть варианты заполнения нескольких массивов? Делать промежуточный с количеством элементов равный сумме элементов остальных, и далее из него заполнять необходимые? Больше в голову ничего не идёт... 0

@peahematop 0 / 0 / 3 Регистрация: 08.04.2016 Сообщений: 9
	27.12.2016, 21:52 [ТС]	5
	Заработало) 0

Непонятна работа связки randomize - random

Решение