gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under the git version control systemdiff --git a/01. Dvosmerni recnik/XDS/RECNIKATP.DEF b/01. Dvosmerni recnik/XDS/RECNIKATP.DEF
--- /dev/null
@@ -0,0 +1,42 @@
+DEFINITION MODULE RecnikATP;\r
+\r
+ CONST\r
+ Broj = 11; (* Neki prost broj *)\r
+ MaxDuzRec = 50;\r
+ MaxTabela = Broj - 1;\r
+\r
+ TYPE\r
+ String = ARRAY [1 .. MaxDuzRec] OF CHAR;\r
+ Lista = POINTER TO Element;\r
+ Element = RECORD\r
+ Veza, Prevod: Lista;\r
+ Rec: String;\r
+ END;\r
+ Indeksi = [0 .. MaxTabela];\r
+ Tabela = ARRAY Indeksi OF Lista;\r
+ Recnik = RECORD\r
+ BrojReci: CARDINAL;\r
+ Domace, Strane: Tabela;\r
+ END;\r
+\r
+ PROCEDURE Inicijalizuj(VAR R: Recnik);\r
+ PROCEDURE Unisti(VAR R: Recnik);\r
+\r
+ PROCEDURE Ubaci(DomacaRec, StranaRec: String;\r
+ VAR R: Recnik;\r
+ VAR Duplikat: BOOLEAN);\r
+\r
+ PROCEDURE Izbaci(Rec: String;\r
+ VAR R: Recnik;\r
+ Domaca: BOOLEAN;\r
+ VAR Ok: BOOLEAN);\r
+\r
+ PROCEDURE Prevedi(StranaNaDomacu: BOOLEAN;\r
+ Rec: String;\r
+ VAR Prevod: String;\r
+ VAR R: Recnik;\r
+ VAR Ok: BOOLEAN);\r
+\r
+ PROCEDURE Sadrzaj(VAR R: Recnik);\r
+\r
+END RecnikATP.\r