gitweb on Svarog

projekti pod git sistemom za održavanje verzija -- projects under the git version control system
preimenovan Cas 02
authorDoni Pracner <quinnuendo@gmail.com>
Mon, 21 Oct 2013 12:46:59 +0000 (14:46 +0200)
committerDoni Pracner <quinnuendo@gmail.com>
Mon, 21 Oct 2013 12:46:59 +0000 (14:46 +0200)
02. Podslika/MALA.SLI [new file with mode: 0644]
02. Podslika/PODSLIKA.MOD [new file with mode: 0644]
02. Podslika/Prezentacija.ppt [new file with mode: 0644]
02. Podslika/VELIKA.SLI [new file with mode: 0644]
Cas02/MALA.SLI [deleted file]
Cas02/PODSLIKA.MOD [deleted file]
Cas02/Prezentacija.ppt [deleted file]
Cas02/VELIKA.SLI [deleted file]

diff --git a/02. Podslika/MALA.SLI b/02. Podslika/MALA.SLI
new file mode 100644 (file)
index 0000000..a05cae8
--- /dev/null
@@ -0,0 +1,6 @@
+5\r
+  0   0   1   0   0\r
+  0   1   1   1   0\r
+  1   1   2   1   1\r
+  0   1   1   1   0\r
+  0   0   1   0   0\r
diff --git a/02. Podslika/PODSLIKA.MOD b/02. Podslika/PODSLIKA.MOD
new file mode 100644 (file)
index 0000000..78dc19b
--- /dev/null
@@ -0,0 +1,168 @@
+MODULE Podslika;\r
+\r
+  FROM FIO IMPORT\r
+    File, Open, Close, RdCard, EOF, OK, Exists;\r
+  FROM IO IMPORT\r
+    WrLn, WrStr, WrCard;\r
+\r
+  CONST\r
+    MaxDim = 100;\r
+    BrojBoja = 16;\r
+    Osnova = MaxDim * (BrojBoja - 1) + 1;\r
+    ProstBroj = 3001;\r
+    ImeVel = 'Velika.Sli';\r
+    ImeMal = 'Mala.Sli';\r
+\r
+  TYPE\r
+    Boja = [0 .. BrojBoja - 1];\r
+    Slika = ARRAY [1 .. MaxDim], [1 .. MaxDim] OF Boja;\r
+\r
+  VAR\r
+    Velika, Mala: Slika;\r
+    DimVel, DimMal, Vr, Ko: CARDINAL;\r
+    KljucMale, KljucSegmenta, Stepen: LONGCARD;\r
+    Ok, Iste: BOOLEAN;\r
+\r
+  PROCEDURE Citaj(VAR Slika: Slika;\r
+                  Ime: ARRAY OF CHAR;\r
+                  VAR Dim: CARDINAL;\r
+                  VAR Ok: BOOLEAN);\r
+    VAR\r
+      F: File;\r
+      Vr, Ko: CARDINAL;\r
+      Jos: BOOLEAN;\r
+  BEGIN\r
+    Ok:= Ok AND Exists(Ime);\r
+    IF Ok THEN\r
+      F:= Open(Ime);\r
+      Dim:= RdCard(F);\r
+      Vr:= 1;\r
+      Jos:= TRUE;\r
+      WHILE Jos AND (Vr <= Dim) DO\r
+        Ko:= 1;\r
+        WHILE Jos AND (Ko <= Dim) DO\r
+          Slika[Vr, Ko]:= RdCard(F);\r
+          Ok:= Ok AND (Slika[Vr, Ko] < BrojBoja);\r
+          Jos:= Ok AND NOT EOF;\r
+          INC(Ko);\r
+        END;\r
+        INC(Vr);\r
+      END;\r
+      Close(F);\r
+    ELSE\r
+      Dim:= 0;\r
+    END;\r
+  END Citaj;\r
+\r
+  PROCEDURE Proveri(VAR Velika, Mala: Slika;\r
+                    DimMal, Vr, Ko: CARDINAL): BOOLEAN;\r
+    VAR\r
+      i, j: CARDINAL;\r
+      Iste: BOOLEAN;\r
+  BEGIN\r
+    Iste:= TRUE;\r
+    i:= 1;\r
+    WHILE Iste AND (i <= DimMal) DO\r
+      j:= 1;\r
+      WHILE Iste AND (j <= DimMal) DO\r
+        IF Mala[i, j] # Velika[Vr + i - 1, Ko + j - 1] THEN\r
+          Iste:= FALSE;\r
+        END;\r
+        INC(j);\r
+      END;\r
+      INC(i);\r
+    END;\r
+    RETURN Iste;\r
+  END Proveri;\r
+\r
+  PROCEDURE Hash(S: Slika; DimMal, Vr: CARDINAL): LONGCARD;\r
+    VAR\r
+      i, j: CARDINAL;\r
+      Kljuc, ZbirKolone, Temp: LONGCARD;\r
+  BEGIN\r
+\r
+    Stepen:= 1;\r
+    Kljuc:= 0;\r
+\r
+    FOR i:= DimMal TO 1 BY -1 DO\r
+\r
+      ZbirKolone:= 0;\r
+      FOR j:= Vr TO Vr + DimMal - 1 DO\r
+        ZbirKolone:= ZbirKolone + LONGCARD(S[j, i]);\r
+      END;\r
+\r
+      Temp:= (ZbirKolone * Stepen) MOD ProstBroj;\r
+      Kljuc:= (Kljuc + Temp) MOD ProstBroj;\r
+      Stepen:= (Stepen * Osnova) MOD ProstBroj;\r
+\r
+    END;\r
+\r
+    Stepen:= Stepen DIV Osnova;\r
+\r
+    RETURN Kljuc;\r
+\r
+  END Hash;\r
+\r
+  PROCEDURE DoterajHash(S: Slika; DimMal, Vr, Ko: CARDINAL;\r
+                        VAR Kljuc: LONGCARD);\r
+    VAR\r
+      i, j: CARDINAL;\r
+      ZbirKolone, Temp: LONGCARD;\r
+  BEGIN\r
+\r
+    ZbirKolone:= 0;\r
+    FOR j:= Vr TO Vr + DimMal - 1 DO\r
+      ZbirKolone:= ZbirKolone + LONGCARD(S[j, Ko - 1]);\r
+    END;\r
+\r
+    Temp:= (ZbirKolone * Stepen) MOD ProstBroj;\r
+\r
+    IF Kljuc >= Temp THEN\r
+      Kljuc:= Kljuc - Temp;\r
+    ELSE\r
+      Kljuc:= Kljuc + ProstBroj - Temp;\r
+    END;\r
+\r
+    Kljuc:= (Kljuc * Osnova) MOD ProstBroj;\r
+\r
+    ZbirKolone:= 0;\r
+    FOR j:= Vr TO Vr + DimMal - 1 DO\r
+      ZbirKolone:= ZbirKolone + LONGCARD(S[j, Ko + DimMal - 1]);\r
+    END;\r
+\r
+    Kljuc:= (Kljuc + ZbirKolone) MOD ProstBroj;\r
+\r
+  END DoterajHash;\r
+\r
+BEGIN\r
+  Ok:= TRUE;\r
+  Citaj(Velika, ImeVel, DimVel, Ok);\r
+  Citaj(Mala, ImeMal, DimMal, Ok);\r
+  IF Ok THEN\r
+    KljucMale:= Hash(Mala, DimMal, 1);\r
+    FOR Vr:= 1 TO (DimVel - DimMal + 1) DO\r
+      KljucSegmenta:= Hash(Velika, DimMal, Vr);\r
+      IF (KljucMale = KljucSegmenta) THEN\r
+        Iste:= Proveri(Velika, Mala, DimMal, Vr, 1);\r
+        IF Iste THEN\r
+          WrLn;\r
+          WrStr('Podslika je nadjena. Pocinje na poziciji (');\r
+          WrCard(Vr, 1); WrStr(', '); WrCard(1, 1); WrStr(')');\r
+        END;\r
+      END;\r
+      FOR Ko:= 2 TO (DimVel - DimMal + 1) DO\r
+        DoterajHash(Velika, DimMal, Vr, Ko, KljucSegmenta);\r
+        IF (KljucMale = KljucSegmenta) THEN\r
+          Iste:= Proveri(Velika, Mala, DimMal, Vr, Ko);\r
+          IF Iste THEN\r
+            WrLn;\r
+            WrStr('Podslika je nadjena. Pocinje na poziciji (');\r
+            WrCard(Vr, 1); WrStr(', '); WrCard(Ko, 1); WrStr(')');\r
+          END;\r
+        END;\r
+      END;\r
+    END;\r
+  ELSE\r
+    WrStr('Greska u citanju fajla.');\r
+  END;\r
+END Podslika.\r
diff --git a/02. Podslika/Prezentacija.ppt b/02. Podslika/Prezentacija.ppt
new file mode 100644 (file)
index 0000000..0c685f2
Binary files /dev/null and b/02. Podslika/Prezentacija.ppt differ
diff --git a/02. Podslika/VELIKA.SLI b/02. Podslika/VELIKA.SLI
new file mode 100644 (file)
index 0000000..050166c
--- /dev/null
@@ -0,0 +1,13 @@
+12\r
+  0   0   0   0   0   0   0   0   0   0   0   0\r
+  0   0   0   0   0   0   0   0   0   0   0   0\r
+  0   0   0   1   0   0   0   0   0   0   0   0\r
+  0   0   1   1   1   0   0   0   0   0   0   0\r
+  0   1   1   2   1   1   0   0   0   0   0   0\r
+  0   0   1   1   1   0   5   5   5   0   0   0\r
+  0   0   0   1   0   0   0   0   0   0   0   0\r
+  0   0   0   0   0   5   0   0   1   0   0   0\r
+  0   0   0   0   5   0   0   1   2   1   0   0\r
+  0   0   0   5   0   0   1   2  15   2   1   0\r
+  0   0   5   0   0   0   0   1   2   1   0   0\r
+  0   0   0   0   0   0   0   0   1   0   0   0\r
diff --git a/Cas02/MALA.SLI b/Cas02/MALA.SLI
deleted file mode 100644 (file)
index a05cae8..0000000
+++ /dev/null
@@ -1,6 +0,0 @@
-5\r
-  0   0   1   0   0\r
-  0   1   1   1   0\r
-  1   1   2   1   1\r
-  0   1   1   1   0\r
-  0   0   1   0   0\r
diff --git a/Cas02/PODSLIKA.MOD b/Cas02/PODSLIKA.MOD
deleted file mode 100644 (file)
index 78dc19b..0000000
+++ /dev/null
@@ -1,168 +0,0 @@
-MODULE Podslika;\r
-\r
-  FROM FIO IMPORT\r
-    File, Open, Close, RdCard, EOF, OK, Exists;\r
-  FROM IO IMPORT\r
-    WrLn, WrStr, WrCard;\r
-\r
-  CONST\r
-    MaxDim = 100;\r
-    BrojBoja = 16;\r
-    Osnova = MaxDim * (BrojBoja - 1) + 1;\r
-    ProstBroj = 3001;\r
-    ImeVel = 'Velika.Sli';\r
-    ImeMal = 'Mala.Sli';\r
-\r
-  TYPE\r
-    Boja = [0 .. BrojBoja - 1];\r
-    Slika = ARRAY [1 .. MaxDim], [1 .. MaxDim] OF Boja;\r
-\r
-  VAR\r
-    Velika, Mala: Slika;\r
-    DimVel, DimMal, Vr, Ko: CARDINAL;\r
-    KljucMale, KljucSegmenta, Stepen: LONGCARD;\r
-    Ok, Iste: BOOLEAN;\r
-\r
-  PROCEDURE Citaj(VAR Slika: Slika;\r
-                  Ime: ARRAY OF CHAR;\r
-                  VAR Dim: CARDINAL;\r
-                  VAR Ok: BOOLEAN);\r
-    VAR\r
-      F: File;\r
-      Vr, Ko: CARDINAL;\r
-      Jos: BOOLEAN;\r
-  BEGIN\r
-    Ok:= Ok AND Exists(Ime);\r
-    IF Ok THEN\r
-      F:= Open(Ime);\r
-      Dim:= RdCard(F);\r
-      Vr:= 1;\r
-      Jos:= TRUE;\r
-      WHILE Jos AND (Vr <= Dim) DO\r
-        Ko:= 1;\r
-        WHILE Jos AND (Ko <= Dim) DO\r
-          Slika[Vr, Ko]:= RdCard(F);\r
-          Ok:= Ok AND (Slika[Vr, Ko] < BrojBoja);\r
-          Jos:= Ok AND NOT EOF;\r
-          INC(Ko);\r
-        END;\r
-        INC(Vr);\r
-      END;\r
-      Close(F);\r
-    ELSE\r
-      Dim:= 0;\r
-    END;\r
-  END Citaj;\r
-\r
-  PROCEDURE Proveri(VAR Velika, Mala: Slika;\r
-                    DimMal, Vr, Ko: CARDINAL): BOOLEAN;\r
-    VAR\r
-      i, j: CARDINAL;\r
-      Iste: BOOLEAN;\r
-  BEGIN\r
-    Iste:= TRUE;\r
-    i:= 1;\r
-    WHILE Iste AND (i <= DimMal) DO\r
-      j:= 1;\r
-      WHILE Iste AND (j <= DimMal) DO\r
-        IF Mala[i, j] # Velika[Vr + i - 1, Ko + j - 1] THEN\r
-          Iste:= FALSE;\r
-        END;\r
-        INC(j);\r
-      END;\r
-      INC(i);\r
-    END;\r
-    RETURN Iste;\r
-  END Proveri;\r
-\r
-  PROCEDURE Hash(S: Slika; DimMal, Vr: CARDINAL): LONGCARD;\r
-    VAR\r
-      i, j: CARDINAL;\r
-      Kljuc, ZbirKolone, Temp: LONGCARD;\r
-  BEGIN\r
-\r
-    Stepen:= 1;\r
-    Kljuc:= 0;\r
-\r
-    FOR i:= DimMal TO 1 BY -1 DO\r
-\r
-      ZbirKolone:= 0;\r
-      FOR j:= Vr TO Vr + DimMal - 1 DO\r
-        ZbirKolone:= ZbirKolone + LONGCARD(S[j, i]);\r
-      END;\r
-\r
-      Temp:= (ZbirKolone * Stepen) MOD ProstBroj;\r
-      Kljuc:= (Kljuc + Temp) MOD ProstBroj;\r
-      Stepen:= (Stepen * Osnova) MOD ProstBroj;\r
-\r
-    END;\r
-\r
-    Stepen:= Stepen DIV Osnova;\r
-\r
-    RETURN Kljuc;\r
-\r
-  END Hash;\r
-\r
-  PROCEDURE DoterajHash(S: Slika; DimMal, Vr, Ko: CARDINAL;\r
-                        VAR Kljuc: LONGCARD);\r
-    VAR\r
-      i, j: CARDINAL;\r
-      ZbirKolone, Temp: LONGCARD;\r
-  BEGIN\r
-\r
-    ZbirKolone:= 0;\r
-    FOR j:= Vr TO Vr + DimMal - 1 DO\r
-      ZbirKolone:= ZbirKolone + LONGCARD(S[j, Ko - 1]);\r
-    END;\r
-\r
-    Temp:= (ZbirKolone * Stepen) MOD ProstBroj;\r
-\r
-    IF Kljuc >= Temp THEN\r
-      Kljuc:= Kljuc - Temp;\r
-    ELSE\r
-      Kljuc:= Kljuc + ProstBroj - Temp;\r
-    END;\r
-\r
-    Kljuc:= (Kljuc * Osnova) MOD ProstBroj;\r
-\r
-    ZbirKolone:= 0;\r
-    FOR j:= Vr TO Vr + DimMal - 1 DO\r
-      ZbirKolone:= ZbirKolone + LONGCARD(S[j, Ko + DimMal - 1]);\r
-    END;\r
-\r
-    Kljuc:= (Kljuc + ZbirKolone) MOD ProstBroj;\r
-\r
-  END DoterajHash;\r
-\r
-BEGIN\r
-  Ok:= TRUE;\r
-  Citaj(Velika, ImeVel, DimVel, Ok);\r
-  Citaj(Mala, ImeMal, DimMal, Ok);\r
-  IF Ok THEN\r
-    KljucMale:= Hash(Mala, DimMal, 1);\r
-    FOR Vr:= 1 TO (DimVel - DimMal + 1) DO\r
-      KljucSegmenta:= Hash(Velika, DimMal, Vr);\r
-      IF (KljucMale = KljucSegmenta) THEN\r
-        Iste:= Proveri(Velika, Mala, DimMal, Vr, 1);\r
-        IF Iste THEN\r
-          WrLn;\r
-          WrStr('Podslika je nadjena. Pocinje na poziciji (');\r
-          WrCard(Vr, 1); WrStr(', '); WrCard(1, 1); WrStr(')');\r
-        END;\r
-      END;\r
-      FOR Ko:= 2 TO (DimVel - DimMal + 1) DO\r
-        DoterajHash(Velika, DimMal, Vr, Ko, KljucSegmenta);\r
-        IF (KljucMale = KljucSegmenta) THEN\r
-          Iste:= Proveri(Velika, Mala, DimMal, Vr, Ko);\r
-          IF Iste THEN\r
-            WrLn;\r
-            WrStr('Podslika je nadjena. Pocinje na poziciji (');\r
-            WrCard(Vr, 1); WrStr(', '); WrCard(Ko, 1); WrStr(')');\r
-          END;\r
-        END;\r
-      END;\r
-    END;\r
-  ELSE\r
-    WrStr('Greska u citanju fajla.');\r
-  END;\r
-END Podslika.\r
diff --git a/Cas02/Prezentacija.ppt b/Cas02/Prezentacija.ppt
deleted file mode 100644 (file)
index 0c685f2..0000000
Binary files a/Cas02/Prezentacija.ppt and /dev/null differ
diff --git a/Cas02/VELIKA.SLI b/Cas02/VELIKA.SLI
deleted file mode 100644 (file)
index 050166c..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-12\r
-  0   0   0   0   0   0   0   0   0   0   0   0\r
-  0   0   0   0   0   0   0   0   0   0   0   0\r
-  0   0   0   1   0   0   0   0   0   0   0   0\r
-  0   0   1   1   1   0   0   0   0   0   0   0\r
-  0   1   1   2   1   1   0   0   0   0   0   0\r
-  0   0   1   1   1   0   5   5   5   0   0   0\r
-  0   0   0   1   0   0   0   0   0   0   0   0\r
-  0   0   0   0   0   5   0   0   1   0   0   0\r
-  0   0   0   0   5   0   0   1   2   1   0   0\r
-  0   0   0   5   0   0   1   2  15   2   1   0\r
-  0   0   5   0   0   0   0   1   2   1   0   0\r
-  0   0   0   0   0   0   0   0   1   0   0   0\r
Svarog.pmf.uns.ac.rs/gitweb maintanance Doni Pracner