gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under the git version control systemdiff --git a/Cas01/RECNIKAT.DEF b/Cas01/RECNIKAT.DEF
--- a/Cas01/RECNIKAT.DEF
+++ /dev/null
@@ -1,42 +0,0 @@
-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