gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under
the git version control system
4 String
, Recnik
, Inicijalizuj
, Ubaci
, Izbaci
, Sadrzaj
, Prevedi
, Unisti
;
6 WrLn
, WrStr
, RdStr
, WrCard
, RdChar
, WrChar
, RdInt
;
14 Ok
, Duplikat
, Domaca
, StrNaDom
: BOOLEAN;
16 PROCEDURE Clr(r
: CARDINAL);
30 PROCEDURE Meni(VAR Izbor
: CHAR);
40 WrStr(' P --- prevod reci'); WrLn
;
41 WrStr(' B --- broj reci u recniku'); WrLn
;
42 WrStr(' U --- ubacivanje nove reci i njenog prevoda u recnik'); WrLn
;
43 WrStr(' I --- izbacivanje reci i njenog prevoda iz recnika'); WrLn
;
44 WrStr(' S --- sekvencijalni prikaz recnika'); WrLn
;
45 WrStr(' Q --- kraj rada');
48 Izbor
:= CAP(RdChar());
49 UNTIL Izbor
IN Slova
{'P', 'B', 'U', 'I', 'S', 'Q'};
58 WrStr('Enter za nastavak');WrLn
;
59 (* visak RdChar-ova zbog Entera i sl *)
71 WrStr('1) prevod strane reci'); WrLn
;
72 WrStr('2) prevod domace reci'); WrLn
;
74 WrStr("Unesite '1' ili '2' --- ");
77 UNTIL (Izb
= 1) OR (Izb
= 2);
80 WrStr('Unesite stranu rec ---- ');
82 Prevedi(StrNaDom
, Rec
, Prevod
, R
, Ok
);
84 WrStr('Prevod ---------------- ');
87 WrStr('Zadata rec se ne nalazi u recniku.');
90 WrStr('Unesite domacu rec ---- ');
92 Prevedi(StrNaDom
, Rec
, Prevod
, R
, Ok
);
94 WrStr('Prevod ---------------- ');
97 WrStr('Zadata rec se ne nalazi u recniku.');
101 'B': WrStr('Recnik raspolaze fondom od ');
102 WrCard(R.BrojReci
, 1);
105 'U': WrStr('Unesite novu domacu rec ----- ');
107 WrStr('Unesite njen prevod -------- ');
109 Ubaci(Rec
, Prevod
, R
, Duplikat
);
111 WrStr('U recniku se vec nalazi data rec.');
116 'I': WrStr('Unesite rec --- ');
119 WrStr('uneta rec je'); WrLn
;
120 WrStr('1) strana'); WrLn
;
121 WrStr('2) domaca'); WrLn
;
123 WrStr("Unesite '1' ili '2' --- ");
126 UNTIL (Izb
= 1) OR (Izb
= 2);
128 Izbaci(Rec
, R
, Domaca
, Ok
);
132 WrStr('Rec se nije ni nalazila u recniku.')
Svarog.pmf.uns.ac.rs/gitweb
maintanance
Doni Pracner