Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.011 c