From: Ivan Pribela Date: Sat, 16 Nov 2013 15:27:00 +0000 (+0100) Subject: Reorganizacija strukture foldera. X-Git-Url: https://svarog.pmf.uns.ac.rs/gitweb/?a=commitdiff_plain;h=8a74ce20c68b61b8992a348e34c43671116e9549;p=spa2-teorijske-vezbe.git Reorganizacija strukture foldera. --- diff --git a/00. Uvod/Prezentacija.ppt b/00. Uvod/Prezentacija.ppt new file mode 100644 index 0000000..3aa1f02 Binary files /dev/null and b/00. Uvod/Prezentacija.ppt differ diff --git a/01. Dvosmerni Recnik/Prezentacija.ppt b/01. Dvosmerni Recnik/Prezentacija.ppt deleted file mode 100644 index 6ff7ded..0000000 Binary files a/01. Dvosmerni Recnik/Prezentacija.ppt and /dev/null differ diff --git a/01. Dvosmerni Recnik/TopSpeed/RECNIKAT.DEF b/01. Dvosmerni Recnik/TopSpeed/RECNIKAT.DEF deleted file mode 100644 index 92a237a..0000000 --- a/01. Dvosmerni Recnik/TopSpeed/RECNIKAT.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. diff --git a/01. Dvosmerni Recnik/TopSpeed/RECNIKAT.MOD b/01. Dvosmerni Recnik/TopSpeed/RECNIKAT.MOD deleted file mode 100644 index 1977893..0000000 --- a/01. Dvosmerni Recnik/TopSpeed/RECNIKAT.MOD +++ /dev/null @@ -1,186 +0,0 @@ -IMPLEMENTATION MODULE RecnikATP; - - FROM IO IMPORT - RdKey, WrStr, WrLn, WrCard; - FROM SYSTEM IMPORT - TSIZE; - FROM Str IMPORT - Compare; - FROM Storage IMPORT - ALLOCATE, DEALLOCATE; - - PROCEDURE Hash(Rec: String): Indeksi; - VAR - i, Zbir, Temp: CARDINAL; - BEGIN - Zbir:= 0; - i:= 1; - WHILE (i <= MaxDuzRec) AND (Rec[i] # CHR(0)) DO - Temp:= (ORD(Rec[i]) * ORD(Rec[i])) MOD Broj; - Zbir:= (Zbir + Temp) MOD Broj; - INC(i); - END; - RETURN Zbir; - END Hash; - - PROCEDURE Inicijalizuj(VAR R: Recnik); - VAR - i: Indeksi; - BEGIN - WITH R DO - BrojReci:= 0; - FOR i := 0 TO MaxTabela DO - NEW(Domace[i]); - Domace[i]^.Veza := Domace[i]; - NEW(Strane[i]); - Strane[i]^.Veza := Strane[i] - END; - END; - END Inicijalizuj; - - PROCEDURE Unisti(VAR R: Recnik); - VAR - i: Indeksi; - Tekuci: Lista; - BEGIN - FOR i:= 0 TO MaxTabela DO - WHILE R.Domace[i] # R.Domace[i]^.Veza DO - Tekuci:= R.Domace[i]^.Veza; - R.Domace[i]^.Veza:= Tekuci^.Veza; - DISPOSE(Tekuci); - END; - DISPOSE(R.Domace[i]); - WHILE R.Strane[i] # R.Strane[i]^.Veza DO - Tekuci:= R.Strane[i]^.Veza; - R.Strane[i]^.Veza:= Tekuci^.Veza; - DISPOSE(Tekuci); - END; - DISPOSE(R.Strane[i]); - END; - END Unisti; - - PROCEDURE Nadji(VAR Rec: String; - VAR Tab: Tabela; - VAR Prethodni: Lista; - VAR Nadjen: BOOLEAN); - VAR - Pozicija: Indeksi; - BEGIN - Pozicija:= Hash(Rec); - Prethodni:= Tab[Pozicija]; - Prethodni^.Rec:= Rec; - IF Prethodni^.Veza = Prethodni THEN - Nadjen:= FALSE; - ELSE - WHILE Compare(Prethodni^.Veza^.Rec, Rec) # 0 DO - Prethodni:= Prethodni^.Veza; - END; - Nadjen:= Prethodni^.Veza # Tab[Pozicija] - END; - END Nadji; - - PROCEDURE Ubaci(DomacaRec, StranaRec: String; - VAR R: Recnik; - VAR Duplikat: BOOLEAN); - VAR - NadjenDom, NadjenStr: BOOLEAN; - PrethodniDom, PrethodniStr, PomDom, PomStr: Lista; - BEGIN - - Nadji(DomacaRec, R.Domace, PrethodniDom, NadjenDom); - Nadji(StranaRec, R.Strane, PrethodniStr, NadjenStr); - - IF NadjenDom OR NadjenStr THEN - Duplikat:= TRUE; - ELSE - - Duplikat := FALSE; - - NEW(PomDom); - PomDom^.Rec:= DomacaRec; - PomDom^.Veza:= PrethodniDom^.Veza; - PrethodniDom^.Veza:= PomDom; - - NEW(PomStr); - PomStr^.Rec:= StranaRec; - PomStr^.Veza:= PrethodniStr^.Veza; - PrethodniStr^.Veza:= PomStr; - - PomDom^.Prevod:= PomStr; - PomStr^.Prevod:= PomDom; - - INC(R.BrojReci); - - END; - END Ubaci; - - PROCEDURE Izbaci(Rec: String; - VAR R: Recnik; - Domaca: BOOLEAN; - VAR Ok: BOOLEAN); - VAR - Prethodni, Prethodni2, Temp, Temp2: Lista; - BEGIN - - IF Domaca THEN - Nadji(Rec, R.Domace, Prethodni, Ok); - ELSE - Nadji(Rec, R.Strane, Prethodni, Ok); - END; - - IF Ok THEN - - Temp:= Prethodni^.Veza; - Prethodni^.Veza:= Temp^.Veza; - - Temp2:= Temp^.Prevod; - Prethodni2:= Temp2^.Veza; - WHILE Prethodni2^.Veza # Temp2 DO - Prethodni2:= Prethodni2^.Veza; - END; - Prethodni2^.Veza:= Temp2^.Veza; - - DISPOSE(Temp); - DISPOSE(Temp2); - - DEC(R.BrojReci); - END; - END Izbaci; - - PROCEDURE Prevedi(StranuNaDomacu: BOOLEAN; - Rec: String; - VAR Prevod: String; - VAR R: Recnik; - VAR Ok: BOOLEAN); - VAR - Prethodni: Lista; - BEGIN - IF StranuNaDomacu THEN - Nadji(Rec, R.Strane, Prethodni, Ok); - ELSE - Nadji(Rec, R.Domace, Prethodni, Ok); - END; - IF Ok THEN - Prevod:= Prethodni^.Veza^.Prevod^.Rec; - END - END Prevedi; - - PROCEDURE Sadrzaj(VAR R: Recnik); - VAR - i: Indeksi; - Tekuci: Lista; - BEGIN - WrStr('Sadrzaj recnika:'); - FOR i:= 0 TO MaxTabela DO - Tekuci:= R.Domace[i]^.Veza; - WHILE Tekuci# R.Domace[i] DO - WrLn; - WrStr(Tekuci^.Rec); - WrStr(' --------- '); - WrStr(Tekuci^.Prevod^.Rec); - Tekuci:= Tekuci^.Veza; - END; - END; - END Sadrzaj; - -END RecnikATP. diff --git a/01. Dvosmerni Recnik/TopSpeed/RECNIKTE.MOD b/01. Dvosmerni Recnik/TopSpeed/RECNIKTE.MOD deleted file mode 100644 index 5358707..0000000 --- a/01. Dvosmerni Recnik/TopSpeed/RECNIKTE.MOD +++ /dev/null @@ -1,116 +0,0 @@ -MODULE RecnikTest; - - FROM RecnikATP IMPORT - String, Recnik, Inicijalizuj, Ubaci, Izbaci, Sadrzaj, Prevedi, Unisti; - FROM IO IMPORT - WrLn, WrStr, RdStr, WrCard, RdKey, WrChar; - FROM Window IMPORT - Clear; - - VAR - R: Recnik; - Rec, Prevod: String; - Izbor, Izb: CHAR; - Ok, Duplikat, Domaca, StrNaDom: BOOLEAN; - - PROCEDURE Meni(VAR Izbor: CHAR); - TYPE - Slova = SET OF CHAR; - VAR - i: CARDINAL; - BEGIN - Clear; - FOR i:= 1 TO 8 DO - WrLn; - END; - WrStr(' P --- prevod reci'); WrLn; - WrStr(' B --- broj reci u recniku'); WrLn; - WrStr(' U --- ubacivanje nove reci i njenog prevoda u recnik'); WrLn; - WrStr(' I --- izbacivanje reci i njenog prevoda iz recnika'); WrLn; - WrStr(' S --- sekvencijalni prikaz recnika'); WrLn; - WrStr(' Q --- kraj rada'); - REPEAT - Izbor:= CAP(RdKey()); - UNTIL Izbor IN Slova {'P', 'B', 'U', 'I', 'S', 'Q'}; - Clear; - END Meni; - - PROCEDURE Pauza; - VAR - Ch: CHAR; - BEGIN - Ch:= RdKey(); - END Pauza; - -BEGIN - Inicijalizuj(R); - REPEAT - Meni(Izbor); - CASE Izbor OF - 'P': REPEAT - WrStr('1) prevod strane reci'); WrLn; - WrStr('2) prevod domace reci'); WrLn; - WrLn; - WrStr("Unesite '1' ili '2' --- "); - Izb:= RdKey(); - WrChar(Izb); WrLn; - UNTIL (Izb = '1') OR (Izb = '2'); - StrNaDom:= Izb = '1'; - IF StrNaDom THEN - WrStr('Unesite stranu rec ---- '); - RdStr(Rec); - Prevedi(StrNaDom, Rec, Prevod, R, Ok); - IF Ok THEN - WrStr('Prevod ---------------- '); - WrStr(Prevod); - ELSE - WrStr('Zadata rec se ne nalazi u recniku.'); - END; - ELSE - WrStr('Unesite domacu rec ---- '); - RdStr(Rec); - Prevedi(StrNaDom, Rec, Prevod, R, Ok); - IF Ok THEN - WrStr('Prevod ---------------- '); - WrStr(Prevod); - ELSE - WrStr('Zadata rec se ne nalazi u recniku.'); - END; - END; - Pauza; | - 'B': WrStr('Recnik raspolaze fondom od '); - WrCard(R.BrojReci, 1); - WrStr(' reci.'); - Pauza; | - 'U': WrStr('Unesite novu domacu rec ----- '); - RdStr(Rec); - WrStr('Unesite njen prevod -------- '); - RdStr(Prevod); - Ubaci(Rec, Prevod, R, Duplikat); - IF Duplikat THEN - WrStr('U recniku se vec nalazi data rec.'); - ELSE - WrStr('Upisano.'); - END; - Pauza; | - 'I': WrStr('Unesite rec --- '); - RdStr(Rec); - REPEAT - WrStr('Da li je uneta rec domaca ili strana? (d/s) '); - Izb:= RdKey(); - WrLn; - UNTIL (CAP(Izb) = 'D') OR (CAP(Izb) = 'S'); - Domaca:= CAP(Izb) = 'D'; - Izbaci(Rec, R, Domaca, Ok); - IF Ok THEN - WrStr('Izbrisano.') - ELSE - WrStr('Rec se nije ni nalazila u recniku.') - END; - Pauza; | - 'S': Sadrzaj(R); - Pauza; - END; - UNTIL Izbor = 'Q'; - Unisti(R); -END RecnikTest. 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. diff --git a/01. Dvosmerni Recnik/XDS/RECNIKATP.MOD b/01. Dvosmerni Recnik/XDS/RECNIKATP.MOD deleted file mode 100644 index 1977893..0000000 --- a/01. Dvosmerni Recnik/XDS/RECNIKATP.MOD +++ /dev/null @@ -1,186 +0,0 @@ -IMPLEMENTATION MODULE RecnikATP; - - FROM IO IMPORT - RdKey, WrStr, WrLn, WrCard; - FROM SYSTEM IMPORT - TSIZE; - FROM Str IMPORT - Compare; - FROM Storage IMPORT - ALLOCATE, DEALLOCATE; - - PROCEDURE Hash(Rec: String): Indeksi; - VAR - i, Zbir, Temp: CARDINAL; - BEGIN - Zbir:= 0; - i:= 1; - WHILE (i <= MaxDuzRec) AND (Rec[i] # CHR(0)) DO - Temp:= (ORD(Rec[i]) * ORD(Rec[i])) MOD Broj; - Zbir:= (Zbir + Temp) MOD Broj; - INC(i); - END; - RETURN Zbir; - END Hash; - - PROCEDURE Inicijalizuj(VAR R: Recnik); - VAR - i: Indeksi; - BEGIN - WITH R DO - BrojReci:= 0; - FOR i := 0 TO MaxTabela DO - NEW(Domace[i]); - Domace[i]^.Veza := Domace[i]; - NEW(Strane[i]); - Strane[i]^.Veza := Strane[i] - END; - END; - END Inicijalizuj; - - PROCEDURE Unisti(VAR R: Recnik); - VAR - i: Indeksi; - Tekuci: Lista; - BEGIN - FOR i:= 0 TO MaxTabela DO - WHILE R.Domace[i] # R.Domace[i]^.Veza DO - Tekuci:= R.Domace[i]^.Veza; - R.Domace[i]^.Veza:= Tekuci^.Veza; - DISPOSE(Tekuci); - END; - DISPOSE(R.Domace[i]); - WHILE R.Strane[i] # R.Strane[i]^.Veza DO - Tekuci:= R.Strane[i]^.Veza; - R.Strane[i]^.Veza:= Tekuci^.Veza; - DISPOSE(Tekuci); - END; - DISPOSE(R.Strane[i]); - END; - END Unisti; - - PROCEDURE Nadji(VAR Rec: String; - VAR Tab: Tabela; - VAR Prethodni: Lista; - VAR Nadjen: BOOLEAN); - VAR - Pozicija: Indeksi; - BEGIN - Pozicija:= Hash(Rec); - Prethodni:= Tab[Pozicija]; - Prethodni^.Rec:= Rec; - IF Prethodni^.Veza = Prethodni THEN - Nadjen:= FALSE; - ELSE - WHILE Compare(Prethodni^.Veza^.Rec, Rec) # 0 DO - Prethodni:= Prethodni^.Veza; - END; - Nadjen:= Prethodni^.Veza # Tab[Pozicija] - END; - END Nadji; - - PROCEDURE Ubaci(DomacaRec, StranaRec: String; - VAR R: Recnik; - VAR Duplikat: BOOLEAN); - VAR - NadjenDom, NadjenStr: BOOLEAN; - PrethodniDom, PrethodniStr, PomDom, PomStr: Lista; - BEGIN - - Nadji(DomacaRec, R.Domace, PrethodniDom, NadjenDom); - Nadji(StranaRec, R.Strane, PrethodniStr, NadjenStr); - - IF NadjenDom OR NadjenStr THEN - Duplikat:= TRUE; - ELSE - - Duplikat := FALSE; - - NEW(PomDom); - PomDom^.Rec:= DomacaRec; - PomDom^.Veza:= PrethodniDom^.Veza; - PrethodniDom^.Veza:= PomDom; - - NEW(PomStr); - PomStr^.Rec:= StranaRec; - PomStr^.Veza:= PrethodniStr^.Veza; - PrethodniStr^.Veza:= PomStr; - - PomDom^.Prevod:= PomStr; - PomStr^.Prevod:= PomDom; - - INC(R.BrojReci); - - END; - END Ubaci; - - PROCEDURE Izbaci(Rec: String; - VAR R: Recnik; - Domaca: BOOLEAN; - VAR Ok: BOOLEAN); - VAR - Prethodni, Prethodni2, Temp, Temp2: Lista; - BEGIN - - IF Domaca THEN - Nadji(Rec, R.Domace, Prethodni, Ok); - ELSE - Nadji(Rec, R.Strane, Prethodni, Ok); - END; - - IF Ok THEN - - Temp:= Prethodni^.Veza; - Prethodni^.Veza:= Temp^.Veza; - - Temp2:= Temp^.Prevod; - Prethodni2:= Temp2^.Veza; - WHILE Prethodni2^.Veza # Temp2 DO - Prethodni2:= Prethodni2^.Veza; - END; - Prethodni2^.Veza:= Temp2^.Veza; - - DISPOSE(Temp); - DISPOSE(Temp2); - - DEC(R.BrojReci); - END; - END Izbaci; - - PROCEDURE Prevedi(StranuNaDomacu: BOOLEAN; - Rec: String; - VAR Prevod: String; - VAR R: Recnik; - VAR Ok: BOOLEAN); - VAR - Prethodni: Lista; - BEGIN - IF StranuNaDomacu THEN - Nadji(Rec, R.Strane, Prethodni, Ok); - ELSE - Nadji(Rec, R.Domace, Prethodni, Ok); - END; - IF Ok THEN - Prevod:= Prethodni^.Veza^.Prevod^.Rec; - END - END Prevedi; - - PROCEDURE Sadrzaj(VAR R: Recnik); - VAR - i: Indeksi; - Tekuci: Lista; - BEGIN - WrStr('Sadrzaj recnika:'); - FOR i:= 0 TO MaxTabela DO - Tekuci:= R.Domace[i]^.Veza; - WHILE Tekuci# R.Domace[i] DO - WrLn; - WrStr(Tekuci^.Rec); - WrStr(' --------- '); - WrStr(Tekuci^.Prevod^.Rec); - Tekuci:= Tekuci^.Veza; - END; - END; - END Sadrzaj; - -END RecnikATP. diff --git a/01. Dvosmerni Recnik/XDS/RECNIKTEST.MOD b/01. Dvosmerni Recnik/XDS/RECNIKTEST.MOD deleted file mode 100644 index e1b97a2..0000000 --- a/01. Dvosmerni Recnik/XDS/RECNIKTEST.MOD +++ /dev/null @@ -1,141 +0,0 @@ -MODULE RecnikTest; - - FROM RecnikATP IMPORT - String, Recnik, Inicijalizuj, Ubaci, Izbaci, Sadrzaj, Prevedi, Unisti; - FROM IO IMPORT - WrLn, WrStr, RdStr, WrCard, RdChar, WrChar, RdInt; - - - VAR - R: Recnik; - Rec, Prevod: String; - Izbor: CHAR; - Izb : INTEGER; - Ok, Duplikat, Domaca, StrNaDom: BOOLEAN; - -PROCEDURE Clr(r : CARDINAL); -VAR - i : CARDINAL; -BEGIN - FOR i:=1 TO r DO - WrLn; - END; -END Clr; - -PROCEDURE Clear(); -BEGIN - Clr(40); -END Clear; - - PROCEDURE Meni(VAR Izbor: CHAR); - TYPE - Slova = SET OF CHAR; - VAR - i: CARDINAL; - BEGIN - Clear; - FOR i:= 1 TO 8 DO - WrLn; - END; - WrStr(' P --- prevod reci'); WrLn; - WrStr(' B --- broj reci u recniku'); WrLn; - WrStr(' U --- ubacivanje nove reci i njenog prevoda u recnik'); WrLn; - WrStr(' I --- izbacivanje reci i njenog prevoda iz recnika'); WrLn; - WrStr(' S --- sekvencijalni prikaz recnika'); WrLn; - WrStr(' Q --- kraj rada'); - Clr(7); - REPEAT - Izbor:= CAP(RdChar()); - UNTIL Izbor IN Slova {'P', 'B', 'U', 'I', 'S', 'Q'}; - Clear; - END Meni; - - PROCEDURE Pauza; - VAR - c: CHAR; - BEGIN - WrLn; - WrStr('Enter za nastavak');WrLn; - (* visak RdChar-ova zbog Entera i sl *) - c := RdChar(); - c := RdChar(); - c := RdChar(); - END Pauza; - -BEGIN - Inicijalizuj(R); - REPEAT - Meni(Izbor); - CASE Izbor OF - 'P': REPEAT - WrStr('1) prevod strane reci'); WrLn; - WrStr('2) prevod domace reci'); WrLn; - WrLn; - WrStr("Unesite '1' ili '2' --- "); - Izb:= RdInt(); - WrLn; - UNTIL (Izb = 1) OR (Izb = 2); - StrNaDom:= Izb = 1; - IF StrNaDom THEN - WrStr('Unesite stranu rec ---- '); - RdStr(Rec); - Prevedi(StrNaDom, Rec, Prevod, R, Ok); - IF Ok THEN - WrStr('Prevod ---------------- '); - WrStr(Prevod); - ELSE - WrStr('Zadata rec se ne nalazi u recniku.'); - END; - ELSE - WrStr('Unesite domacu rec ---- '); - RdStr(Rec); - Prevedi(StrNaDom, Rec, Prevod, R, Ok); - IF Ok THEN - WrStr('Prevod ---------------- '); - WrStr(Prevod); - ELSE - WrStr('Zadata rec se ne nalazi u recniku.'); - END; - END; - Pauza; | - 'B': WrStr('Recnik raspolaze fondom od '); - WrCard(R.BrojReci, 1); - WrStr(' reci.'); - Pauza; | - 'U': WrStr('Unesite novu domacu rec ----- '); - RdStr(Rec); - WrStr('Unesite njen prevod -------- '); - RdStr(Prevod); - Ubaci(Rec, Prevod, R, Duplikat); - IF Duplikat THEN - WrStr('U recniku se vec nalazi data rec.'); - ELSE - WrStr('Upisano.'); - END; - Pauza; | - 'I': WrStr('Unesite rec --- '); - RdStr(Rec); - REPEAT - WrStr('uneta rec je'); WrLn; - WrStr('1) strana'); WrLn; - WrStr('2) domaca'); WrLn; - WrLn; - WrStr("Unesite '1' ili '2' --- "); - Izb:= RdInt(); - WrLn; - UNTIL (Izb = 1) OR (Izb = 2); - Domaca:= Izb = 1; - Izbaci(Rec, R, Domaca, Ok); - IF Ok THEN - WrStr('Izbrisano.') - ELSE - WrStr('Rec se nije ni nalazila u recniku.') - END; - Pauza; | - 'S': Sadrzaj(R); - Pauza| - ELSE ; - END; - UNTIL Izbor = 'Q'; - Unisti(R); -END RecnikTest. diff --git a/01. Dvosmerni recnik/Prezentacija.ppt b/01. Dvosmerni recnik/Prezentacija.ppt new file mode 100644 index 0000000..6ff7ded Binary files /dev/null and b/01. Dvosmerni recnik/Prezentacija.ppt differ diff --git a/01. Dvosmerni recnik/TopSpeed/RECNIKAT.DEF b/01. Dvosmerni recnik/TopSpeed/RECNIKAT.DEF new file mode 100644 index 0000000..92a237a --- /dev/null +++ b/01. Dvosmerni recnik/TopSpeed/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. diff --git a/01. Dvosmerni recnik/TopSpeed/RECNIKAT.MOD b/01. Dvosmerni recnik/TopSpeed/RECNIKAT.MOD new file mode 100644 index 0000000..1977893 --- /dev/null +++ b/01. Dvosmerni recnik/TopSpeed/RECNIKAT.MOD @@ -0,0 +1,186 @@ +IMPLEMENTATION MODULE RecnikATP; + + FROM IO IMPORT + RdKey, WrStr, WrLn, WrCard; + FROM SYSTEM IMPORT + TSIZE; + FROM Str IMPORT + Compare; + FROM Storage IMPORT + ALLOCATE, DEALLOCATE; + + PROCEDURE Hash(Rec: String): Indeksi; + VAR + i, Zbir, Temp: CARDINAL; + BEGIN + Zbir:= 0; + i:= 1; + WHILE (i <= MaxDuzRec) AND (Rec[i] # CHR(0)) DO + Temp:= (ORD(Rec[i]) * ORD(Rec[i])) MOD Broj; + Zbir:= (Zbir + Temp) MOD Broj; + INC(i); + END; + RETURN Zbir; + END Hash; + + PROCEDURE Inicijalizuj(VAR R: Recnik); + VAR + i: Indeksi; + BEGIN + WITH R DO + BrojReci:= 0; + FOR i := 0 TO MaxTabela DO + NEW(Domace[i]); + Domace[i]^.Veza := Domace[i]; + NEW(Strane[i]); + Strane[i]^.Veza := Strane[i] + END; + END; + END Inicijalizuj; + + PROCEDURE Unisti(VAR R: Recnik); + VAR + i: Indeksi; + Tekuci: Lista; + BEGIN + FOR i:= 0 TO MaxTabela DO + WHILE R.Domace[i] # R.Domace[i]^.Veza DO + Tekuci:= R.Domace[i]^.Veza; + R.Domace[i]^.Veza:= Tekuci^.Veza; + DISPOSE(Tekuci); + END; + DISPOSE(R.Domace[i]); + WHILE R.Strane[i] # R.Strane[i]^.Veza DO + Tekuci:= R.Strane[i]^.Veza; + R.Strane[i]^.Veza:= Tekuci^.Veza; + DISPOSE(Tekuci); + END; + DISPOSE(R.Strane[i]); + END; + END Unisti; + + PROCEDURE Nadji(VAR Rec: String; + VAR Tab: Tabela; + VAR Prethodni: Lista; + VAR Nadjen: BOOLEAN); + VAR + Pozicija: Indeksi; + BEGIN + Pozicija:= Hash(Rec); + Prethodni:= Tab[Pozicija]; + Prethodni^.Rec:= Rec; + IF Prethodni^.Veza = Prethodni THEN + Nadjen:= FALSE; + ELSE + WHILE Compare(Prethodni^.Veza^.Rec, Rec) # 0 DO + Prethodni:= Prethodni^.Veza; + END; + Nadjen:= Prethodni^.Veza # Tab[Pozicija] + END; + END Nadji; + + PROCEDURE Ubaci(DomacaRec, StranaRec: String; + VAR R: Recnik; + VAR Duplikat: BOOLEAN); + VAR + NadjenDom, NadjenStr: BOOLEAN; + PrethodniDom, PrethodniStr, PomDom, PomStr: Lista; + BEGIN + + Nadji(DomacaRec, R.Domace, PrethodniDom, NadjenDom); + Nadji(StranaRec, R.Strane, PrethodniStr, NadjenStr); + + IF NadjenDom OR NadjenStr THEN + Duplikat:= TRUE; + ELSE + + Duplikat := FALSE; + + NEW(PomDom); + PomDom^.Rec:= DomacaRec; + PomDom^.Veza:= PrethodniDom^.Veza; + PrethodniDom^.Veza:= PomDom; + + NEW(PomStr); + PomStr^.Rec:= StranaRec; + PomStr^.Veza:= PrethodniStr^.Veza; + PrethodniStr^.Veza:= PomStr; + + PomDom^.Prevod:= PomStr; + PomStr^.Prevod:= PomDom; + + INC(R.BrojReci); + + END; + END Ubaci; + + PROCEDURE Izbaci(Rec: String; + VAR R: Recnik; + Domaca: BOOLEAN; + VAR Ok: BOOLEAN); + VAR + Prethodni, Prethodni2, Temp, Temp2: Lista; + BEGIN + + IF Domaca THEN + Nadji(Rec, R.Domace, Prethodni, Ok); + ELSE + Nadji(Rec, R.Strane, Prethodni, Ok); + END; + + IF Ok THEN + + Temp:= Prethodni^.Veza; + Prethodni^.Veza:= Temp^.Veza; + + Temp2:= Temp^.Prevod; + Prethodni2:= Temp2^.Veza; + WHILE Prethodni2^.Veza # Temp2 DO + Prethodni2:= Prethodni2^.Veza; + END; + Prethodni2^.Veza:= Temp2^.Veza; + + DISPOSE(Temp); + DISPOSE(Temp2); + + DEC(R.BrojReci); + END; + END Izbaci; + + PROCEDURE Prevedi(StranuNaDomacu: BOOLEAN; + Rec: String; + VAR Prevod: String; + VAR R: Recnik; + VAR Ok: BOOLEAN); + VAR + Prethodni: Lista; + BEGIN + IF StranuNaDomacu THEN + Nadji(Rec, R.Strane, Prethodni, Ok); + ELSE + Nadji(Rec, R.Domace, Prethodni, Ok); + END; + IF Ok THEN + Prevod:= Prethodni^.Veza^.Prevod^.Rec; + END + END Prevedi; + + PROCEDURE Sadrzaj(VAR R: Recnik); + VAR + i: Indeksi; + Tekuci: Lista; + BEGIN + WrStr('Sadrzaj recnika:'); + FOR i:= 0 TO MaxTabela DO + Tekuci:= R.Domace[i]^.Veza; + WHILE Tekuci# R.Domace[i] DO + WrLn; + WrStr(Tekuci^.Rec); + WrStr(' --------- '); + WrStr(Tekuci^.Prevod^.Rec); + Tekuci:= Tekuci^.Veza; + END; + END; + END Sadrzaj; + +END RecnikATP. diff --git a/01. Dvosmerni recnik/TopSpeed/RECNIKTE.MOD b/01. Dvosmerni recnik/TopSpeed/RECNIKTE.MOD new file mode 100644 index 0000000..5358707 --- /dev/null +++ b/01. Dvosmerni recnik/TopSpeed/RECNIKTE.MOD @@ -0,0 +1,116 @@ +MODULE RecnikTest; + + FROM RecnikATP IMPORT + String, Recnik, Inicijalizuj, Ubaci, Izbaci, Sadrzaj, Prevedi, Unisti; + FROM IO IMPORT + WrLn, WrStr, RdStr, WrCard, RdKey, WrChar; + FROM Window IMPORT + Clear; + + VAR + R: Recnik; + Rec, Prevod: String; + Izbor, Izb: CHAR; + Ok, Duplikat, Domaca, StrNaDom: BOOLEAN; + + PROCEDURE Meni(VAR Izbor: CHAR); + TYPE + Slova = SET OF CHAR; + VAR + i: CARDINAL; + BEGIN + Clear; + FOR i:= 1 TO 8 DO + WrLn; + END; + WrStr(' P --- prevod reci'); WrLn; + WrStr(' B --- broj reci u recniku'); WrLn; + WrStr(' U --- ubacivanje nove reci i njenog prevoda u recnik'); WrLn; + WrStr(' I --- izbacivanje reci i njenog prevoda iz recnika'); WrLn; + WrStr(' S --- sekvencijalni prikaz recnika'); WrLn; + WrStr(' Q --- kraj rada'); + REPEAT + Izbor:= CAP(RdKey()); + UNTIL Izbor IN Slova {'P', 'B', 'U', 'I', 'S', 'Q'}; + Clear; + END Meni; + + PROCEDURE Pauza; + VAR + Ch: CHAR; + BEGIN + Ch:= RdKey(); + END Pauza; + +BEGIN + Inicijalizuj(R); + REPEAT + Meni(Izbor); + CASE Izbor OF + 'P': REPEAT + WrStr('1) prevod strane reci'); WrLn; + WrStr('2) prevod domace reci'); WrLn; + WrLn; + WrStr("Unesite '1' ili '2' --- "); + Izb:= RdKey(); + WrChar(Izb); WrLn; + UNTIL (Izb = '1') OR (Izb = '2'); + StrNaDom:= Izb = '1'; + IF StrNaDom THEN + WrStr('Unesite stranu rec ---- '); + RdStr(Rec); + Prevedi(StrNaDom, Rec, Prevod, R, Ok); + IF Ok THEN + WrStr('Prevod ---------------- '); + WrStr(Prevod); + ELSE + WrStr('Zadata rec se ne nalazi u recniku.'); + END; + ELSE + WrStr('Unesite domacu rec ---- '); + RdStr(Rec); + Prevedi(StrNaDom, Rec, Prevod, R, Ok); + IF Ok THEN + WrStr('Prevod ---------------- '); + WrStr(Prevod); + ELSE + WrStr('Zadata rec se ne nalazi u recniku.'); + END; + END; + Pauza; | + 'B': WrStr('Recnik raspolaze fondom od '); + WrCard(R.BrojReci, 1); + WrStr(' reci.'); + Pauza; | + 'U': WrStr('Unesite novu domacu rec ----- '); + RdStr(Rec); + WrStr('Unesite njen prevod -------- '); + RdStr(Prevod); + Ubaci(Rec, Prevod, R, Duplikat); + IF Duplikat THEN + WrStr('U recniku se vec nalazi data rec.'); + ELSE + WrStr('Upisano.'); + END; + Pauza; | + 'I': WrStr('Unesite rec --- '); + RdStr(Rec); + REPEAT + WrStr('Da li je uneta rec domaca ili strana? (d/s) '); + Izb:= RdKey(); + WrLn; + UNTIL (CAP(Izb) = 'D') OR (CAP(Izb) = 'S'); + Domaca:= CAP(Izb) = 'D'; + Izbaci(Rec, R, Domaca, Ok); + IF Ok THEN + WrStr('Izbrisano.') + ELSE + WrStr('Rec se nije ni nalazila u recniku.') + END; + Pauza; | + 'S': Sadrzaj(R); + Pauza; + END; + UNTIL Izbor = 'Q'; + Unisti(R); +END RecnikTest. diff --git a/01. Dvosmerni recnik/XDS/RECNIKATP.DEF b/01. Dvosmerni recnik/XDS/RECNIKATP.DEF new file mode 100644 index 0000000..92a237a --- /dev/null +++ b/01. Dvosmerni recnik/XDS/RECNIKATP.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. diff --git a/01. Dvosmerni recnik/XDS/RECNIKATP.MOD b/01. Dvosmerni recnik/XDS/RECNIKATP.MOD new file mode 100644 index 0000000..1977893 --- /dev/null +++ b/01. Dvosmerni recnik/XDS/RECNIKATP.MOD @@ -0,0 +1,186 @@ +IMPLEMENTATION MODULE RecnikATP; + + FROM IO IMPORT + RdKey, WrStr, WrLn, WrCard; + FROM SYSTEM IMPORT + TSIZE; + FROM Str IMPORT + Compare; + FROM Storage IMPORT + ALLOCATE, DEALLOCATE; + + PROCEDURE Hash(Rec: String): Indeksi; + VAR + i, Zbir, Temp: CARDINAL; + BEGIN + Zbir:= 0; + i:= 1; + WHILE (i <= MaxDuzRec) AND (Rec[i] # CHR(0)) DO + Temp:= (ORD(Rec[i]) * ORD(Rec[i])) MOD Broj; + Zbir:= (Zbir + Temp) MOD Broj; + INC(i); + END; + RETURN Zbir; + END Hash; + + PROCEDURE Inicijalizuj(VAR R: Recnik); + VAR + i: Indeksi; + BEGIN + WITH R DO + BrojReci:= 0; + FOR i := 0 TO MaxTabela DO + NEW(Domace[i]); + Domace[i]^.Veza := Domace[i]; + NEW(Strane[i]); + Strane[i]^.Veza := Strane[i] + END; + END; + END Inicijalizuj; + + PROCEDURE Unisti(VAR R: Recnik); + VAR + i: Indeksi; + Tekuci: Lista; + BEGIN + FOR i:= 0 TO MaxTabela DO + WHILE R.Domace[i] # R.Domace[i]^.Veza DO + Tekuci:= R.Domace[i]^.Veza; + R.Domace[i]^.Veza:= Tekuci^.Veza; + DISPOSE(Tekuci); + END; + DISPOSE(R.Domace[i]); + WHILE R.Strane[i] # R.Strane[i]^.Veza DO + Tekuci:= R.Strane[i]^.Veza; + R.Strane[i]^.Veza:= Tekuci^.Veza; + DISPOSE(Tekuci); + END; + DISPOSE(R.Strane[i]); + END; + END Unisti; + + PROCEDURE Nadji(VAR Rec: String; + VAR Tab: Tabela; + VAR Prethodni: Lista; + VAR Nadjen: BOOLEAN); + VAR + Pozicija: Indeksi; + BEGIN + Pozicija:= Hash(Rec); + Prethodni:= Tab[Pozicija]; + Prethodni^.Rec:= Rec; + IF Prethodni^.Veza = Prethodni THEN + Nadjen:= FALSE; + ELSE + WHILE Compare(Prethodni^.Veza^.Rec, Rec) # 0 DO + Prethodni:= Prethodni^.Veza; + END; + Nadjen:= Prethodni^.Veza # Tab[Pozicija] + END; + END Nadji; + + PROCEDURE Ubaci(DomacaRec, StranaRec: String; + VAR R: Recnik; + VAR Duplikat: BOOLEAN); + VAR + NadjenDom, NadjenStr: BOOLEAN; + PrethodniDom, PrethodniStr, PomDom, PomStr: Lista; + BEGIN + + Nadji(DomacaRec, R.Domace, PrethodniDom, NadjenDom); + Nadji(StranaRec, R.Strane, PrethodniStr, NadjenStr); + + IF NadjenDom OR NadjenStr THEN + Duplikat:= TRUE; + ELSE + + Duplikat := FALSE; + + NEW(PomDom); + PomDom^.Rec:= DomacaRec; + PomDom^.Veza:= PrethodniDom^.Veza; + PrethodniDom^.Veza:= PomDom; + + NEW(PomStr); + PomStr^.Rec:= StranaRec; + PomStr^.Veza:= PrethodniStr^.Veza; + PrethodniStr^.Veza:= PomStr; + + PomDom^.Prevod:= PomStr; + PomStr^.Prevod:= PomDom; + + INC(R.BrojReci); + + END; + END Ubaci; + + PROCEDURE Izbaci(Rec: String; + VAR R: Recnik; + Domaca: BOOLEAN; + VAR Ok: BOOLEAN); + VAR + Prethodni, Prethodni2, Temp, Temp2: Lista; + BEGIN + + IF Domaca THEN + Nadji(Rec, R.Domace, Prethodni, Ok); + ELSE + Nadji(Rec, R.Strane, Prethodni, Ok); + END; + + IF Ok THEN + + Temp:= Prethodni^.Veza; + Prethodni^.Veza:= Temp^.Veza; + + Temp2:= Temp^.Prevod; + Prethodni2:= Temp2^.Veza; + WHILE Prethodni2^.Veza # Temp2 DO + Prethodni2:= Prethodni2^.Veza; + END; + Prethodni2^.Veza:= Temp2^.Veza; + + DISPOSE(Temp); + DISPOSE(Temp2); + + DEC(R.BrojReci); + END; + END Izbaci; + + PROCEDURE Prevedi(StranuNaDomacu: BOOLEAN; + Rec: String; + VAR Prevod: String; + VAR R: Recnik; + VAR Ok: BOOLEAN); + VAR + Prethodni: Lista; + BEGIN + IF StranuNaDomacu THEN + Nadji(Rec, R.Strane, Prethodni, Ok); + ELSE + Nadji(Rec, R.Domace, Prethodni, Ok); + END; + IF Ok THEN + Prevod:= Prethodni^.Veza^.Prevod^.Rec; + END + END Prevedi; + + PROCEDURE Sadrzaj(VAR R: Recnik); + VAR + i: Indeksi; + Tekuci: Lista; + BEGIN + WrStr('Sadrzaj recnika:'); + FOR i:= 0 TO MaxTabela DO + Tekuci:= R.Domace[i]^.Veza; + WHILE Tekuci# R.Domace[i] DO + WrLn; + WrStr(Tekuci^.Rec); + WrStr(' --------- '); + WrStr(Tekuci^.Prevod^.Rec); + Tekuci:= Tekuci^.Veza; + END; + END; + END Sadrzaj; + +END RecnikATP. diff --git a/01. Dvosmerni recnik/XDS/RECNIKTEST.MOD b/01. Dvosmerni recnik/XDS/RECNIKTEST.MOD new file mode 100644 index 0000000..e1b97a2 --- /dev/null +++ b/01. Dvosmerni recnik/XDS/RECNIKTEST.MOD @@ -0,0 +1,141 @@ +MODULE RecnikTest; + + FROM RecnikATP IMPORT + String, Recnik, Inicijalizuj, Ubaci, Izbaci, Sadrzaj, Prevedi, Unisti; + FROM IO IMPORT + WrLn, WrStr, RdStr, WrCard, RdChar, WrChar, RdInt; + + + VAR + R: Recnik; + Rec, Prevod: String; + Izbor: CHAR; + Izb : INTEGER; + Ok, Duplikat, Domaca, StrNaDom: BOOLEAN; + +PROCEDURE Clr(r : CARDINAL); +VAR + i : CARDINAL; +BEGIN + FOR i:=1 TO r DO + WrLn; + END; +END Clr; + +PROCEDURE Clear(); +BEGIN + Clr(40); +END Clear; + + PROCEDURE Meni(VAR Izbor: CHAR); + TYPE + Slova = SET OF CHAR; + VAR + i: CARDINAL; + BEGIN + Clear; + FOR i:= 1 TO 8 DO + WrLn; + END; + WrStr(' P --- prevod reci'); WrLn; + WrStr(' B --- broj reci u recniku'); WrLn; + WrStr(' U --- ubacivanje nove reci i njenog prevoda u recnik'); WrLn; + WrStr(' I --- izbacivanje reci i njenog prevoda iz recnika'); WrLn; + WrStr(' S --- sekvencijalni prikaz recnika'); WrLn; + WrStr(' Q --- kraj rada'); + Clr(7); + REPEAT + Izbor:= CAP(RdChar()); + UNTIL Izbor IN Slova {'P', 'B', 'U', 'I', 'S', 'Q'}; + Clear; + END Meni; + + PROCEDURE Pauza; + VAR + c: CHAR; + BEGIN + WrLn; + WrStr('Enter za nastavak');WrLn; + (* visak RdChar-ova zbog Entera i sl *) + c := RdChar(); + c := RdChar(); + c := RdChar(); + END Pauza; + +BEGIN + Inicijalizuj(R); + REPEAT + Meni(Izbor); + CASE Izbor OF + 'P': REPEAT + WrStr('1) prevod strane reci'); WrLn; + WrStr('2) prevod domace reci'); WrLn; + WrLn; + WrStr("Unesite '1' ili '2' --- "); + Izb:= RdInt(); + WrLn; + UNTIL (Izb = 1) OR (Izb = 2); + StrNaDom:= Izb = 1; + IF StrNaDom THEN + WrStr('Unesite stranu rec ---- '); + RdStr(Rec); + Prevedi(StrNaDom, Rec, Prevod, R, Ok); + IF Ok THEN + WrStr('Prevod ---------------- '); + WrStr(Prevod); + ELSE + WrStr('Zadata rec se ne nalazi u recniku.'); + END; + ELSE + WrStr('Unesite domacu rec ---- '); + RdStr(Rec); + Prevedi(StrNaDom, Rec, Prevod, R, Ok); + IF Ok THEN + WrStr('Prevod ---------------- '); + WrStr(Prevod); + ELSE + WrStr('Zadata rec se ne nalazi u recniku.'); + END; + END; + Pauza; | + 'B': WrStr('Recnik raspolaze fondom od '); + WrCard(R.BrojReci, 1); + WrStr(' reci.'); + Pauza; | + 'U': WrStr('Unesite novu domacu rec ----- '); + RdStr(Rec); + WrStr('Unesite njen prevod -------- '); + RdStr(Prevod); + Ubaci(Rec, Prevod, R, Duplikat); + IF Duplikat THEN + WrStr('U recniku se vec nalazi data rec.'); + ELSE + WrStr('Upisano.'); + END; + Pauza; | + 'I': WrStr('Unesite rec --- '); + RdStr(Rec); + REPEAT + WrStr('uneta rec je'); WrLn; + WrStr('1) strana'); WrLn; + WrStr('2) domaca'); WrLn; + WrLn; + WrStr("Unesite '1' ili '2' --- "); + Izb:= RdInt(); + WrLn; + UNTIL (Izb = 1) OR (Izb = 2); + Domaca:= Izb = 1; + Izbaci(Rec, R, Domaca, Ok); + IF Ok THEN + WrStr('Izbrisano.') + ELSE + WrStr('Rec se nije ni nalazila u recniku.') + END; + Pauza; | + 'S': Sadrzaj(R); + Pauza| + ELSE ; + END; + UNTIL Izbor = 'Q'; + Unisti(R); +END RecnikTest. diff --git a/03. Shaker sort/TopSpeed & XDS/SHAKER.MOD b/03. Shaker sort/TopSpeed & XDS/SHAKER.MOD new file mode 100644 index 0000000..5f1ef39 --- /dev/null +++ b/03. Shaker sort/TopSpeed & XDS/SHAKER.MOD @@ -0,0 +1,80 @@ +MODULE Shaker; + + FROM IO IMPORT + WrCard, WrStr, RdCard, WrLn, OK; + + CONST + Max = 10; + + TYPE + Indeks = [1 .. Max]; + NizTip = ARRAY Indeks OF CARDINAL; + + VAR + Niz: NizTip; + + PROCEDURE Unos(VAR Niz: NizTip); + VAR + i: Indeks; + BEGIN + FOR i:= 1 TO Max DO + REPEAT + WrStr('Unesite '); + WrCard(i, 2); + WrStr('. clan niza: '); + Niz[i]:= RdCard(); + WrLn; + UNTIL OK; + END; + END Unos; + + PROCEDURE Ispis(VAR Niz: NizTip); + VAR + i: Indeks; + BEGIN + FOR i := 1 TO Max - 1 DO + WrCard(Niz[i], 1); + WrStr(', '); + END; + WrCard(Niz[Max], 1); + END Ispis; + + PROCEDURE ShakerSort(VAR Niz: NizTip); + VAR + Levi, Desni, i, ZadnjiMenjan: Indeks; + Temp: CARDINAL; + BEGIN + Levi:= 2; + Desni:= Max; + ZadnjiMenjan:= Max; + REPEAT + FOR i:= Desni TO Levi BY -1 DO + IF Niz[i - 1] > Niz[i] THEN + Temp:= Niz[i - 1]; + Niz[i - 1]:= Niz[i]; + Niz[i]:= Temp; + ZadnjiMenjan:= i; + END; + END; + Levi:= ZadnjiMenjan + 1; + FOR i:= Levi TO Desni DO + IF Niz[i - 1] > Niz[i] THEN + Temp:= Niz[i - 1]; + Niz[i - 1]:= Niz[i]; + Niz[i]:= Temp; + ZadnjiMenjan:= i; + END; + END; + Desni:= ZadnjiMenjan - 1; + UNTIL Levi > Desni; + END ShakerSort; + +BEGIN + Unos(Niz); + WrStr('Unesen niz: '); + Ispis(Niz); + WrLn; + WrStr('Sortiran niz: '); + ShakerSort(Niz); + Ispis(Niz); +END Shaker. diff --git a/03. Shaker sort/kod/SHAKER.MOD b/03. Shaker sort/kod/SHAKER.MOD deleted file mode 100644 index 5f1ef39..0000000 --- a/03. Shaker sort/kod/SHAKER.MOD +++ /dev/null @@ -1,80 +0,0 @@ -MODULE Shaker; - - FROM IO IMPORT - WrCard, WrStr, RdCard, WrLn, OK; - - CONST - Max = 10; - - TYPE - Indeks = [1 .. Max]; - NizTip = ARRAY Indeks OF CARDINAL; - - VAR - Niz: NizTip; - - PROCEDURE Unos(VAR Niz: NizTip); - VAR - i: Indeks; - BEGIN - FOR i:= 1 TO Max DO - REPEAT - WrStr('Unesite '); - WrCard(i, 2); - WrStr('. clan niza: '); - Niz[i]:= RdCard(); - WrLn; - UNTIL OK; - END; - END Unos; - - PROCEDURE Ispis(VAR Niz: NizTip); - VAR - i: Indeks; - BEGIN - FOR i := 1 TO Max - 1 DO - WrCard(Niz[i], 1); - WrStr(', '); - END; - WrCard(Niz[Max], 1); - END Ispis; - - PROCEDURE ShakerSort(VAR Niz: NizTip); - VAR - Levi, Desni, i, ZadnjiMenjan: Indeks; - Temp: CARDINAL; - BEGIN - Levi:= 2; - Desni:= Max; - ZadnjiMenjan:= Max; - REPEAT - FOR i:= Desni TO Levi BY -1 DO - IF Niz[i - 1] > Niz[i] THEN - Temp:= Niz[i - 1]; - Niz[i - 1]:= Niz[i]; - Niz[i]:= Temp; - ZadnjiMenjan:= i; - END; - END; - Levi:= ZadnjiMenjan + 1; - FOR i:= Levi TO Desni DO - IF Niz[i - 1] > Niz[i] THEN - Temp:= Niz[i - 1]; - Niz[i - 1]:= Niz[i]; - Niz[i]:= Temp; - ZadnjiMenjan:= i; - END; - END; - Desni:= ZadnjiMenjan - 1; - UNTIL Levi > Desni; - END ShakerSort; - -BEGIN - Unos(Niz); - WrStr('Unesen niz: '); - Ispis(Niz); - WrLn; - WrStr('Sortiran niz: '); - ShakerSort(Niz); - Ispis(Niz); -END Shaker. diff --git a/04. Dve grupe brojeva/Prezentacija.ppt b/04. Dve grupe brojeva/Prezentacija.ppt new file mode 100644 index 0000000..a1b04ab Binary files /dev/null and b/04. Dve grupe brojeva/Prezentacija.ppt differ diff --git a/04. Dve grupe brojeva/TopSpeed & XDS/NBROJEVA.MOD b/04. Dve grupe brojeva/TopSpeed & XDS/NBROJEVA.MOD new file mode 100644 index 0000000..9f15488 --- /dev/null +++ b/04. Dve grupe brojeva/TopSpeed & XDS/NBROJEVA.MOD @@ -0,0 +1,112 @@ +MODULE NBrojeva; + + FROM IO IMPORT + WrLn, WrCard, RdCard, WrStr; + + CONST + MaxNiz = 50; + MaxSuma = 500; + + VAR + n, Suma, SumaPola: CARDINAL; + Broj: ARRAY [1 .. MaxNiz] OF CARDINAL; + Iskor: ARRAY[1 .. MaxNiz] OF BOOLEAN; + Mat: ARRAY[0 .. MaxSuma], [0 .. MaxNiz] OF CARDINAL; + (* Mat[i, j] je suma brojeva u resenju ako je maksimalna *) + (* dozvoljena suma brojeva u resenju jednaka 'i' i ako se *) + (* koristi samo prvih 'j' brojeva. *) + + PROCEDURE Unos; + VAR + i: CARDINAL; + BEGIN + WrStr('Unesite n: '); + n:= RdCard(); + Suma:= 0; + FOR i:= 1 TO n DO + WrStr('Unesite '); + WrCard(i, 1); + WrStr('. broj: '); + Broj[i]:= RdCard(); + Suma:= Suma + Broj[i]; + Iskor[i]:= FALSE; + END; + SumaPola:= Suma DIV 2; + END Unos; + + PROCEDURE Resi; + VAR + i, j, Pom: CARDINAL; + BEGIN + FOR i:= 0 TO SumaPola DO + Mat[i, 0]:= 0; (* Koristi se prvih 0 brojeva *) + END; + FOR j:= 1 TO n DO + Mat[0, j]:= 0; (* Maksimalna dozvoljena suma brojeva u resenju je 0 *) + END; + FOR i:= 1 TO SumaPola DO + (* Maks. dozvoljena suma brojeva u resenju je i *) + FOR j := 1 TO n DO + (* U resenju mogu ucestvovati prvih j brojeva *) + Mat[i, j]:= Mat[i, j - 1]; + IF Broj[j] <= i THEN + Pom:= Mat[i - Broj[j], j - 1] + Broj[j]; + IF Pom > Mat[i, j] THEN + Mat[i, j]:= Pom; + END; + END; + END; + END; + END Resi; + + PROCEDURE IspisiPrvu; + VAR + i, j: CARDINAL; + BEGIN + WrStr('Zbir prve grupe brojeva je '); + WrCard(Mat[SumaPola, n], 1); + WrLn; + WrStr('Prvu grupu brojeva cine brojevi:'); + WrLn; + i:= SumaPola; + j:= n; + REPEAT + WHILE (j > 0) AND (Mat[i, j] = Mat[i, j - 1]) DO + DEC(j); + END; + IF j > 0 THEN + WrCard(Broj[j], 8); + Iskor[j]:= TRUE; + i:= i - Broj[j]; + DEC(j); + END; + UNTIL j = 0; + END IspisiPrvu; + + PROCEDURE IspisiDrugu; + VAR + i, j: CARDINAL; + BEGIN + WrLn; + WrStr('Zbir druge grupe brojeva je '); + WrCard(Suma - Mat[SumaPola, n], 1); + WrLn; + WrStr('Drugu grupu brojeva cine brojevi:'); + WrLn; + FOR i := 1 TO n DO + IF NOT Iskor[i] THEN + WrCard(Broj[i], 8); + END; + END; + END IspisiDrugu; + +BEGIN + Unos; + IF SumaPola > MaxSuma THEN + WrStr('Ulazni podaci su suvise veliki.'); + ELSE + Resi; + IspisiPrvu; + IspisiDrugu; + END; +END NBrojeva. diff --git a/04. N brojeva/Prezentacija.ppt b/04. N brojeva/Prezentacija.ppt deleted file mode 100644 index a1b04ab..0000000 Binary files a/04. N brojeva/Prezentacija.ppt and /dev/null differ diff --git a/04. N brojeva/kod/NBROJEVA.MOD b/04. N brojeva/kod/NBROJEVA.MOD deleted file mode 100644 index 9f15488..0000000 --- a/04. N brojeva/kod/NBROJEVA.MOD +++ /dev/null @@ -1,112 +0,0 @@ -MODULE NBrojeva; - - FROM IO IMPORT - WrLn, WrCard, RdCard, WrStr; - - CONST - MaxNiz = 50; - MaxSuma = 500; - - VAR - n, Suma, SumaPola: CARDINAL; - Broj: ARRAY [1 .. MaxNiz] OF CARDINAL; - Iskor: ARRAY[1 .. MaxNiz] OF BOOLEAN; - Mat: ARRAY[0 .. MaxSuma], [0 .. MaxNiz] OF CARDINAL; - (* Mat[i, j] je suma brojeva u resenju ako je maksimalna *) - (* dozvoljena suma brojeva u resenju jednaka 'i' i ako se *) - (* koristi samo prvih 'j' brojeva. *) - - PROCEDURE Unos; - VAR - i: CARDINAL; - BEGIN - WrStr('Unesite n: '); - n:= RdCard(); - Suma:= 0; - FOR i:= 1 TO n DO - WrStr('Unesite '); - WrCard(i, 1); - WrStr('. broj: '); - Broj[i]:= RdCard(); - Suma:= Suma + Broj[i]; - Iskor[i]:= FALSE; - END; - SumaPola:= Suma DIV 2; - END Unos; - - PROCEDURE Resi; - VAR - i, j, Pom: CARDINAL; - BEGIN - FOR i:= 0 TO SumaPola DO - Mat[i, 0]:= 0; (* Koristi se prvih 0 brojeva *) - END; - FOR j:= 1 TO n DO - Mat[0, j]:= 0; (* Maksimalna dozvoljena suma brojeva u resenju je 0 *) - END; - FOR i:= 1 TO SumaPola DO - (* Maks. dozvoljena suma brojeva u resenju je i *) - FOR j := 1 TO n DO - (* U resenju mogu ucestvovati prvih j brojeva *) - Mat[i, j]:= Mat[i, j - 1]; - IF Broj[j] <= i THEN - Pom:= Mat[i - Broj[j], j - 1] + Broj[j]; - IF Pom > Mat[i, j] THEN - Mat[i, j]:= Pom; - END; - END; - END; - END; - END Resi; - - PROCEDURE IspisiPrvu; - VAR - i, j: CARDINAL; - BEGIN - WrStr('Zbir prve grupe brojeva je '); - WrCard(Mat[SumaPola, n], 1); - WrLn; - WrStr('Prvu grupu brojeva cine brojevi:'); - WrLn; - i:= SumaPola; - j:= n; - REPEAT - WHILE (j > 0) AND (Mat[i, j] = Mat[i, j - 1]) DO - DEC(j); - END; - IF j > 0 THEN - WrCard(Broj[j], 8); - Iskor[j]:= TRUE; - i:= i - Broj[j]; - DEC(j); - END; - UNTIL j = 0; - END IspisiPrvu; - - PROCEDURE IspisiDrugu; - VAR - i, j: CARDINAL; - BEGIN - WrLn; - WrStr('Zbir druge grupe brojeva je '); - WrCard(Suma - Mat[SumaPola, n], 1); - WrLn; - WrStr('Drugu grupu brojeva cine brojevi:'); - WrLn; - FOR i := 1 TO n DO - IF NOT Iskor[i] THEN - WrCard(Broj[i], 8); - END; - END; - END IspisiDrugu; - -BEGIN - Unos; - IF SumaPola > MaxSuma THEN - WrStr('Ulazni podaci su suvise veliki.'); - ELSE - Resi; - IspisiPrvu; - IspisiDrugu; - END; -END NBrojeva. diff --git a/05. NizDin/Prezentacija.ppt b/05. NizDin/Prezentacija.ppt deleted file mode 100644 index c0ab24e..0000000 Binary files a/05. NizDin/Prezentacija.ppt and /dev/null differ diff --git a/05. NizDin/kod/NIZDIN.MOD b/05. NizDin/kod/NIZDIN.MOD deleted file mode 100644 index 0e63683..0000000 --- a/05. NizDin/kod/NIZDIN.MOD +++ /dev/null @@ -1,65 +0,0 @@ -MODULE NizDin; - - FROM IO IMPORT - WrStr, RdInt, WrInt; - - CONST - MaxN = 1000; - - VAR - a, b: ARRAY [0 .. MaxN] OF INTEGER; - (* b[i] je suma elemenata u resenju za *) - (* deo niza 'a' do 'i'-tog elementa *) - n: INTEGER; - - PROCEDURE Unos; - VAR - i: INTEGER; - BEGIN - WrStr('Unesite N: '); - n:= RdInt(); - FOR i:= 1 TO n DO - WrStr('A['); - WrInt(i, 1); - WrStr('] = '); - a[i]:= RdInt(); - END; - END Unos; - - PROCEDURE Resi; - VAR - i: INTEGER; - BEGIN - b[0]:= 0; - IF a[1] > 0 THEN - b[1]:= a[1]; - ELSE - b[1]:= 0; - END; - FOR i:= 2 TO n DO - IF b[i - 2] + a[i] > b[i - 1] THEN - b[i]:= b[i - 2] + a[i]; - ELSE - b[i]:= b[i - 1]; - END - END; - END Resi; - - PROCEDURE Ispis(n: INTEGER); - BEGIN - IF n > 0 THEN - IF b[n] = b[n - 1] THEN - Ispis(n - 1); - ELSE - Ispis(n - 2); - WrInt(a[n], 8); - END; - END; - END Ispis; - -BEGIN - Unos; - Resi; - WrStr('Podniz: '); - Ispis(n); -END NizDin. diff --git a/05. Podniz sa maksimalnim zbirom/Prezentacija.ppt b/05. Podniz sa maksimalnim zbirom/Prezentacija.ppt new file mode 100644 index 0000000..c0ab24e Binary files /dev/null and b/05. Podniz sa maksimalnim zbirom/Prezentacija.ppt differ diff --git a/05. Podniz sa maksimalnim zbirom/TopSpeed & XDS/NIZDIN.MOD b/05. Podniz sa maksimalnim zbirom/TopSpeed & XDS/NIZDIN.MOD new file mode 100644 index 0000000..0e63683 --- /dev/null +++ b/05. Podniz sa maksimalnim zbirom/TopSpeed & XDS/NIZDIN.MOD @@ -0,0 +1,65 @@ +MODULE NizDin; + + FROM IO IMPORT + WrStr, RdInt, WrInt; + + CONST + MaxN = 1000; + + VAR + a, b: ARRAY [0 .. MaxN] OF INTEGER; + (* b[i] je suma elemenata u resenju za *) + (* deo niza 'a' do 'i'-tog elementa *) + n: INTEGER; + + PROCEDURE Unos; + VAR + i: INTEGER; + BEGIN + WrStr('Unesite N: '); + n:= RdInt(); + FOR i:= 1 TO n DO + WrStr('A['); + WrInt(i, 1); + WrStr('] = '); + a[i]:= RdInt(); + END; + END Unos; + + PROCEDURE Resi; + VAR + i: INTEGER; + BEGIN + b[0]:= 0; + IF a[1] > 0 THEN + b[1]:= a[1]; + ELSE + b[1]:= 0; + END; + FOR i:= 2 TO n DO + IF b[i - 2] + a[i] > b[i - 1] THEN + b[i]:= b[i - 2] + a[i]; + ELSE + b[i]:= b[i - 1]; + END + END; + END Resi; + + PROCEDURE Ispis(n: INTEGER); + BEGIN + IF n > 0 THEN + IF b[n] = b[n - 1] THEN + Ispis(n - 1); + ELSE + Ispis(n - 2); + WrInt(a[n], 8); + END; + END; + END Ispis; + +BEGIN + Unos; + Resi; + WrStr('Podniz: '); + Ispis(n); +END NizDin. diff --git a/06. Maksimalan zbir/Prezentacija.ppt b/06. Maksimalan zbir/Prezentacija.ppt new file mode 100644 index 0000000..d5ec6a7 Binary files /dev/null and b/06. Maksimalan zbir/Prezentacija.ppt differ diff --git a/06. Maksimalan zbir/TopSpeed/MAXZBIR.MOD b/06. Maksimalan zbir/TopSpeed/MAXZBIR.MOD new file mode 100644 index 0000000..85e8209 --- /dev/null +++ b/06. Maksimalan zbir/TopSpeed/MAXZBIR.MOD @@ -0,0 +1,100 @@ +MODULE MaxZbir; + + FROM IO IMPORT + WrStr, WrLn, WrCard, WrInt, RdCard, RdInt; + + CONST + Max = 100; + + VAR + A, B: ARRAY [1 .. Max], [1 .. Max] OF INTEGER; + m, n: CARDINAL; + (* B[vr, ko] je vrednost optimalnog resenja od (1, 1) do (vr, ko) *) + + PROCEDURE Unos; + VAR + i, j: CARDINAL; + BEGIN + WrStr('Unesite n: '); + n:= RdCard(); + WrStr('Unesite m: '); + m:= RdCard(); + IF (n < Max) AND (m < Max) THEN + FOR i:= 1 TO m DO + FOR j:= 1 TO n DO + WrStr('A['); + WrCard(i, 1); + WrStr(', '); + WrCard(j, 1); + WrStr('] = '); + A[i, j] := RdInt(); + END; + END; + END; + END Unos; + + PROCEDURE Resi; + VAR + i, j: CARDINAL; + BEGIN + B[1, 1]:= A[1, 1]; + FOR j:= 2 TO n DO + B[1, j]:= A[1, j] + B[1, j-1]; + END; + FOR i:= 2 TO m DO + B[i, 1]:= A[i, 1] + B[i-1, 1]; + END; + FOR i:= 2 TO m DO + FOR j:= 2 TO n DO + IF B[i, j - 1] < B[i - 1, j] THEN + B[i, j]:= A[i, j] + B[i - 1, j]; + ELSE + B[i, j]:= A[i, j] + B[i, j - 1]; + END; + END; + END; + END Resi; + + PROCEDURE Ispis(Vr, Ko: CARDINAL); + VAR + i: CARDINAL; + BEGIN + IF (Vr > 1) AND (Ko > 1) THEN + IF B[Vr - 1, Ko] > B[Vr, Ko - 1] THEN + Ispis(Vr - 1, Ko); + ELSE + Ispis(Vr, Ko - 1); + END; + WrStr('('); + WrCard(Vr, 1); + WrStr(', '); + WrCard(Ko, 1); + WrStr(')'); + ELSIF Vr = 1 THEN + FOR i:= 1 TO Ko DO + WrStr('(1, '); + WrCard(i, 1); + WrStr(')'); + END; + ELSE + FOR i:= 1 TO Vr DO + WrStr('('); + WrCard(i, 1); + WrStr(', 1)'); + END; + END; + END Ispis; + +BEGIN + Unos; + IF (n < Max) AND (m < Max) THEN + Resi; + WrStr('Maksimalni zbir je '); + WrInt(B[m, n], 1); + WrStr(' a postize se ovako:'); + WrLn; + Ispis(m, n) + ELSE + WrStr('Suvise velika matrica.') + END +END MaxZbir. diff --git a/07. Bojenje mape/Prezentacija.ppt b/07. Bojenje mape/Prezentacija.ppt new file mode 100644 index 0000000..73a6b8b Binary files /dev/null and b/07. Bojenje mape/Prezentacija.ppt differ diff --git a/07. Bojenje mape/TopSpeed/BOJENJE.MOD b/07. Bojenje mape/TopSpeed/BOJENJE.MOD new file mode 100644 index 0000000..6986a33 --- /dev/null +++ b/07. Bojenje mape/TopSpeed/BOJENJE.MOD @@ -0,0 +1,128 @@ +MODULE Bojenje; + + FROM IO IMPORT + WrStr, WrLn, WrLngCard; + + CONST + MaxBrojZemalja = 30; + DuzinaImena = 18; + + TYPE + RangImena = [1 .. DuzinaImena]; + Zemlja = [1 .. MaxBrojZemalja]; + SkupZ = SET OF Zemlja; + Boja = (Crvena, Plava, Zelena, Zuta); + GraniceTip = ARRAY Zemlja OF SkupZ; + BojeZemalja = ARRAY Boja OF SkupZ; + ImenaZemalja = ARRAY Zemlja, RangImena OF CHAR; + + VAR + Granice: GraniceTip; + Obojeno: BojeZemalja; + Ime: ImenaZemalja; + BrZ: Zemlja; + RBr: LONGCARD; + + PROCEDURE Inicijalizacija; + VAR + i: Boja; + BEGIN + FOR i:= MIN(Boja) TO MAX(Boja) DO + Obojeno[i]:= SkupZ {}; + END; + Ime[ 1]:= 'Maroko'; + Ime[ 2]:= 'Zapadna Sahara'; + Ime[ 3]:= 'Alzir'; + Ime[ 4]:= 'Tunis'; + Ime[ 5]:= 'Mauritanija'; + Ime[ 6]:= 'Mali'; + Ime[ 7]:= 'Niger'; + Ime[ 8]:= 'Libija'; + Ime[ 9]:= 'Senegal'; + Ime[10]:= 'Gvineja'; + Ime[11]:= 'Obala Slonovace'; + Ime[12]:= 'Burkina Faso'; + Ime[13]:= 'Benin'; + Ime[14]:= 'Nigerija'; + Ime[15]:= 'Cad'; + Ime[16]:= 'Sudan'; + Ime[17]:= 'Egipat'; + Ime[18]:= 'Gambija'; + Ime[19]:= 'Gvineja Bisao'; + Ime[20]:= 'Siera Leone'; + Granice[ 1]:= SkupZ {3, 2}; + Granice[ 2]:= SkupZ {1, 3, 5}; + Granice[ 3]:= SkupZ {1, 2, 5, 6, 7, 8, 4}; + Granice[ 4]:= SkupZ {3, 8}; + Granice[ 5]:= SkupZ {2, 3, 6, 9}; + Granice[ 6]:= SkupZ {3, 5, 9, 10, 11, 12, 7}; + Granice[ 7]:= SkupZ {3, 6, 12, 13, 14, 15, 8}; + Granice[ 8]:= SkupZ {4, 3, 7, 15, 16, 17}; + Granice[ 9]:= SkupZ {18, 19, 10, 6, 5}; + Granice[10]:= SkupZ {19, 9, 6, 20, 11}; + Granice[11]:= SkupZ {10, 6, 12}; + Granice[12]:= SkupZ {6, 11, 13, 7}; + Granice[13]:= SkupZ {12, 7, 14}; + Granice[14]:= SkupZ {13, 7, 15}; + Granice[15]:= SkupZ {14, 7, 8, 16}; + Granice[16]:= SkupZ {17, 8, 15}; + Granice[17]:= SkupZ {8, 15, 16}; + Granice[18]:= SkupZ {9}; + Granice[19]:= SkupZ {9, 10}; + Granice[20]:= SkupZ {10}; + RBr:= 0; + BrZ:= 20 + END Inicijalizacija; + + PROCEDURE StampajSkup(VAR S: SkupZ); + VAR + z: Zemlja; + Prvi: BOOLEAN; + BEGIN + Prvi:= TRUE; + FOR z:= 1 TO MaxBrojZemalja DO + IF z IN S THEN + IF Prvi THEN + WrStr(Ime[z]); + Prvi:= FALSE; + ELSE + WrStr(', '); + WrStr(Ime[z]); + END; + END; + END; + END StampajSkup; + + + PROCEDURE Stampa(RBr: LONGCARD; VAR Obojeno: BojeZemalja); + BEGIN + WrLn; WrLn; WrLngCard(RBr, 1); + WrLn; WrStr('Crvena: '); StampajSkup(Obojeno[Crvena]); + WrLn; WrStr('Plava: '); StampajSkup(Obojeno[Plava]); + WrLn; WrStr('Zelena: '); StampajSkup(Obojeno[Zelena]); + WrLn; WrStr('Zuta: '); StampajSkup(Obojeno[Zuta]); + END Stampa; + + PROCEDURE Oboji(z: Zemlja); + VAR + i: Boja; + BEGIN + FOR i:= MIN(Boja) TO MAX(Boja) DO + IF Granice[z] * Obojeno[i] = SkupZ {} THEN + Obojeno[i]:= Obojeno[i] + SkupZ {z}; + IF z = BrZ THEN + INC(RBr); + Stampa(RBr, Obojeno); + ELSE + Oboji(z + 1); + END; + Obojeno[i]:= Obojeno[i] - SkupZ {z}; + END; + END; + END Oboji; + +BEGIN + Inicijalizacija; + Oboji(1); + (* Broj mogucih bojenja je 1 527 552 *) +END Bojenje. diff --git a/08. Trazenje puta/Prezentacija.ppt b/08. Trazenje puta/Prezentacija.ppt new file mode 100644 index 0000000..2c77cf5 Binary files /dev/null and b/08. Trazenje puta/Prezentacija.ppt differ diff --git a/08. Trazenje puta/TopSpeed/Put.MOD b/08. Trazenje puta/TopSpeed/Put.MOD new file mode 100644 index 0000000..2b93a80 --- /dev/null +++ b/08. Trazenje puta/TopSpeed/Put.MOD @@ -0,0 +1,143 @@ +MODULE Put; + + FROM IO IMPORT + WrLn, WrStr, RdCard, WrCard, OK; + + FROM Storage IMPORT + ALLOCATE; + + CONST + MaxBrGrad = 50; + + TYPE + Lista = POINTER TO Grad; + Grad = RECORD + Info: CARDINAL; + Veza: Lista; + END; + Mreza = ARRAY [1 .. MaxBrGrad] OF Lista; + Posecen = ARRAY [1 .. MaxBrGrad] OF BOOLEAN; + + VAR + m: Mreza; + BrojGr: CARDINAL; + GPoc, GKra: CARDINAL; + + PROCEDURE Ubaci(VAR L: Lista; G: CARDINAL); + VAR + Tek, Novi: Lista; + BEGIN + IF (L = NIL) OR (G < L^.Info) THEN + NEW(Novi); + Novi^.Info:= G; + Novi^.Veza:= L; + L:= Novi; + ELSE + Tek:= L; + WHILE (Tek^.Veza # NIL) AND (Tek^.Veza^.Info < G) DO + Tek:= Tek^.Veza; + END; + IF (Tek^.Veza = NIL) OR (Tek^.Veza^.Info > G) THEN + NEW(Novi); + Novi^.Info:= G; + Novi^.Veza:= Tek^.Veza; + Tek^.Veza:= Novi; + END; + END; + END Ubaci; + + PROCEDURE Povezi(G1, G2: CARDINAL); + BEGIN + Ubaci(m[G1], G2); + Ubaci(m[G2], G1); + END Povezi; + + PROCEDURE Unos(VAR G1, G2: CARDINAL); + VAR + G: CARDINAL; + BEGIN + REPEAT + WrStr('Unesite broj gradova (od 2 do '); + WrCard(MaxBrGrad, 1); + WrStr(') ---- '); + BrojGr:= RdCard(); + WrLn; + UNTIL OK AND (2 <= BrojGr) AND (BrojGr <= MaxBrGrad); + FOR G:= 1 TO BrojGr DO + m[G]:= NIL; + END; + REPEAT + WrStr('Unesite dva grada koji su povezani linijom.'); + REPEAT + WrLn; + WrStr('Unesite red. br. prvog grada (ili 0 za kraj unosa linija) -- '); + G1:= RdCard() + UNTIL OK AND (G1 <= BrojGr); + IF G1 > 0 THEN + REPEAT + WrStr('Unesite red. br. drugog grada ------------------------------ '); + G2:= RdCard(); + UNTIL OK AND (1 <= G2) AND (G2 <= BrojGr) AND (G1 # G2); + Povezi(G1, G2); + END; + WrLn; + UNTIL G1 = 0; + REPEAT + WrLn; + WrLn; + WrStr('Unesite red. br. pocetnog grada -- '); + G1:= RdCard(); + UNTIL OK AND (1 <= G1) AND (G1 <= BrojGr); + REPEAT + WrLn; + WrStr('Unesite red. br ciljnog grada -- '); + G2:= RdCard(); + UNTIL OK AND (1 <= G2) AND (G2 <= BrojGr) AND (G1 # G2); + END Unos; + + PROCEDURE NadjiPut(Od, Do, brojGr : CARDINAL); + VAR + Pos: Posecen; + Reseno: BOOLEAN; + i: CARDINAL; + Resenje: ARRAY [1 .. MaxBrGrad] OF CARDINAL; + + PROCEDURE Pokusaj(Od, Br: CARDINAL; VAR Reseno: BOOLEAN); + VAR + Pok: Lista; + BEGIN + Pos[Od]:= TRUE; + Resenje[Br]:= Od; + IF Od = Do THEN + Reseno:= TRUE; + WrLn; + WrStr('Put koji treba precji je sledeci:'); + WrLn; + FOR i:= 1 TO Br DO + WrCard(Resenje[i], 4); + END; + ELSE + Pok:= m[Od]; + WHILE (Pok # NIL) AND NOT Reseno DO + WHILE (Pok # NIL) AND Pos[Pok^.Info] DO + Pok:= Pok^.Veza; + END; + IF Pok # NIL THEN + Pokusaj(Pok^.Info, Br + 1, Reseno); + END; + END; + END; + END Pokusaj; + + BEGIN + Reseno:= FALSE; + FOR i:= 1 TO BrojGr DO + Pos[i]:= FALSE; + END; + Pokusaj(Od, 1, Reseno); + END NadjiPut; + +BEGIN + Unos(GPoc, GKra); + NadjiPut(GPoc, GKra, BrojGr); +END Put. diff --git a/09. Permutacije/Prezentacija.ppt b/09. Permutacije/Prezentacija.ppt new file mode 100644 index 0000000..7097444 Binary files /dev/null and b/09. Permutacije/Prezentacija.ppt differ diff --git a/09. Permutacije/TopSpeed/PERMP.MOD b/09. Permutacije/TopSpeed/PERMP.MOD new file mode 100644 index 0000000..b72c076 --- /dev/null +++ b/09. Permutacije/TopSpeed/PERMP.MOD @@ -0,0 +1,92 @@ +MODULE PermP; + +FROM IO IMPORT + WrStr, WrLn, WrCard, RdCard, WrChar, RdKey, OK; + +CONST + MaxDim = 50; + +TYPE + Niz = ARRAY [1 .. MaxDim] OF CHAR; + +VAR + A: Niz; + n: CARDINAL; + +PROCEDURE Unos(VAR n: CARDINAL; VAR A: Niz); +VAR + i: CARDINAL; +BEGIN + REPEAT + WrStr('Unesite n (1 <= n <= '); + WrCard(MaxDim, 1); + WrStr(') --- '); + n:= RdCard(); + WrLn; + UNTIL OK AND (1 <= n) AND (n <= MaxDim); + REPEAT + WrLn; + WrStr('Unesite '); + WrCard(n, 1); + WrStr(' slova koja treba permutovati (mogu se i ponavljati):'); + WrLn; + WrLn; + i:= 0; + REPEAT + INC(i); + A[i]:= RdKey(); + WrChar(A[i]) + UNTIL (i = n) OR ((CAP(A[i]) < 'A') AND (CAP(A[i]) > 'Z') + AND (A[i] < '0') AND (A[i] > '9')); + UNTIL NOT ((CAP(A[i]) < 'A') AND (CAP(A[i]) > 'Z') AND + (A[i] < '0') AND (A[i] > '9')); +END Unos; + +PROCEDURE Permutacije(n: CARDINAL; VAR A: Niz); + + PROCEDURE Nadji(k: CARDINAL); + VAR + i, j: CARDINAL; + Temp: CHAR; + BEGIN + IF k = 1 THEN + FOR i:= 1 TO n DO + WrChar(A[i]); + END; + WrLn; + ELSE + Nadji(k - 1); + FOR i:= 1 TO k - 1 DO + IF A[k] # A[i] THEN + (* Zamenimo elemente samo ako su razliciti *) + j:= 1; + WHILE (j < i) AND (A[j] # A[i]) DO + INC(j); + END; + IF j = i THEN + (* A[i] nema duplikata u skupu {a[1], ... , a[i-1] *) + Temp:= A[i]; + A[i]:= A[k]; + A[k]:= Temp; + Nadji(k - 1); + Temp:= A[i]; + A[i]:= A[k]; + A[k]:= Temp; + END; + END; + END; + END; + END Nadji; + +BEGIN + Nadji(n); +END Permutacije; + +BEGIN + Unos(n, A); + WrLn; + WrLn; + WrStr('Permutacije: '); + WrLn; + Permutacije(n, A); +END PermP. diff --git a/10. Obrnuti problem kraljica/Prezentacija.ppt b/10. Obrnuti problem kraljica/Prezentacija.ppt new file mode 100644 index 0000000..e3b4ce5 Binary files /dev/null and b/10. Obrnuti problem kraljica/Prezentacija.ppt differ diff --git a/10. Obrnuti problem kraljica/TopSpeed/QUEENS.MOD b/10. Obrnuti problem kraljica/TopSpeed/QUEENS.MOD new file mode 100644 index 0000000..acae9e4 --- /dev/null +++ b/10. Obrnuti problem kraljica/TopSpeed/QUEENS.MOD @@ -0,0 +1,315 @@ +MODULE Queens; + + FROM IO IMPORT + WrStr, WrLn, WrCard, RdCard, OK; + + FROM SYSTEM IMPORT + TSIZE; + + FROM Storage IMPORT + ALLOCATE, DEALLOCATE; + + IMPORT FIO; + + CONST + MaxDim = 50; + + TYPE + Indeks = [1 .. MaxDim]; + DomenCene = [0 .. MaxDim * MaxDim]; + DomenBrojaKraljica = [1 .. MaxDim * MaxDim]; + + PPolozaj = POINTER TO SPolozaj; + SPolozaj = RECORD + Ko, Vr: Indeks; + Cena: DomenCene; + Veza: PPolozaj; + END; + + PKraljica = POINTER TO SKraljica; + SKraljica = RECORD + Pre, Sled: PKraljica; + Kandidati: PPolozaj; + TekKo, TekVr: Indeks; + END; + + StanjeTip = RECORD + Cena: DomenCene; + PrvaKra, TekKra: PKraljica; + END; + StatusTip = (stZauzeto, stNapadnuto, stSlobodno); + ResenjeTip = RECORD + Cena: DomenCene; + Poz: ARRAY Indeks, Indeks OF StatusTip; + END; + VAR + BrojKol, BrojVrs: Indeks; + BrojKraljica: DomenBrojaKraljica; + + PROCEDURE Unos(); + BEGIN + REPEAT + WrLn; + WrStr('Unesite broj Kolona sahovske table (od 1 do '); + WrCard(MaxDim, 1); + WrStr(') ------- '); + BrojKol:= RdCard(); + UNTIL OK AND (1 <= BrojKol) AND (BrojKol <= MaxDim); + REPEAT + WrLn; + WrStr('Unesite broj Vrsta sahovske table (od 1 do '); + WrCard(MaxDim, 1); + WrStr(') ------- '); + BrojVrs:= RdCard(); + UNTIL OK AND (1 <= BrojVrs) AND (BrojVrs <= MaxDim); + REPEAT + WrLn; + WrStr('Unesite broj kraljica (od 1 do '); + WrCard(BrojKol * BrojVrs, 1); + WrStr(') ------- '); + BrojKraljica:= RdCard(); + UNTIL OK AND (1 <= BrojKraljica) AND (BrojKraljica <= BrojKol * BrojVrs); + END Unos; + + PROCEDURE Postavi(VAR Stanje: StanjeTip); + VAR + Temp: PPolozaj; + BEGIN + WITH Stanje DO + Temp:= TekKra^.Kandidati; + TekKra^.Kandidati:= Temp^.Veza; + TekKra^.TekKo:= Temp^.Ko; + TekKra^.TekVr:= Temp^.Vr; + Cena:= Temp^.Cena; + DISPOSE(Temp); + END; + END Postavi; + + PROCEDURE Inicijalizacija(VAR Stanje: StanjeTip; VAR Br: CARDINAL); + VAR + Tek, Pom: PKraljica; + i: DomenBrojaKraljica; + BEGIN + Br:= 0; + WITH Stanje DO + Cena:= 0; + NEW(PrvaKra); + TekKra:= PrvaKra; + Tek:= PrvaKra; + Tek^.Pre:= NIL; + FOR i:= 2 TO BrojKraljica DO + Pom:= Tek; + NEW(Tek^.Sled); + Tek:= Tek^.Sled; + Tek^.Pre:= Pom; + END; + Tek^.Sled:= NIL; + END; + END Inicijalizacija; + + PROCEDURE Ispitaj(Ko, Vr: Indeks; Granica: PKraljica; VAR Stanje: StanjeTip; VAR Status: StatusTip); + VAR + Tek: PKraljica; + Jos: BOOLEAN; + BEGIN + WITH Stanje DO + Tek:= PrvaKra; + Jos:= Tek # Granica; + Status:= stSlobodno; + WHILE Jos DO + IF (Tek^.TekKo = Ko) AND (Tek^.TekVr = Vr) THEN + Status:= stZauzeto; + Jos:= FALSE; + ELSE + IF (Tek^.TekKo = Ko) OR (Tek^.TekVr = Vr) OR (ABS(Tek^.TekKo - Ko) = ABS(Tek^.TekVr - Vr)) THEN + Status:= stNapadnuto; + END; + IF Tek^.Sled= Granica THEN + Jos:= FALSE; + ELSE + Tek:= Tek^.Sled; + END; + END; + END; + END; + END Ispitaj; + + PROCEDURE Stampa(VAR Resenje: ResenjeTip); + CONST + ImeFajla = "Resenje.txt"; + VAR + Ko, Vr: Indeks; + Izlaz: FIO.File; + BEGIN + IF FIO.Exists(ImeFajla) THEN + Izlaz:= FIO.Append(ImeFajla); + ELSE + Izlaz:= FIO.Create(ImeFajla); + END; + WrLn; + WrStr('-----------------------------------------------------------------'); + WrStr('---------------'); + WrLn; + FIO.WrLn(Izlaz); + WrStr('Kraljice treba staviti na sledeca polja:'); + FIO.WrStr(Izlaz, 'Kraljice treba staviti na sledeca polja:'); + WrLn; + FIO.WrLn(Izlaz); + FOR Vr:= BrojVrs TO 1 BY -1 DO + WrLn; + FIO.WrLn(Izlaz); + FOR Ko:= 1 TO BrojKol DO + CASE Resenje.Poz[Ko, Vr] OF + stZauzeto: WrStr(' Q'); + FIO.WrStr(Izlaz, ' Q'); | + stNapadnuto: WrStr(' x'); + FIO.WrStr(Izlaz, ' x'); + ELSE + WrStr(' .'); + FIO.WrStr(Izlaz, ' .'); + END; + END; + END; + WrLn; + FIO.WrLn(Izlaz); + WrLn; + FIO.WrLn(Izlaz); + WrStr('Broj slobodnih polja je: '); + FIO.WrStr(Izlaz, 'Broj slobodnih polja je: '); + WrCard(BrojKol * BrojVrs - Resenje.Cena, 1); + FIO.WrCard(Izlaz, BrojKol * BrojVrs - Resenje.Cena, 1); + FIO.Close(Izlaz); + END Stampa; + + PROCEDURE Dame(BrojKol, BrojVrs: Indeks; BrojKraljica: DomenBrojaKraljica); + VAR + Stanje: StanjeTip; + Resenje: ResenjeTip; + MinCena: DomenCene; + Br: CARDINAL; + + PROCEDURE NadjiKandidate(VAR Stanje: StanjeTip); + + PROCEDURE NadjiCenu(k, v: Indeks; VAR Cena: DomenCene; VAR Stanje: StanjeTip); + VAR + Ko, Vr: Indeks; + Status: StatusTip; + BEGIN + Cena:= 0; + FOR Ko:= 1 TO BrojKol DO + FOR Vr:= 1 TO BrojVrs DO + IF (Ko # k) AND (Vr # v) AND (ABS(Ko - k) # ABS(Vr - v)) THEN + Ispitaj(Ko, Vr, Stanje.TekKra, Stanje, Status); + IF Status # stSlobodno THEN + INC(Cena); + END; + ELSE + INC(Cena); + END; + END; + END; + END NadjiCenu; + + PROCEDURE Ubaci(VAR Prvi, Novi: PPolozaj); + VAR + Tek: PPolozaj; + BEGIN + IF (Prvi = NIL) OR (Novi^.Cena < Prvi^.Cena) THEN + Novi^.Veza:= Prvi; + Prvi:= Novi; + ELSE + Tek:= Prvi; + WHILE (Tek^.Veza # NIL) AND (Tek^.Veza^.Cena < Novi^.Cena) DO + Tek:= Tek^.Veza; + END; + Novi^.Veza:= Tek^.Veza; + Tek^.Veza:= Novi; + END; + END Ubaci; + + VAR + k, v: Indeks; + Temp, Prvi: PPolozaj; + NovaCena: DomenCene; + Status: StatusTip; + PocKol, PocVrs: CARDINAL; + + BEGIN + Prvi:= NIL; + IF Stanje.TekKra = Stanje.PrvaKra THEN + PocKol:= 1; + ELSE + PocKol:= Stanje.TekKra^.Pre^.TekKo; + END; + FOR k:= PocKol TO BrojKol DO + IF (k = PocKol) AND (Stanje.TekKra # Stanje.PrvaKra) THEN + PocVrs:= Stanje.TekKra^.Pre^.TekVr + 1; + ELSE + PocVrs:= 1; + END; + FOR v:= PocVrs TO BrojVrs DO + NadjiCenu(k, v, NovaCena, Stanje); + IF NovaCena < MinCena THEN + NEW(Temp); + WITH Temp^ DO + Veza:= NIL; + Ko:= k; + Vr:= v; + Cena:= NovaCena; + END; + Ubaci(Prvi, Temp); + END; + END; + END; + Stanje.TekKra^.Kandidati:= Prvi; + END NadjiKandidate; + + PROCEDURE ZapamtiResenje(VAR Stanje: StanjeTip; VAR Resenje: ResenjeTip); + VAR + Ko, Vr: Indeks; + Status: StatusTip; + BEGIN + Resenje.Cena:= Stanje.Cena; + FOR Ko:= 1 TO BrojKol DO + FOR Vr:= 1 TO BrojVrs DO + Ispitaj(Ko, Vr, NIL, Stanje, Status); + Resenje.Poz[Ko, Vr]:= Status; + END; + END; + END ZapamtiResenje; + + BEGIN + Inicijalizacija(Stanje, Br); + MinCena:= BrojKol * BrojVrs + 1; + NadjiKandidate(Stanje); + WITH Stanje DO + WHILE TekKra # NIL DO + WHILE TekKra^.Kandidati # NIL DO + IF TekKra = PrvaKra THEN + INC(Br); + WrCard(Br, 4); + END; + Postavi(Stanje); + IF TekKra^.Sled = NIL THEN + IF Cena < MinCena THEN + MinCena:= Cena; + ZapamtiResenje(Stanje, Resenje); + END; + ELSE + TekKra:= TekKra^.Sled; + NadjiKandidate(Stanje); + END; + END; + TekKra:= TekKra^.Pre; + END; + Stampa(Resenje); + END; + END Dame; + +BEGIN + Unos(); + WrLn; + WrStr('Sacekajte !!!'); + WrLn; + Dame(BrojKol, BrojVrs, BrojKraljica); +END Queens. diff --git a/Cas07/MAXZBIR.MOD b/Cas07/MAXZBIR.MOD deleted file mode 100644 index 85e8209..0000000 --- a/Cas07/MAXZBIR.MOD +++ /dev/null @@ -1,100 +0,0 @@ -MODULE MaxZbir; - - FROM IO IMPORT - WrStr, WrLn, WrCard, WrInt, RdCard, RdInt; - - CONST - Max = 100; - - VAR - A, B: ARRAY [1 .. Max], [1 .. Max] OF INTEGER; - m, n: CARDINAL; - (* B[vr, ko] je vrednost optimalnog resenja od (1, 1) do (vr, ko) *) - - PROCEDURE Unos; - VAR - i, j: CARDINAL; - BEGIN - WrStr('Unesite n: '); - n:= RdCard(); - WrStr('Unesite m: '); - m:= RdCard(); - IF (n < Max) AND (m < Max) THEN - FOR i:= 1 TO m DO - FOR j:= 1 TO n DO - WrStr('A['); - WrCard(i, 1); - WrStr(', '); - WrCard(j, 1); - WrStr('] = '); - A[i, j] := RdInt(); - END; - END; - END; - END Unos; - - PROCEDURE Resi; - VAR - i, j: CARDINAL; - BEGIN - B[1, 1]:= A[1, 1]; - FOR j:= 2 TO n DO - B[1, j]:= A[1, j] + B[1, j-1]; - END; - FOR i:= 2 TO m DO - B[i, 1]:= A[i, 1] + B[i-1, 1]; - END; - FOR i:= 2 TO m DO - FOR j:= 2 TO n DO - IF B[i, j - 1] < B[i - 1, j] THEN - B[i, j]:= A[i, j] + B[i - 1, j]; - ELSE - B[i, j]:= A[i, j] + B[i, j - 1]; - END; - END; - END; - END Resi; - - PROCEDURE Ispis(Vr, Ko: CARDINAL); - VAR - i: CARDINAL; - BEGIN - IF (Vr > 1) AND (Ko > 1) THEN - IF B[Vr - 1, Ko] > B[Vr, Ko - 1] THEN - Ispis(Vr - 1, Ko); - ELSE - Ispis(Vr, Ko - 1); - END; - WrStr('('); - WrCard(Vr, 1); - WrStr(', '); - WrCard(Ko, 1); - WrStr(')'); - ELSIF Vr = 1 THEN - FOR i:= 1 TO Ko DO - WrStr('(1, '); - WrCard(i, 1); - WrStr(')'); - END; - ELSE - FOR i:= 1 TO Vr DO - WrStr('('); - WrCard(i, 1); - WrStr(', 1)'); - END; - END; - END Ispis; - -BEGIN - Unos; - IF (n < Max) AND (m < Max) THEN - Resi; - WrStr('Maksimalni zbir je '); - WrInt(B[m, n], 1); - WrStr(' a postize se ovako:'); - WrLn; - Ispis(m, n) - ELSE - WrStr('Suvise velika matrica.') - END -END MaxZbir. diff --git a/Cas07/Prezentacija.ppt b/Cas07/Prezentacija.ppt deleted file mode 100644 index 3aab8ac..0000000 Binary files a/Cas07/Prezentacija.ppt and /dev/null differ diff --git a/Cas08/BOJENJE.MOD b/Cas08/BOJENJE.MOD deleted file mode 100644 index 6986a33..0000000 --- a/Cas08/BOJENJE.MOD +++ /dev/null @@ -1,128 +0,0 @@ -MODULE Bojenje; - - FROM IO IMPORT - WrStr, WrLn, WrLngCard; - - CONST - MaxBrojZemalja = 30; - DuzinaImena = 18; - - TYPE - RangImena = [1 .. DuzinaImena]; - Zemlja = [1 .. MaxBrojZemalja]; - SkupZ = SET OF Zemlja; - Boja = (Crvena, Plava, Zelena, Zuta); - GraniceTip = ARRAY Zemlja OF SkupZ; - BojeZemalja = ARRAY Boja OF SkupZ; - ImenaZemalja = ARRAY Zemlja, RangImena OF CHAR; - - VAR - Granice: GraniceTip; - Obojeno: BojeZemalja; - Ime: ImenaZemalja; - BrZ: Zemlja; - RBr: LONGCARD; - - PROCEDURE Inicijalizacija; - VAR - i: Boja; - BEGIN - FOR i:= MIN(Boja) TO MAX(Boja) DO - Obojeno[i]:= SkupZ {}; - END; - Ime[ 1]:= 'Maroko'; - Ime[ 2]:= 'Zapadna Sahara'; - Ime[ 3]:= 'Alzir'; - Ime[ 4]:= 'Tunis'; - Ime[ 5]:= 'Mauritanija'; - Ime[ 6]:= 'Mali'; - Ime[ 7]:= 'Niger'; - Ime[ 8]:= 'Libija'; - Ime[ 9]:= 'Senegal'; - Ime[10]:= 'Gvineja'; - Ime[11]:= 'Obala Slonovace'; - Ime[12]:= 'Burkina Faso'; - Ime[13]:= 'Benin'; - Ime[14]:= 'Nigerija'; - Ime[15]:= 'Cad'; - Ime[16]:= 'Sudan'; - Ime[17]:= 'Egipat'; - Ime[18]:= 'Gambija'; - Ime[19]:= 'Gvineja Bisao'; - Ime[20]:= 'Siera Leone'; - Granice[ 1]:= SkupZ {3, 2}; - Granice[ 2]:= SkupZ {1, 3, 5}; - Granice[ 3]:= SkupZ {1, 2, 5, 6, 7, 8, 4}; - Granice[ 4]:= SkupZ {3, 8}; - Granice[ 5]:= SkupZ {2, 3, 6, 9}; - Granice[ 6]:= SkupZ {3, 5, 9, 10, 11, 12, 7}; - Granice[ 7]:= SkupZ {3, 6, 12, 13, 14, 15, 8}; - Granice[ 8]:= SkupZ {4, 3, 7, 15, 16, 17}; - Granice[ 9]:= SkupZ {18, 19, 10, 6, 5}; - Granice[10]:= SkupZ {19, 9, 6, 20, 11}; - Granice[11]:= SkupZ {10, 6, 12}; - Granice[12]:= SkupZ {6, 11, 13, 7}; - Granice[13]:= SkupZ {12, 7, 14}; - Granice[14]:= SkupZ {13, 7, 15}; - Granice[15]:= SkupZ {14, 7, 8, 16}; - Granice[16]:= SkupZ {17, 8, 15}; - Granice[17]:= SkupZ {8, 15, 16}; - Granice[18]:= SkupZ {9}; - Granice[19]:= SkupZ {9, 10}; - Granice[20]:= SkupZ {10}; - RBr:= 0; - BrZ:= 20 - END Inicijalizacija; - - PROCEDURE StampajSkup(VAR S: SkupZ); - VAR - z: Zemlja; - Prvi: BOOLEAN; - BEGIN - Prvi:= TRUE; - FOR z:= 1 TO MaxBrojZemalja DO - IF z IN S THEN - IF Prvi THEN - WrStr(Ime[z]); - Prvi:= FALSE; - ELSE - WrStr(', '); - WrStr(Ime[z]); - END; - END; - END; - END StampajSkup; - - - PROCEDURE Stampa(RBr: LONGCARD; VAR Obojeno: BojeZemalja); - BEGIN - WrLn; WrLn; WrLngCard(RBr, 1); - WrLn; WrStr('Crvena: '); StampajSkup(Obojeno[Crvena]); - WrLn; WrStr('Plava: '); StampajSkup(Obojeno[Plava]); - WrLn; WrStr('Zelena: '); StampajSkup(Obojeno[Zelena]); - WrLn; WrStr('Zuta: '); StampajSkup(Obojeno[Zuta]); - END Stampa; - - PROCEDURE Oboji(z: Zemlja); - VAR - i: Boja; - BEGIN - FOR i:= MIN(Boja) TO MAX(Boja) DO - IF Granice[z] * Obojeno[i] = SkupZ {} THEN - Obojeno[i]:= Obojeno[i] + SkupZ {z}; - IF z = BrZ THEN - INC(RBr); - Stampa(RBr, Obojeno); - ELSE - Oboji(z + 1); - END; - Obojeno[i]:= Obojeno[i] - SkupZ {z}; - END; - END; - END Oboji; - -BEGIN - Inicijalizacija; - Oboji(1); - (* Broj mogucih bojenja je 1 527 552 *) -END Bojenje. diff --git a/Cas08/Prezentacija.ppt b/Cas08/Prezentacija.ppt deleted file mode 100644 index 73a6b8b..0000000 Binary files a/Cas08/Prezentacija.ppt and /dev/null differ diff --git a/Cas09/Prezentacija.ppt b/Cas09/Prezentacija.ppt deleted file mode 100644 index 2c77cf5..0000000 Binary files a/Cas09/Prezentacija.ppt and /dev/null differ diff --git a/Cas09/Put.MOD b/Cas09/Put.MOD deleted file mode 100644 index 2b93a80..0000000 --- a/Cas09/Put.MOD +++ /dev/null @@ -1,143 +0,0 @@ -MODULE Put; - - FROM IO IMPORT - WrLn, WrStr, RdCard, WrCard, OK; - - FROM Storage IMPORT - ALLOCATE; - - CONST - MaxBrGrad = 50; - - TYPE - Lista = POINTER TO Grad; - Grad = RECORD - Info: CARDINAL; - Veza: Lista; - END; - Mreza = ARRAY [1 .. MaxBrGrad] OF Lista; - Posecen = ARRAY [1 .. MaxBrGrad] OF BOOLEAN; - - VAR - m: Mreza; - BrojGr: CARDINAL; - GPoc, GKra: CARDINAL; - - PROCEDURE Ubaci(VAR L: Lista; G: CARDINAL); - VAR - Tek, Novi: Lista; - BEGIN - IF (L = NIL) OR (G < L^.Info) THEN - NEW(Novi); - Novi^.Info:= G; - Novi^.Veza:= L; - L:= Novi; - ELSE - Tek:= L; - WHILE (Tek^.Veza # NIL) AND (Tek^.Veza^.Info < G) DO - Tek:= Tek^.Veza; - END; - IF (Tek^.Veza = NIL) OR (Tek^.Veza^.Info > G) THEN - NEW(Novi); - Novi^.Info:= G; - Novi^.Veza:= Tek^.Veza; - Tek^.Veza:= Novi; - END; - END; - END Ubaci; - - PROCEDURE Povezi(G1, G2: CARDINAL); - BEGIN - Ubaci(m[G1], G2); - Ubaci(m[G2], G1); - END Povezi; - - PROCEDURE Unos(VAR G1, G2: CARDINAL); - VAR - G: CARDINAL; - BEGIN - REPEAT - WrStr('Unesite broj gradova (od 2 do '); - WrCard(MaxBrGrad, 1); - WrStr(') ---- '); - BrojGr:= RdCard(); - WrLn; - UNTIL OK AND (2 <= BrojGr) AND (BrojGr <= MaxBrGrad); - FOR G:= 1 TO BrojGr DO - m[G]:= NIL; - END; - REPEAT - WrStr('Unesite dva grada koji su povezani linijom.'); - REPEAT - WrLn; - WrStr('Unesite red. br. prvog grada (ili 0 za kraj unosa linija) -- '); - G1:= RdCard() - UNTIL OK AND (G1 <= BrojGr); - IF G1 > 0 THEN - REPEAT - WrStr('Unesite red. br. drugog grada ------------------------------ '); - G2:= RdCard(); - UNTIL OK AND (1 <= G2) AND (G2 <= BrojGr) AND (G1 # G2); - Povezi(G1, G2); - END; - WrLn; - UNTIL G1 = 0; - REPEAT - WrLn; - WrLn; - WrStr('Unesite red. br. pocetnog grada -- '); - G1:= RdCard(); - UNTIL OK AND (1 <= G1) AND (G1 <= BrojGr); - REPEAT - WrLn; - WrStr('Unesite red. br ciljnog grada -- '); - G2:= RdCard(); - UNTIL OK AND (1 <= G2) AND (G2 <= BrojGr) AND (G1 # G2); - END Unos; - - PROCEDURE NadjiPut(Od, Do, brojGr : CARDINAL); - VAR - Pos: Posecen; - Reseno: BOOLEAN; - i: CARDINAL; - Resenje: ARRAY [1 .. MaxBrGrad] OF CARDINAL; - - PROCEDURE Pokusaj(Od, Br: CARDINAL; VAR Reseno: BOOLEAN); - VAR - Pok: Lista; - BEGIN - Pos[Od]:= TRUE; - Resenje[Br]:= Od; - IF Od = Do THEN - Reseno:= TRUE; - WrLn; - WrStr('Put koji treba precji je sledeci:'); - WrLn; - FOR i:= 1 TO Br DO - WrCard(Resenje[i], 4); - END; - ELSE - Pok:= m[Od]; - WHILE (Pok # NIL) AND NOT Reseno DO - WHILE (Pok # NIL) AND Pos[Pok^.Info] DO - Pok:= Pok^.Veza; - END; - IF Pok # NIL THEN - Pokusaj(Pok^.Info, Br + 1, Reseno); - END; - END; - END; - END Pokusaj; - - BEGIN - Reseno:= FALSE; - FOR i:= 1 TO BrojGr DO - Pos[i]:= FALSE; - END; - Pokusaj(Od, 1, Reseno); - END NadjiPut; - -BEGIN - Unos(GPoc, GKra); - NadjiPut(GPoc, GKra, BrojGr); -END Put. diff --git a/Cas10/PERMP.MOD b/Cas10/PERMP.MOD deleted file mode 100644 index b72c076..0000000 --- a/Cas10/PERMP.MOD +++ /dev/null @@ -1,92 +0,0 @@ -MODULE PermP; - -FROM IO IMPORT - WrStr, WrLn, WrCard, RdCard, WrChar, RdKey, OK; - -CONST - MaxDim = 50; - -TYPE - Niz = ARRAY [1 .. MaxDim] OF CHAR; - -VAR - A: Niz; - n: CARDINAL; - -PROCEDURE Unos(VAR n: CARDINAL; VAR A: Niz); -VAR - i: CARDINAL; -BEGIN - REPEAT - WrStr('Unesite n (1 <= n <= '); - WrCard(MaxDim, 1); - WrStr(') --- '); - n:= RdCard(); - WrLn; - UNTIL OK AND (1 <= n) AND (n <= MaxDim); - REPEAT - WrLn; - WrStr('Unesite '); - WrCard(n, 1); - WrStr(' slova koja treba permutovati (mogu se i ponavljati):'); - WrLn; - WrLn; - i:= 0; - REPEAT - INC(i); - A[i]:= RdKey(); - WrChar(A[i]) - UNTIL (i = n) OR ((CAP(A[i]) < 'A') AND (CAP(A[i]) > 'Z') - AND (A[i] < '0') AND (A[i] > '9')); - UNTIL NOT ((CAP(A[i]) < 'A') AND (CAP(A[i]) > 'Z') AND - (A[i] < '0') AND (A[i] > '9')); -END Unos; - -PROCEDURE Permutacije(n: CARDINAL; VAR A: Niz); - - PROCEDURE Nadji(k: CARDINAL); - VAR - i, j: CARDINAL; - Temp: CHAR; - BEGIN - IF k = 1 THEN - FOR i:= 1 TO n DO - WrChar(A[i]); - END; - WrLn; - ELSE - Nadji(k - 1); - FOR i:= 1 TO k - 1 DO - IF A[k] # A[i] THEN - (* Zamenimo elemente samo ako su razliciti *) - j:= 1; - WHILE (j < i) AND (A[j] # A[i]) DO - INC(j); - END; - IF j = i THEN - (* A[i] nema duplikata u skupu {a[1], ... , a[i-1] *) - Temp:= A[i]; - A[i]:= A[k]; - A[k]:= Temp; - Nadji(k - 1); - Temp:= A[i]; - A[i]:= A[k]; - A[k]:= Temp; - END; - END; - END; - END; - END Nadji; - -BEGIN - Nadji(n); -END Permutacije; - -BEGIN - Unos(n, A); - WrLn; - WrLn; - WrStr('Permutacije: '); - WrLn; - Permutacije(n, A); -END PermP. diff --git a/Cas10/Prezentacija.ppt b/Cas10/Prezentacija.ppt deleted file mode 100644 index 7097444..0000000 Binary files a/Cas10/Prezentacija.ppt and /dev/null differ diff --git a/Cas11/Prezentacija.ppt b/Cas11/Prezentacija.ppt deleted file mode 100644 index e3b4ce5..0000000 Binary files a/Cas11/Prezentacija.ppt and /dev/null differ diff --git a/Cas11/QUEENS.MOD b/Cas11/QUEENS.MOD deleted file mode 100644 index acae9e4..0000000 --- a/Cas11/QUEENS.MOD +++ /dev/null @@ -1,315 +0,0 @@ -MODULE Queens; - - FROM IO IMPORT - WrStr, WrLn, WrCard, RdCard, OK; - - FROM SYSTEM IMPORT - TSIZE; - - FROM Storage IMPORT - ALLOCATE, DEALLOCATE; - - IMPORT FIO; - - CONST - MaxDim = 50; - - TYPE - Indeks = [1 .. MaxDim]; - DomenCene = [0 .. MaxDim * MaxDim]; - DomenBrojaKraljica = [1 .. MaxDim * MaxDim]; - - PPolozaj = POINTER TO SPolozaj; - SPolozaj = RECORD - Ko, Vr: Indeks; - Cena: DomenCene; - Veza: PPolozaj; - END; - - PKraljica = POINTER TO SKraljica; - SKraljica = RECORD - Pre, Sled: PKraljica; - Kandidati: PPolozaj; - TekKo, TekVr: Indeks; - END; - - StanjeTip = RECORD - Cena: DomenCene; - PrvaKra, TekKra: PKraljica; - END; - StatusTip = (stZauzeto, stNapadnuto, stSlobodno); - ResenjeTip = RECORD - Cena: DomenCene; - Poz: ARRAY Indeks, Indeks OF StatusTip; - END; - VAR - BrojKol, BrojVrs: Indeks; - BrojKraljica: DomenBrojaKraljica; - - PROCEDURE Unos(); - BEGIN - REPEAT - WrLn; - WrStr('Unesite broj Kolona sahovske table (od 1 do '); - WrCard(MaxDim, 1); - WrStr(') ------- '); - BrojKol:= RdCard(); - UNTIL OK AND (1 <= BrojKol) AND (BrojKol <= MaxDim); - REPEAT - WrLn; - WrStr('Unesite broj Vrsta sahovske table (od 1 do '); - WrCard(MaxDim, 1); - WrStr(') ------- '); - BrojVrs:= RdCard(); - UNTIL OK AND (1 <= BrojVrs) AND (BrojVrs <= MaxDim); - REPEAT - WrLn; - WrStr('Unesite broj kraljica (od 1 do '); - WrCard(BrojKol * BrojVrs, 1); - WrStr(') ------- '); - BrojKraljica:= RdCard(); - UNTIL OK AND (1 <= BrojKraljica) AND (BrojKraljica <= BrojKol * BrojVrs); - END Unos; - - PROCEDURE Postavi(VAR Stanje: StanjeTip); - VAR - Temp: PPolozaj; - BEGIN - WITH Stanje DO - Temp:= TekKra^.Kandidati; - TekKra^.Kandidati:= Temp^.Veza; - TekKra^.TekKo:= Temp^.Ko; - TekKra^.TekVr:= Temp^.Vr; - Cena:= Temp^.Cena; - DISPOSE(Temp); - END; - END Postavi; - - PROCEDURE Inicijalizacija(VAR Stanje: StanjeTip; VAR Br: CARDINAL); - VAR - Tek, Pom: PKraljica; - i: DomenBrojaKraljica; - BEGIN - Br:= 0; - WITH Stanje DO - Cena:= 0; - NEW(PrvaKra); - TekKra:= PrvaKra; - Tek:= PrvaKra; - Tek^.Pre:= NIL; - FOR i:= 2 TO BrojKraljica DO - Pom:= Tek; - NEW(Tek^.Sled); - Tek:= Tek^.Sled; - Tek^.Pre:= Pom; - END; - Tek^.Sled:= NIL; - END; - END Inicijalizacija; - - PROCEDURE Ispitaj(Ko, Vr: Indeks; Granica: PKraljica; VAR Stanje: StanjeTip; VAR Status: StatusTip); - VAR - Tek: PKraljica; - Jos: BOOLEAN; - BEGIN - WITH Stanje DO - Tek:= PrvaKra; - Jos:= Tek # Granica; - Status:= stSlobodno; - WHILE Jos DO - IF (Tek^.TekKo = Ko) AND (Tek^.TekVr = Vr) THEN - Status:= stZauzeto; - Jos:= FALSE; - ELSE - IF (Tek^.TekKo = Ko) OR (Tek^.TekVr = Vr) OR (ABS(Tek^.TekKo - Ko) = ABS(Tek^.TekVr - Vr)) THEN - Status:= stNapadnuto; - END; - IF Tek^.Sled= Granica THEN - Jos:= FALSE; - ELSE - Tek:= Tek^.Sled; - END; - END; - END; - END; - END Ispitaj; - - PROCEDURE Stampa(VAR Resenje: ResenjeTip); - CONST - ImeFajla = "Resenje.txt"; - VAR - Ko, Vr: Indeks; - Izlaz: FIO.File; - BEGIN - IF FIO.Exists(ImeFajla) THEN - Izlaz:= FIO.Append(ImeFajla); - ELSE - Izlaz:= FIO.Create(ImeFajla); - END; - WrLn; - WrStr('-----------------------------------------------------------------'); - WrStr('---------------'); - WrLn; - FIO.WrLn(Izlaz); - WrStr('Kraljice treba staviti na sledeca polja:'); - FIO.WrStr(Izlaz, 'Kraljice treba staviti na sledeca polja:'); - WrLn; - FIO.WrLn(Izlaz); - FOR Vr:= BrojVrs TO 1 BY -1 DO - WrLn; - FIO.WrLn(Izlaz); - FOR Ko:= 1 TO BrojKol DO - CASE Resenje.Poz[Ko, Vr] OF - stZauzeto: WrStr(' Q'); - FIO.WrStr(Izlaz, ' Q'); | - stNapadnuto: WrStr(' x'); - FIO.WrStr(Izlaz, ' x'); - ELSE - WrStr(' .'); - FIO.WrStr(Izlaz, ' .'); - END; - END; - END; - WrLn; - FIO.WrLn(Izlaz); - WrLn; - FIO.WrLn(Izlaz); - WrStr('Broj slobodnih polja je: '); - FIO.WrStr(Izlaz, 'Broj slobodnih polja je: '); - WrCard(BrojKol * BrojVrs - Resenje.Cena, 1); - FIO.WrCard(Izlaz, BrojKol * BrojVrs - Resenje.Cena, 1); - FIO.Close(Izlaz); - END Stampa; - - PROCEDURE Dame(BrojKol, BrojVrs: Indeks; BrojKraljica: DomenBrojaKraljica); - VAR - Stanje: StanjeTip; - Resenje: ResenjeTip; - MinCena: DomenCene; - Br: CARDINAL; - - PROCEDURE NadjiKandidate(VAR Stanje: StanjeTip); - - PROCEDURE NadjiCenu(k, v: Indeks; VAR Cena: DomenCene; VAR Stanje: StanjeTip); - VAR - Ko, Vr: Indeks; - Status: StatusTip; - BEGIN - Cena:= 0; - FOR Ko:= 1 TO BrojKol DO - FOR Vr:= 1 TO BrojVrs DO - IF (Ko # k) AND (Vr # v) AND (ABS(Ko - k) # ABS(Vr - v)) THEN - Ispitaj(Ko, Vr, Stanje.TekKra, Stanje, Status); - IF Status # stSlobodno THEN - INC(Cena); - END; - ELSE - INC(Cena); - END; - END; - END; - END NadjiCenu; - - PROCEDURE Ubaci(VAR Prvi, Novi: PPolozaj); - VAR - Tek: PPolozaj; - BEGIN - IF (Prvi = NIL) OR (Novi^.Cena < Prvi^.Cena) THEN - Novi^.Veza:= Prvi; - Prvi:= Novi; - ELSE - Tek:= Prvi; - WHILE (Tek^.Veza # NIL) AND (Tek^.Veza^.Cena < Novi^.Cena) DO - Tek:= Tek^.Veza; - END; - Novi^.Veza:= Tek^.Veza; - Tek^.Veza:= Novi; - END; - END Ubaci; - - VAR - k, v: Indeks; - Temp, Prvi: PPolozaj; - NovaCena: DomenCene; - Status: StatusTip; - PocKol, PocVrs: CARDINAL; - - BEGIN - Prvi:= NIL; - IF Stanje.TekKra = Stanje.PrvaKra THEN - PocKol:= 1; - ELSE - PocKol:= Stanje.TekKra^.Pre^.TekKo; - END; - FOR k:= PocKol TO BrojKol DO - IF (k = PocKol) AND (Stanje.TekKra # Stanje.PrvaKra) THEN - PocVrs:= Stanje.TekKra^.Pre^.TekVr + 1; - ELSE - PocVrs:= 1; - END; - FOR v:= PocVrs TO BrojVrs DO - NadjiCenu(k, v, NovaCena, Stanje); - IF NovaCena < MinCena THEN - NEW(Temp); - WITH Temp^ DO - Veza:= NIL; - Ko:= k; - Vr:= v; - Cena:= NovaCena; - END; - Ubaci(Prvi, Temp); - END; - END; - END; - Stanje.TekKra^.Kandidati:= Prvi; - END NadjiKandidate; - - PROCEDURE ZapamtiResenje(VAR Stanje: StanjeTip; VAR Resenje: ResenjeTip); - VAR - Ko, Vr: Indeks; - Status: StatusTip; - BEGIN - Resenje.Cena:= Stanje.Cena; - FOR Ko:= 1 TO BrojKol DO - FOR Vr:= 1 TO BrojVrs DO - Ispitaj(Ko, Vr, NIL, Stanje, Status); - Resenje.Poz[Ko, Vr]:= Status; - END; - END; - END ZapamtiResenje; - - BEGIN - Inicijalizacija(Stanje, Br); - MinCena:= BrojKol * BrojVrs + 1; - NadjiKandidate(Stanje); - WITH Stanje DO - WHILE TekKra # NIL DO - WHILE TekKra^.Kandidati # NIL DO - IF TekKra = PrvaKra THEN - INC(Br); - WrCard(Br, 4); - END; - Postavi(Stanje); - IF TekKra^.Sled = NIL THEN - IF Cena < MinCena THEN - MinCena:= Cena; - ZapamtiResenje(Stanje, Resenje); - END; - ELSE - TekKra:= TekKra^.Sled; - NadjiKandidate(Stanje); - END; - END; - TekKra:= TekKra^.Pre; - END; - Stampa(Resenje); - END; - END Dame; - -BEGIN - Unos(); - WrLn; - WrStr('Sacekajte !!!'); - WrLn; - Dame(BrojKol, BrojVrs, BrojKraljica); -END Queens. diff --git a/Cas11/RESENJE.TXT b/Cas11/RESENJE.TXT deleted file mode 100644 index 3b1c517..0000000 --- a/Cas11/RESENJE.TXT +++ /dev/null @@ -1,8 +0,0 @@ - -Kraljice treba staviti na sledeca polja: - - Q Q x - x Q x - x x . - -Broj slobodnih polja je: 1 \ No newline at end of file diff --git a/Spisak.ppt b/Spisak.ppt new file mode 100644 index 0000000..f03c9af Binary files /dev/null and b/Spisak.ppt differ