Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.04;
Скачать: CL | DM;

Вниз

Генерация случайного числа в диапазоне 30......90   Найти похожие ветки 

 
Dmitriy_R   (2002-01-15 13:51) [0]

Как сгенерить случайное число в диапазоне от 30 до 90?


 
MBo ©   (2002-01-15 13:55) [1]

i:=random(61)+30;


 
Nemesis ©   (2002-01-15 13:56) [2]

30+Random(60)


 
Alx2 ©   (2002-01-15 14:05) [3]

Если вещественного типа, то
60*random+30


 
IronHawk ©   (2002-01-15 14:16) [4]


procedure Button1Click(Sender: TObject);
var
I: Integer;
begin
Randomize;
for I := 30 to 60 do
begin
Edit1.text:=IntToStr(I);
end;
end;


 
Alx2 ©   (2002-01-15 14:22) [5]

Стёб?


 
DELPHIMUN ©   (2002-01-15 16:47) [6]

function randomNamber(namber: integer): integer;
begin
result := random(namber);
end;
procedure button1click(sender: tobject);
var
e: tedit;
begin
e := tedit.create(sender);
e.parent := form1;
e.top...
...
randomnamber(strtoint(e.text));
end;
end.


 
Вадим ©   (2002-01-15 22:13) [7]

2DELPHIMUN

А чем отличается Random(x) и randomnamber(x)?


 
tovSuhov ©   (2002-01-16 10:36) [8]

>Dmitriy_R
Отвечу по существу...
Функция random(num) возвращает случайное число в диапазоне 0..num
Если надо от 30 до 60,то можно сделать так: num:=30+random(30);
Однако, нужно учесть, что при каждом перезапуске программы последовательность генерации случайных чисел будет повторяться... Чтобы этого избежать, перед вызовом random можно вызвать процедуру Randomize...


 
MBo ©   (2002-01-16 12:15) [9]

>диапазоне 0..num
0..num-1


 
Anatoly Podgoretsky ©   (2002-01-16 19:57) [10]

Общая формула:

a + random(b-a)



Страницы: 1 вся ветка

Текущий архив: 2002.02.04;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.009 c
1-8846
Dmitriy_R
2002-01-21 11:05
2002.02.04
Как выяснить целое число и его остаток после какой нить математической операции?


4-9040
GoldenFox
2001-12-06 16:06
2002.02.04
Надо убрать иконку из Таскбара в WinNT,


3-8770
maxi
2002-01-03 11:19
2002.02.04
Как в Делфи работать с разделителями полей к базе ASCII ?


1-8943
Mitrofan
2002-01-18 11:34
2002.02.04
Как програмно проскролировать RichEdit ?


14-8977
evgeg
2001-12-12 21:27
2002.02.04
А вы знаете, что ссылки на этот форум есть на сайт www.rsdn.ru в разделе