Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > <<Создание гинератора случайных чисел>>

Автор: kostik_16 13.8.2003, 05:52

Как в Delphi создать гинератор случайных чисел?
Вот например в VB
Randomize
chislo = int(rnd*10)
Чет типо того. Есть ли такое в Delphi?

Всем спасибо за внимание!

Автор: Bodya 13.8.2003, 06:07

Delphi help example:

var

I: Integer;
begin
Randomize;
for I := 1 to 50 do begin
{ Write to window at random locations }
Canvas.TextOut(Random(Width), Random(Height), 'Boo!');
end;
end;

Автор: -Vadim- 15.8.2003, 03:19

RandG генератор чисел распределенных по нормальному закону.
function RandG(Mean, StdDev: Extended): Extended;

Random - генератор случайных чисел.
function Random(Range: Integer); , где Range необязат. параметр, задающий диапазон случайных чисел.

Randomize; - рандомизирует генератор. Без параметров, обычно втавляеться в "создание формы". Нужен что бы числа не повторялись.

Автор: <Spawn> 15.8.2003, 09:53

Так же существуют такие функции:

Код

RandomFrom,
RandomRange

позволяющие лучшим образом контролировать случаяные числа, генерируемые при помощи библиотеки RTL.

Автор: -Vadim- 16.8.2003, 06:00

Код

 
Так же существуют такие функции:

CODE 
RandomFrom,
RandomRange

позволяющие лучшим образом контролировать случаяные числа, генерируемые при помощи библиотеки RTL.

Если можно то чуть поподробние о этих функциях.

Автор: <Spawn> 16.8.2003, 07:07

Сначала, необходимо подключить модуль Math.
RandomFrom - выбирает случаяное значение из массива допустимых значений, который передается в качестве параметра:

Код

var arr:array[1..2] of integer;
begin 
 arr[1]:=10;
 arr[2]:=100;
 Randomize;
 ShowMessage(IntToStr(RandomFrom(arr)));
end;

RandomRange - возвращает случаяные значение, между двумя указанными границами:

Код

begin
Randimize;
ShowMessage(IntToStr(RandomRange(10,100)));
end;

Автор: Pathfider 23.10.2004, 17:40

А можно и так:

Код


function rnd():string;
var
    d, i: integer;
    s: string;
begin
randomize;
s:='';
for i:=1 to 6 do
  begin
    d:=Random(9);
    s:=s+IntToStr(d);
  end;
Result:=s;
end;

В цикле задаем количество цифр в числе.