VPF::<<Создание гинератора случайных чисел>>

kostik_16

Дата 13.8.2003, 05:52 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 196
Регистрация: 23.7.2003

Репутация: -4
Всего: 1

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

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

Bodya

Дата 13.8.2003, 06:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 13.6.2003

Репутация: нет
Всего: нет

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 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 10.8.2003

Репутация: нет
Всего: нет

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

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

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

<Spawn>

Дата 15.8.2003, 09:53 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

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

Код

RandomFrom,
RandomRange

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

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

-Vadim-

Дата 16.8.2003, 06:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 10.8.2003

Репутация: нет
Всего: нет

Код

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

CODE 
RandomFrom,
RandomRange

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

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

<Spawn>

Дата 16.8.2003, 07:07 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Сначала, необходимо подключить модуль 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;

Это сообщение отредактировал(а) <Spawn> - 16.8.2003, 08:43

--------------------

Pathfider

Дата 23.10.2004, 17:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 128
Регистрация: 13.7.2004
Где: все там же

Репутация: -1
Всего: 1

А можно и так:

Код


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;

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

--------------------

Trust is a weakness

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »