Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Генерация случайного числа в диапазоне 30......90 [D6, Win95/98]

Dmitriy_R © (2002-01-15 13:51:00)
Как сгенерить случайное число в диапазоне от 30 до 90?

Anatoly Podgoretsky (2002-01-16 19:57:00) [1]
Общая формула:

a + random(b-a)

MBo (2002-01-16 12:15:00) [2]
>диапазоне 0..num
0..num-1

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

Вадим (2002-01-15 22:13:00) [4]
2DELPHIMUN

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

DELPHIMUN (2002-01-15 16:47:00) [5]
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.

Alx2 (2002-01-15 14:22:00) [6]
Стёб?

IronHawk (2002-01-15 14:16:00) [7]

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:05:00) [8]
Если вещественного типа, то
60*random+30

Nemesis (2002-01-15 13:56:00) [9]
30+Random(60)

MBo (2002-01-15 13:55:00) [10]
i:=random(61)+30;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »