|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.12.2019, 11:32 | #1 |
Форумчанин
Регистрация: 21.09.2012
Сообщений: 372
|
фиксация случайного числа. Random=1
Добрый. У меня в программе около 20ти раз вызывается рандом. не охота для каждого случая писать вместо k:=random(2) , менять k:=1 и так везде.
Есть ли способ зафиксировать генератор для данной программы на одном числе?
Занимаюсь:1.зверьком- покемончиком для компьютерного затончика. 2 IT-грибами,что бы скушать потом их с вами.3. цифровым обезьянками, как куны ударяют за тянками
|
23.12.2019, 11:48 | #2 | |
Форумчанин
Регистрация: 27.04.2012
Сообщений: 219
|
Цитата:
Код:
Код:
Пишу много и развернуто
Последний раз редактировалось Heneken87; 23.12.2019 в 11:51. |
|
23.12.2019, 14:21 | #3 |
Форумчанин
Регистрация: 21.09.2012
Сообщений: 372
|
Фиксация случайного числа - randomize(0)? Вместо 0 может быть любое другое число, лишь бы не случайное. Но если будет ноль, то он будет выбирать от нуля до нуля. то есть каждый раз, когда я буду делать Random, у меня будет автоматически вызываться ноль? или нет? И можно ли это будет сделать сразу во всех юнитах?
Занимаюсь:1.зверьком- покемончиком для компьютерного затончика. 2 IT-грибами,что бы скушать потом их с вами.3. цифровым обезьянками, как куны ударяют за тянками
Последний раз редактировалось anaschu; 23.12.2019 в 14:23. |
23.12.2019, 14:25 | #4 |
Форумчанин
Регистрация: 21.09.2012
Сообщений: 372
|
вроде как результатом может быть либо ноль, либо один. или я не прав?
Занимаюсь:1.зверьком- покемончиком для компьютерного затончика. 2 IT-грибами,что бы скушать потом их с вами.3. цифровым обезьянками, как куны ударяют за тянками
|
23.12.2019, 14:42 | #5 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
не охота для каждого случая писать вместо k:=random(2) , менять k:=1 и так везде.
для таких случаев (одновременная замена фиксированного значения сразу во многих местах) существует константы. Код:
Код:
Код:
программа — запись алгоритма на языке понятном транслятору
|
24.12.2019, 17:00 | #6 |
Форумчанин
Регистрация: 21.09.2012
Сообщений: 372
|
Если надо просто вместо рендома фиксированное значение мочь подставить напиши свою функцию
По типу Function tolrand(rand: boolean): single Begin If rand then Result := Random() Else Result := 0; End; И задавай rand глобально
Занимаюсь:1.зверьком- покемончиком для компьютерного затончика. 2 IT-грибами,что бы скушать потом их с вами.3. цифровым обезьянками, как куны ударяют за тянками
|
27.12.2019, 08:20 | #7 |
Форумчанин
Регистрация: 27.04.2012
Сообщений: 219
|
Это ты сам себе отвечаешь?)
Пишу много и развернуто
|
28.12.2019, 02:58 | #8 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,650
|
Поведение автора темы непонятное. Но я все таки дам ответ на поставленный вопрос. Достаточно просто заменить стандартную функцию Random на свою:
Код:
E-Mail: arigato.freelance@gmail.com
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вывод случайного числа, нужно десять таких результатов | nikolokaputik80 | PHP | 6 | 29.01.2017 22:55 |
Постановка случайного числа в значение объекта | Sashavslg | Компоненты Delphi | 1 | 12.10.2012 13:31 |
выбор случайного числа (турбо раскаль) | pop3 | Помощь студентам | 1 | 05.07.2012 14:13 |
Вывод случайного числа | quarty | Общие вопросы Delphi | 5 | 10.01.2011 17:35 |
Присвоение случайного числа изображению | Волшебник_ | Общие вопросы Delphi | 6 | 29.03.2010 15:13 |