procedure_liste

//obrisati elemente koji su veci od svog predhodnika, tako da se na kraju dobije lista sa nerastucim(opadajućim) elementima.
PROCEDURE VeciOdPreth(VAR lista : brojevi);
VAR temp, tekuci : brojevi;
BEGIN
  temp := lista;
  WHILE temp^.veza # NIL DO
    IF temp^.veza^.info > temp^.info THEN
      tekuci := temp^.veza;
      temp^.veza := tekuci^.veza;
      DISPOSE(tekuci);
      temp := lista;
    ELSE
      temp := temp^.veza;
    END;
  END;
END VeciOdPreth;
//lista u kojoj ce svaki element da se sastoji od zbira dva susedna elementa u originalnoj listi.
PROCEDURE DvaSusedna(VAR lista,nova:brojevi);
VAR temp:brojevi;
    br:INTEGER;
BEGIN
  nova:=NIL;
  temp:=lista;
  IF temp # NIL THEN
    IF temp^.veza # NIL THEN
      WHILE temp^.veza # NIL DO
        br:=temp^.veza^.info+temp^.info;
        DodajKraj(nova,br);
        temp:=temp^.veza;
      END;
    END;
  END;
END DvaSusedna;
//listu razdvojiti na dve, tako da se dobijene liste sastoje od elemenata na parnim, odnosno neparnim pozicijama.
PROCEDURE DveListe(VAR lista,parni,neparni:brojevi);
VAR temp:brojevi;
    i:INTEGER;
BEGIN
  IF (lista=NIL) THEN
    WriteString('Lista je prazna.');
    WriteLn;
  ELSE
    parni:=NIL;
    neparni:=NIL;
    i:=1;
    temp:=lista;
    WHILE temp # NIL DO
      IF ODD(i) THEN
        DodajKraj(neparni,temp^.info);
        WriteLn;
      ELSE
        DodajKraj(parni,temp^.info);
        WriteLn;
      END;
      INC(i);
      temp:=temp^.veza;
    END;
  END;
END DveListe;
// Napraviti novu listu u kojoj ce elementi biti jednaki zbiru po dva elementa iz originalne. Npr prvi je jednak zbiru prvog i drugog iz
// originalne, drugi je jednak zbiru drugog i treceg itd. Nova lista treba da je iste duzine, tj poslednji elementi su jednaki.
PROCEDURE PlusDva(VAR lista,nova:brojevi);
VAR temp: brojevi;
BEGIN
  nova:=NIL;
  temp:=lista;
  IF temp#NIL THEN
    IF temp^.veza#NIL THEN
      WHILE temp^.veza#NIL DO
    DodajKraj(nova,temp^.info+temp^.veza^.info);
        temp:=temp^.veza;
      END;
      DodajKraj(nova,temp^.info);
    END;
  END;
END PlusDva;