Скажите как просто сгенерировать случайное число

← →
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);
Можешь проверить - тоже работает!

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]!

Скажите как просто сгенерировать случайное число Найти похожие ветки