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

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

Форум программистов > Delphi: Общие вопросы > randomize&random

Автор: Негодяй 25.3.2005, 14:32

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
fx:=100;fy:=100;
randomize;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
fx:=random(clientwidth);
fy:=random(clientheight);
end;
end.

что randomize даёт?? ведь можно и без него или он позволят по-более перебирать??

Автор: p0s0l 25.3.2005, 14:47

Можно и без него... Но тогда случайные значения у тебя будут повторяться при каждом запуске проги...

Автор: Петрович 25.3.2005, 14:49

Цитата

что randomize даёт??

Дело в том, что random возвращает псевдослучайное число. Т.е., последовательность строго говоря не случайная. Каждое последующее число в ней является функцией от предыдущего. А поскольку это так, то randomize, обеспечивает некоторое начальное значение, увы тоже не случайное, но зависящее от тек.времени.
Если randomize не вызывать, то тогда начальным числом всегда будет 0. Поэтому, последовательность вызовов random будет всегда давать одинаковую последовательность чисел при каждом запуске программы.
Кстати, этим иногда удобно пользоваться при отладке программы.

Автор: Негодяй 25.3.2005, 15:00

спасибо

Цитата

при отладке программы.

аааааааа как это??

Автор: p0s0l 25.3.2005, 15:57

Ну если у тебя каждый раз Random даёт разные значения, то выловить ошибку сложнее, т.к. программа каждый раз действует по-разному, даже может быть такое, что при одном запуске - нет ошибки, при другом - есть... Тогда вылавливание ошибки усложняется...
Если же не делать Randomize, то Random будет повторяться, то есть программа будет действовать одинаково при каждом запуске, и так легче найти ошибку, если она есть...