Текущий архив: 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.011 c
