Pascal. Случайные числа.

[*stRong*]

Мне нужно сделать вывод N случайных чисел из заданного диапазона. Но проблема в том, что нужно, чтобы числа НЕ ПОВТОРЯЛИСЬ. Поэтому обычный random не катит...
Подскажите, каким образом это можно реализовать случайные неповторяющиеся числа?

[Chudo4258]

ну дак храни где-то уже сгенерированные числа, и сверяй с новым числом.

[fbus]

пиши мне в аську, я тебе сделаю

[*stRong*]

fbus, спасибо. Но делать мне ничего не нужно, т.к. это не учебное задание, а просто пишу ради интереса, следовательно, хочу сам сделать
Просто мне нужен совет, каким образом это сделать...
Может это через массивы сделать? Т.е. есть 2 массива, в первый заносится число, сравнивается с числами второго массива, если такого числа нет, то заносим его во второй массив?

[Serge_Bliznykov]

достаточно одного массива размерностью N
получайте случайное число до тех пор, пока оно поиском находится. Поиск - это просто перебором искать в этом же массиве - цикл от 1 до I-1 (i- текущий - получаемый элемент массива)

[fbus]

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

for i:=1 to length(s) do
if s = s[i] then....

ну и так далее

[kogemrka]

сохраняем числа, которые выводим, и выводя каждое следующее число, проверяем, не выводили ли мы его ранее. Выглядит это примерно так:

program rnd1;
var
   m : array[1..100] of integer;
   i, j, num : integer;
   Flag : Boolean;
begin
     randomize;

     {Заполняем массив числами от одного до 100}
     for i := 1 to 100 do
     begin
          Flag := True;

          while Flag do
          begin
               num := Random(100) + 1;
               Flag := False;
               for j := 1 to i - 1 do
                    if m[j] = num then
                    begin
                         Flag := True;
                         break;
                    end;
          end;

          m[i] := num;
     end;

     {Выводим содержимое массива}
     for i := 1 to 100 do
         write(m[i], ' ');

     ReadLn;
end.

[Serge_Bliznykov]

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

не обязательно заводить массив. все равно все числа хранятся например в строке

строка - это массив из символов.
Это во-первых. Во-вторых, а кто Вам сказал, что числа однозначные? Бывают и двух и трёх и даже больше! Значит надо придумывать, как их разделять, писать код по выделению очередного числа и т.д. и т.п. Это, конечно же, можно всё сделать... вопрос - ЗАЧЕМ?!

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

if s = s[i] then....

ну, это вообще шедевр! (понимаю, что Вы просто описались и вместо S должна быть переменная с очередной цифрой....)
Но вообще — это дорога в никуда...



kogemrka, в целом - однозначно зачёт.
Просто хочу отметить. Если задача стоит так:

... array[1..100] of integer;
... Random(100) + 1; (случайные числа от 1 до 100 )

Т.е. 100 чисел случайном образом разместить в массиве.
Тогда можно использовать такой алгоритм: заполняется массив от 1 до 100, (for i:=1 to 100 do a[i] := i
а потом случайным образом перемешивается... код получается достаточно простым:

  for i:=1 to 100 do begin
    repeat 
       K := Random(100) + 1;
    until K<>i;
    tmp := a[k];
    a[k] := a[i];
    a[i] := tmp;
  end;

и всё.

[VektorAB]

Создавай множество и сверяй вхождение в него гененинуемого числа, если оно отсутсвует в нем то делай что хочешь с ним, но добавь его в множество, иначе опять генерируй.
Множество - M:set of [1..100];
Генерация:

{начальные присвоения.}
for i:=1 to 10 do
    begin
           repeat
                 n:=random (100)+1 
           until not(n in M);
           M:=M+[n];
           Write(n)
     end;

Вывод 10-ти случайных неповторяющихся чисел.

На мой взгляд самый простой способ.

P.S.
FBus рассмешил. Числа в твоем случае могут быть только однозначными,т.е цифрами.
Ну и соглашусь с Serge_Bliznykov строка это массив символов {stroka:array[1..255] of char;}

[evg_m]

Мне нужно сделать вывод N случайных чисел из заданного диапазона. Но проблема в том, что нужно, чтобы числа НЕ ПОВТОРЯЛИСЬ.

использовать принцип колоды карт

0. берем массив длины M (длина диапазона чисел)
1. заполняем массив возможными значениями (числами по порядку без повторений)
с помощью Random ТАСУЕМ наш массив напримет так

for j:=1 ro x do
n1:=random(m);
n2:=random(m);
r:=mas[n1]; mas[n1:=mas[n2]; mas[n2:=r;

3. используем первые N значений.