lista.def #definition module (srpski)

DEFINITION MODULE lista;
TYPE
    pok = POINTER TO Slog;
    Slog = RECORD
              kinf : INTEGER;
              veza : pok
           END;
    proc = PROCEDURE(VAR pok,INTEGER);

PROCEDURE dodajpocetak(VAR lista: pok; int: INTEGER);

PROCEDURE dodajkraj(VAR lista: pok; int: INTEGER);

PROCEDURE dodajsortirano(VAR lista: pok; int: INTEGER);

PROCEDURE ucitaj(VAR lista: pok);

PROCEDURE ucitajsauslovom(VAR lista: pok);

PROCEDURE stampaj(lista: pok; k: CARDINAL);

PROCEDURE unisti(VAR lista: pok);

PROCEDURE izbaci1(VAR lista: pok);
(*izbacuje prvi iz liste kada dodje do poklapanja sa unetim brojem*)

PROCEDURE izbaci2(VAR lista: pok);
(*izbacuje iz liste sve brojeve kada je zadovoljeno poklapanje sa br*)

PROCEDURE izbaci3(VAR lista : pok; k: INTEGER);
(*izbacivanje k-tog elementa iz liste!*)

PROCEDURE izbaciminimum(VAR lista: pok);
(*Procedura za izbacivanje minimuma*)

PROCEDURE izbacimaksimum(VAR lista: pok);
(*Procedura za izbacivanje mmaksimuma*)

PROCEDURE spojidvelistenaizmenicno(lista1,lista2: pok; VAR lista3: pok);

PROCEDURE WriteLn3;

PROCEDURE inicijalizuj(VAR lista: pok);

END lista.