Я хочу получить случайное число в паскалях из диапазона. В основном что-то вроде этого:
r = random(100,200);
Приведенный выше код будет иметь случайное число от 100 до 200.
Любые идеи?
Встроенная функция pascal позволяет вам получить число только из диапазона 0-ваш диапазон, в то время как мне нужно указать минимальное число для возврата
Просто получите случайное число с правильным диапазоном (например, от 100 до 200 будет диапазон 100), затем добавьте к нему начальное значение.
Итак: random(100) + 100 для вашего примера
random(200)+100?
- person Ali; 11.02.2011
random возвращает случайные числа очень низкого качества.
- person CodesInChaos; 10.08.2012
Как уже было сказано, вы должны использовать
myrandomnumber := random(span) + basenumber;
Однако, чтобы получить случайные числа лучшего качества, вы должны вызвать
randomize();
один раз при запуске приложения для инициализации генератора случайных чисел.
Не могли бы вы просто объявить начальную переменную и конечную переменную и передать их случайным образом? например
var
varMyRandomNumber, x, y := extended;
begin
x := 100;
y := 200;
varMyRandomNumber := random(x,y);
ShowMessage(IntToStr(varMyRandomNumber));
end;
?
Здесь есть хороший пример использования цикла for для установки начального и конечного значений: http://www.freepascal.org/docs-html/rtl/system/random.html
в первую очередь рекомендую использовать Randomize в начале программы (меняется алгоритм выбора номера).
Чтобы получить случайное число между некоторыми двумя числами, вам нужно это:
Result:=Min+random(10000)mod max + 1;
Я не помню максимальное значение для рандома, поэтому вы можете изменить его (это ничего не меняет).
Используя «мод», вы получаете модуль из раздела Random и макс. +1 нужен, потому что вы никогда не получите число, которое = max, только число, которое = max-1, поэтому вам нужно написать +1.
Удачи!
min - 1, иначе вы никогда не получите min. Но в целом в программировании, когда мы говорим между X и Y, мы имеем в виду между X включительно и Y исключая - это упрощает кучу вещей, поэтому формула просто min + random(span), нет необходимости в +1. Также ваша граница 10000 является произвольной и не будет работать для всех значений max, вы должны сделать random(max - min). Для решения общего назначения вы также хотите проверить, что min <= max иначе что-то сломается.
- person Thomas; 14.07.2013
Вы можете сделать это как Int:=Random(100); это дает 100 случайных чисел. затем, когда вы отображаете его или используете, просто добавьте 101 к этому целому числу, чтобы оно было между 100 и 200.
