gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under the git version control system
diff --git a/02. Podslika/PODSLIKA.MOD b/02. Podslika/PODSLIKA.MOD
+++ /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