X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=spa2-teorijske-vezbe.git;a=blobdiff_plain;f=Cas01%2FRECNIKAT.DEF;fp=Cas01%2FRECNIKAT.DEF;h=92a237ae9fff8ae228d7c6a5e2b2ac6a0cf0bff6;hp=0000000000000000000000000000000000000000;hb=cfda726ac9ecd0bd02935512ea0edaee2cd31b57;hpb=db836f4604991e1c22ea67943873944cdfae1345

diff --git a/Cas01/RECNIKAT.DEF b/Cas01/RECNIKAT.DEF
new file mode 100644
index 0000000..92a237a
--- /dev/null
+++ b/Cas01/RECNIKAT.DEF
@@ -0,0 +1,42 @@
+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.