zatrideni_prvku_do_usporadaneho_seznamu [Programování]

  procedure zatrid(s: Seznam; co: integer);
  var
    novaKrabicka,
    ukazovatko: UkPrvek;
  begin
    {vytvoreni krabicky - budeme ji potrebovat za vsech okolnosti}
    new(novaKrabicka);
    novaKrabicka^.info := co;
    novaKrabicka^.next := nil;
    novaKrabicka^.prev := nil;
 
    {seznam je prazdny => vytvorime 1prvkovy seznam obsahujici jen novou krabicku}
    if s.zacatek = nil then begin
      s.zacatek := novaKrabicka;
      s.konec := novaKrabicka;
 
    {pridavany prvek je mensi nez vsechny dosavadni prvky seznamu}
    end else if co < s.zacatek^.info then begin
      novaKrabicka^.next := s.zacatek;
      s.zacatek^.prev := novaKrabicka;
      s.zacatek := novaKrabicka;
 
    {pridavame do neprazdneho jinam nez na zacatek}
    end else begin
 
      {doskaceme bud k prvnimu prvku, ktery je vetsi nez pridavany prvek,...}
      {...nebo na konec seznamu (je-li pridavany prvek vetsi nez vsechny dosavadni prvky seznamu)}
      ukazovatko := s.zacatek;
      while ukazovatko <> nil and ukazovatko^.info < co do
        ukazovatko := ukazovatko^.next;
 
      {pridavany prvek je vetsi nez vsechny dosavadni prvky seznamu => pridame ho na konec}
      if ukazovatko = nil then begin
        novaKrabicka^.prev := s.konec;
        s.konec^.next := novaKrabicka;
        s.konec := novaKrabicka;
 
      {pridavame jinam nez na konec}
      end else begin
        novaKrabicka^.next := ukazovatko;
        novaKrabicka^.prev := ukazovatko^.prev;
        ukazovatko^.prev^.next := novaKrabicka;
        ukazovatko^.prev := novaKrabicka;
      end;
 
    end;
 
  end;