X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=spa2-teorijske-vezbe.git;a=blobdiff_plain;f=01.%20Dvosmerni%20Recnik%2FXDS%2FRECNIKTEST.MOD;fp=01.%20Dvosmerni%20Recnik%2FXDS%2FRECNIKTEST.MOD;h=0000000000000000000000000000000000000000;hp=e1b97a29c1a651e2b85dd0581b87532cb8b2bdcd;hb=8a74ce20c68b61b8992a348e34c43671116e9549;hpb=a35f3e51789ace81cea01e548963568da918635f 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.