Генератор случайных чисел

[Костян Пират]

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

 a[1]:=Random(10);
 randomize;
 for i:=2 to 4 do
  repeat
   a[i]:=Random(10);
   randomize;
  until a[i]<>a[i-1];

в массиве лежат отдельные цифры. Получается при многократной генерации примерно такая штука: 0821, 0829, 6529, 0529... то есть две попытки подряд дают почти одинаковые числа... можно ли как-то сделать, чтобы разброс чисел был более сильным?

[Пепел Феникса]

может проще использовать random(10000)?

пример:
var s:string;
begin
s:=IntToStr(random(10000));
while Length(s)<4 do s:='0'+s;
end;

в начале программы(в FormCreate) не забудьте вставить Randomize.

[Serge_Bliznykov]

Пепел Феникса, Ваш код не решает поставленную задачу:

в нем не должно быть одинаковых цифр

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

В вашем коде главная "дырка" - вы получаете очередную цифру, отличную от предыдущей, а надо, чтобы она отличалась от ВСЕХ найденных ранее чисел.
(ну и randomize надо делать ДО обращения к функции random!!
И randomize должно вызываться только один раз!)

попробуй такой код:

var 
 a: array[1..4] of integer;
 i, j : integer;
 flWasBefore  : boolean; 

begin
 randomize;
 a[1]:=Random(10);
 for i:=2 to 4 do 
 begin
  repeat
   flWasBefore := false;
   a[i]:=Random(10);
   for j:=1 to (i-1) do
     if a[j] = a[i] then flWasBefore := true;
  until not flWasBefore;
 end;
...

[veniside]

вот ещё вариант, с одним циклом )

function randgen(n: integer): string;
var
  s: string;
  i, j: integer;
begin
  Randomize();  // setup random sequence
  //
  // see if we got proper n
  // if not, adjust to something sane
  if (10 < n) then
    n := 10;
  if (1 > n) then
    n := 1;
  //
  // setup strings
  s := '0123456789';
  SetLength(result, n);
  //
  // loop through digits
  for i := 1 to n do begin
    //
    j := 1 + random(length(s));  // select another random position in s
    result[i] := s[j];  // add to result
    //
    // remove from source string, so this digit will not appear again
    Delete(s, j, 1);
  end;
end;

И randomize должно вызываться только один раз!

а почему?

[Пепел Феникса]

а почему?

а зачем тысячу раз инициализировать счетчик случайных чисел?(этого достаточно один раз)

[Serge_Bliznykov]

кстати, строго говоря, согласно условию задачи, первой цифрой ноль идти НЕ МОЖЕТ. число 0123 - не 4-х значное!

[veniside]

Сообщение от Пепел Феникса

а зачем тысячу раз инициализировать счетчик случайных чисел?(этого достаточно один раз)

Чтобы повысить степень непредсказуемости )

кстати, строго говоря, согласно условию задачи, первой цифрой ноль идти НЕ МОЖЕТ. число 0123 - не 4-х значное!

Тогда в конце добавить проверочку:

  if ('0' = result[1]) then begin
    if (2 > n) then
      result := IntToStr(1 + random(9))
    else begin
      result [1] := result[2];
      result[2] := '0';
    end;
  end;

[Костян Пират]

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

СПАСИБО ВСЕМ!)))

[Костян Пират]

veniside, отдельное спасибо, мне нравится это решение