begin
Randomize;
begin
int := Random(100);
end;
Но бывает что randomize 2 (или больше) раза подряд выдает одно и тоже число. Можно ли както этого избежать? Исключить повторение двух чисел подряд?
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
вопрос по процедуре randomize |
1147 |
Сообщение
#1
|
Бывалый Группа: Пользователи Сообщений: 205 Пол: Мужской Реальное имя: Евгений Репутация: 0 |
Например нам нужно каждый раз, при нажатии кнопки, получать разные числа в диапазоне 0..99:
Но бывает что randomize 2 (или больше) раза подряд выдает одно и тоже число. Можно ли както этого избежать? Исключить повторение двух чисел подряд? |
volvo |
Сообщение
#2
|
Гость |
Запоминай предыдущее значение, и сравнивай со вновь сгенерированным:
var prev: integer = 100; // глобально |
1147 |
Сообщение
#3
|
Бывалый Группа: Пользователи Сообщений: 205 Пол: Мужской Реальное имя: Евгений Репутация: 0 |
спасибо, получилось!
|
Текстовая версия | 23.12.2024 21:11 |