X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=spa2-teorijske-vezbe.git;a=blobdiff_plain;f=01.%20Dvosmerni%20Recnik%2FXDS%2FRECNIKATP.DEF;fp=01.%20Dvosmerni%20Recnik%2FXDS%2FRECNIKATP.DEF;h=0000000000000000000000000000000000000000;hp=92a237ae9fff8ae228d7c6a5e2b2ac6a0cf0bff6;hb=8a74ce20c68b61b8992a348e34c43671116e9549;hpb=a35f3e51789ace81cea01e548963568da918635f

diff --git a/01. Dvosmerni Recnik/XDS/RECNIKATP.DEF b/01. Dvosmerni Recnik/XDS/RECNIKATP.DEF
deleted file mode 100644
index 92a237a..0000000
--- a/01. Dvosmerni Recnik/XDS/RECNIKATP.DEF	
+++ /dev/null
@@ -1,42 +0,0 @@
-DEFINITION MODULE RecnikATP;
-
-  CONST
-    Broj = 11; (* Neki prost broj *)
-    MaxDuzRec = 50;
-    MaxTabela = Broj - 1;
-
-  TYPE
-    String = ARRAY [1 .. MaxDuzRec] OF CHAR;
-    Lista = POINTER TO Element;
-    Element = RECORD
-                Veza, Prevod: Lista;
-                Rec: String;
-            END;
-    Indeksi = [0 .. MaxTabela];
-    Tabela = ARRAY Indeksi OF Lista;
-    Recnik = RECORD
-               BrojReci: CARDINAL;
-               Domace, Strane: Tabela;
-             END;
-
-  PROCEDURE Inicijalizuj(VAR R: Recnik);
-  PROCEDURE Unisti(VAR R: Recnik);
-
-  PROCEDURE Ubaci(DomacaRec, StranaRec: String;
-                  VAR R: Recnik;
-                  VAR Duplikat: BOOLEAN);
-
-  PROCEDURE Izbaci(Rec: String;
-                   VAR R: Recnik;
-                   Domaca: BOOLEAN;
-                   VAR Ok: BOOLEAN);
-
-  PROCEDURE Prevedi(StranaNaDomacu: BOOLEAN;
-                    Rec: String;
-                    VAR Prevod: String;
-                    VAR R: Recnik;
-                    VAR Ok: BOOLEAN);
-
-  PROCEDURE Sadrzaj(VAR R: Recnik);
-
-END RecnikATP.