Паскаль. Случайное заполнение списка.

[Silverstone]

Подскажите, как заполнить список случайным числами в порядке от 1 до 10, например.
Я хочу с имитировать очередь в магазине.
Добавление элемента в список.

 procedure AddElem(var spis1:List; znach1:integer);
 var
  tmp:List;
 begin
  if spis1=nil then {Їа®ўҐа塞, *Ґ Їгбв «Ё бЇЁб®Є, Ґб«Ё Їгбв, в®}
   begin
    GetMem(spis1,sizeof(TList));{ᮧ¤*Ґ¬ ЇҐаўл© н«Ґ¬Ґ*в бЇЁбЄ*}
    tmp:=spis1;
   end
  else{Ґб«Ё бЇЁб®Є *Ґ Їгбв}
   begin
    tmp:=spis1;
    while tmp^.next<>nil do
     tmp:=tmp^.next;{бв*ўЁ¬ tmp ** Ї®б«Ґ¤*Ё© н«Ґ¬Ґ*в бЇЁбЄ*}
     GetMem(tmp^.next,sizeof(TList));{ᮧ¤*Ґ¬ б«Ґ¤гойЁ© н«Ґ¬Ґ*в}
     tmp:=tmp^.next;{ЇҐаҐ*®бЁ¬ tmp ** *®ўл© н«Ґ¬Ґ*в}
   end;
  tmp^.next:=nil;{®Ў*г«пҐ¬ гЄ*§*⥫м}
  tmp^.data:=znach1;{§**®бЁ¬ §**зҐ*ЁҐ}
 end;

[Silverstone]

я разобрался как рандомно выводить значения:

tmp^.data:=random(15)+1;

Может кто помочь разобраться с тем, как вывести числа без повторения и по порядку?

[Serge_Bliznykov]

если нужно заполнить без повторений, то это неоднократно обсуждалось
например,
http://www.programmersforum.ru/showp...45&postcount=4

если же нужно ВЫВЕСТИ (да ещё и по порядку!)
тогда вам нужно ОТСОРТИРОВАТЬ список по полю data
а при выводе хранить выведенное на предыдущем шаге значение, если текущее значение совпадает с сохранённым - тогда не выводить, а переходить на следущий элемент списка - это позволит избавится от повторов! Ну, разумеется, очевидно, что такой алгоритм будет работать исключительно с отсортированным списком!

[Serge_Bliznykov]

Я ПЕРЕНЁС ВОПРОС И ОБСУЖДЕНИЕ ВЫБОРА ОЧЕРЕДИ В ВАШУ ТЕМУ:

Связанные списки. Выбор очереди