Помощь - Поиск - Пользователи - Календарь
Полная версия: вопрос по процедуре randomize
Форум «Всё о Паскале» > Pascal, Object Pascal > Теоретические вопросы
1147
Например нам нужно каждый раз, при нажатии кнопки, получать разные числа в диапазоне 0..99:

begin
Randomize;
begin
int := Random(100);
end;


Но бывает что randomize 2 (или больше) раза подряд выдает одно и тоже число. Можно ли както этого избежать? Исключить повторение двух чисел подряд?
volvo
Запоминай предыдущее значение, и сравнивай со вновь сгенерированным:

var prev: integer = 100; // глобально
// ...
begin
repeat
i := random(100);
until i <> prev;
prev := i;
end;
1147
спасибо, получилось!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.