Привет всем.. люди объясните как зделать "Random" словам, чёто не доходит никак=(( я пробую так
A: Array[1..3] of String = ('R','T','J');
Random(A) + 1;
Объясните плиззз...

A: Array[1..3] of String = ('R','T','J');
Random(A) + 1;

Так работать не будет!
Нужно делать что-то типа этого:

var
A: Array[0..2] of String = ('R','T','J');
a_index: Integer;

for a_index = 0 to 2 do
begin
Random(A[a_index]) + 1;
end;

Хотя я наверное не понял задание...

Это сообщение отредактировал(а) Sniper - 12.4.2004, 11:36

Спасибо Но так чёт тоже не работает-->"мне надо чтоб выбирались каждый раз разные слова из моей переменной"...

const N = 3;
A: array [1..N] of String = ('R','T','J');
s := A[Random(N)+1];

В s - случайная строка.

Ну или просто так, без константы:

A: array [1..3] of String = ('R','T','J');
s := A[Random(3)+1];


PS Random (L) выводит случайное целое число в интервале от нуля до L-1
Также, насколько я помню, Random без параметра выдаёт случайное число с тремя знаками после запятой в интервале [0, 1).

Это сообщение отредактировал(а) dm9 - 12.4.2004, 12:41

Random - псевдослучайная последовательность. Чтобы при каждом запуске программы генерация чисел начиналось с разного места этой последовательности - используй процедуру Randomize (например при старте программы), а затем уже получай значения с помощью функции Random.

Цитата(remax @ 12.4.2004, 14:11)

Random - псевдослучайная последовательность. Чтобы при каждом запуске программы генерация чисел начиналось с разного места этой последовательности - используй процедуру Randomize (например при старте программы), а затем уже получай значения с помощью функции Random.

Спасибо я в курсе...

если уж тема про Random... то и я спрошу!

Как она вообще реализуется? Может с помощью таймера?

Нет. Таймер используется только при "рандомизации" при "случайной" переустановке номера позиции в псевдослучайной последовательности.

Random - это фигня не всегда работает! У меня на компе первые десять чисел всегда одинаковы!!!

Где-то в форуме видел ильтернативы этому Random'у...

Если не использовать Randomize перед применением Random, то так и должно быть. Это специально так задумано, чтобы можно было отладить программу, которая работает со случайными числами. Как только отладка заверешена, добавляем в начале программы вызов функции Randomize и тогда получаем каждый раз разный набор "первых десяти" или сколько там надо случайных чисел.

Конечно, как генератор случайной последовательности функция Random не очень хороша. Если Вы собираетесь строить сложные математические модели стохастического типа и должны обеспечить большой период повтерения и низкий уровень корреляции, то разумеется Random не годится. Проще это все сделать в каком либо математическом пакете. Тем более, что функция Random генерирует случайную величину имеющую равномерное распределение. В делфи есть еще функция RandG - нормальное распределение. Но его генерация осуществляется на базе Random методом отсева, что не лучшим способом действует на его характеристики.

Однако, если Вы моделируете игру в кости или что-нибудь подобное, то штатных средств делфи вполне хватает.

Конечно, есть реализации готовых псевдо случайных генераторов с более высокими характеристиками, но их надо поискать в доп. математических библиотеках к делфи. А можно и сделать самому...

Цитата

Если не использовать Randomize перед применением Random, то так и должно быть. Это специально так задумано, чтобы можно было отладить программу, которая работает со случайными числами. Как только отладка заверешена, добавляем в начале программы вызов функции Randomize и тогда получаем каждый раз разный набор "первых десяти" или сколько там надо случайных чисел.

В том и весь прикол: Randomize присутствует, а первая десяика всегда одна и та же; на другом компе всё работает!

Pakshin A. S., чудес не бывает. приведи код.

Pakshin A. S. может я ошибаюсь, но помоему это был баг Пней он даже как-то назывался че-то типа ошибок при работе с плавающей точкой... Вроде как их изяли с продажи... может тебе он нечаянно продали?

x77

Код

Randmize; for i:=1 to 10 do writeln(Random(100));

Вы думаете, что я с Random'ом не умею работать?! Ошибаетесь!!!

nJIaKca.spb
Все может быть... Эта проблема исчезла после переустановки Windows'а, после сноса всего C:\...

К слову про Win: наблюдалось самовольное изменение переменных в памяти!!! Это было даже в простых кодах... Используя большие числа при int64 я замечал, что некоторые разряды периодически меняли своё значение! Поменяешь имя переменной, работает... Но жто было в прошлом, теперь всё в полном порядке!

так давно искал такого рода форум плиз хелППП.
вот код
procedure Tform1.Timer1Timer(Sender: TObject);

var
x,y:integer;
begin
y:=random(243);
x:=random(252);
button1.top:=y;
button1.left:=x;
все конечно работает хорошо но надо чтоб Y принимал только 5 значений а X 3 значения.
как задать random определенные целые цифры к примеру 10.120.243 чтоб разное значение только из этих цифр было .
ПОМОГИТЕ ЕСЛИ МОЖНО !!!!!
ЗА РАНЕЕ БЛАГОДАРЕН