random

[Sanek_ntsk]

Я создал переменную, присвоил её через random(). Мне надо чтобы каждое следующее число не повторялось. Народ, помогите!

[PAVEL315]

Объявляешь массив, и смотришь, что бы не повторялось. каждый раз число из массива уходит

[Sanek_ntsk]

Мне надо без массива

[mutabor]

Сообщение от Sanek_ntsk

Мне надо без массива

Прийдется с массивом

const N = <макс предел>;
var mas: array[0..N] of boolean;

...
r:=Random(N+1);
while mas[r] do
  begin
  Inc(r);
  if r > N then Break;
  if not mas[r] then 
    begin
    mas[r]:=true;  
    Break;
    end; 
  end;
...

[mihali4]

Мне надо чтобы каждое следующее число не повторялось.

Противоречит любым законам теории вероятности...

[_Dmitry]

Вызывайте генератор так: random(High(Integer)), диапазон чисел будет [0..2147483646]. Вероятность совпадения 5E-10.

[Sanek_ntsk]

Ещё один вопрос. Как при запуске проги сделать шоб форма была во весь экран?

[_Dmitry]

WindowState:=wsMaximized;

[PAVEL315]

Или вручную, но это при условии что пользователь не будет менять размер окна...