gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under
the git version control system
1 DEFINITION MODULE RecnikATP
;
4 Broj
= 11; (* Neki prost broj *)
9 String
= ARRAY [1 .. MaxDuzRec
] OF CHAR;
10 Lista
= POINTER TO Element
;
15 Indeksi
= [0 .. MaxTabela
];
16 Tabela
= ARRAY Indeksi
OF Lista
;
19 Domace
, Strane
: Tabela
;
22 PROCEDURE Inicijalizuj(VAR R
: Recnik
);
23 PROCEDURE Unisti(VAR R
: Recnik
);
25 PROCEDURE Ubaci(DomacaRec
, StranaRec
: String
;
27 VAR Duplikat
: BOOLEAN);
29 PROCEDURE Izbaci(Rec
: String
;
34 PROCEDURE Prevedi(StranaNaDomacu
: BOOLEAN;
40 PROCEDURE Sadrzaj(VAR R
: Recnik
);
Svarog.pmf.uns.ac.rs/gitweb
maintanance
Doni Pracner