Форум: "Основная";
Текущий архив: 2003.12.26;
Скачать: [xml.tar.bz2];
Вниз
Скажите как просто сгенерировать случайное число Найти похожие ветки
← →
Jenaxx (2003-12-13 17:43) [0]чтобы генерация происходила при нажатие кнопки,и значение добавить на Label1 например или мемо1, и скажите как генерировать в радисусе от 10 до 20 и как абсолютно любое, чтобы понять это команду.спасибо.
← →
gestern (2003-12-13 17:58) [1]label1.caption:=inttostr(random(10));
Случ. целое от 0 до 10 на лейбл
← →
WithOut Any... (2003-12-13 18:04) [2]В каком диапазоне?
← →
Alexious (2003-12-13 18:21) [3]
repeat
x:=random(20);
until x>10;
← →
Jenaxx (2003-12-13 18:32) [4]Alexious
а каким образом с помощью этого цикла вывести результат на label1 ?
← →
MikeZ (2003-12-13 18:37) [5]Маньяки все...
Randomize;
Label1.caption := IntToStr(Random(10+1)+10);
Random дает случайное число от 0 до N (не включая), поэтому 10+1, чтобы было от 0 до 10. К результату прибавляем 10 для создания диапазона от 10 до 20.
← →
Anatoly Podgoretsky (2003-12-13 18:40) [6]gestern (13.12.03 17:58) [1]
Не обманывай
Alexious © (13.12.03 18:21) [3]
В школе не учились
← →
Alexious (2003-12-13 18:47) [7][2] Anatoly Podgoretsky © (13.12.03 18:40) [6]
А ты попробуй
[2] Jenaxx label1.caption:=inttostr(x);
← →
Jenaxx (2003-12-13 19:00) [8]Да работает, и еще вопрос: как здесь написать условие при котором если сгенерированное число уже только что было, менялось на вновь сгенерированое но с другим значением.
← →
Anatoly Podgoretsky (2003-12-13 19:13) [9]Не зачем крутить цикл, для генерации диапазона не с нуля, а просто вспомнить школу
Random(b-a) + a
← →
real_dimedrol (2003-12-14 03:05) [10]Alexious ©
Я усовершенствовал твой вариант:
repeat
x:=random(2000000);
until (x>=10) and (x<=20);
Можешь проверить - тоже работает!
← →
Spawn (2003-12-14 09:01) [11]real_dimedrol )))))))))))))))))))
Кстати, существует продвинутая функция(для тех кому не хочется задумываться о математике) из модуля Math для получения случаяных чисел из диапазона - RandomRange()
← →
Ivolg (2003-12-14 10:31) [12]Вот так:
label1.Caption:=inttostr(random(100));
← →
real_dimedrol (2003-12-14 16:49) [13]Товарищ Ivolg превзошел всех своим алгоритмом вывода псевдо случайных чисел в диапазоне [10,20]!
← →
real_dimedrol (2003-12-14 16:50) [14]Товарищ Ivolg превзошел всех своим алгоритмом вывода псевдослучайных чисел в диапазоне [10,20]!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.12.26;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.007 c
