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
, RdKey
, WrChar
;
14 Ok
, Duplikat
, Domaca
, StrNaDom
: BOOLEAN;
16 PROCEDURE Meni(VAR Izbor
: CHAR);
26 WrStr(' P --- prevod reci'); WrLn
;
27 WrStr(' B --- broj reci u recniku'); WrLn
;
28 WrStr(' U --- ubacivanje nove reci i njenog prevoda u recnik'); WrLn
;
29 WrStr(' I --- izbacivanje reci i njenog prevoda iz recnika'); WrLn
;
30 WrStr(' S --- sekvencijalni prikaz recnika'); WrLn
;
31 WrStr(' Q --- kraj rada');
34 UNTIL Izbor
IN Slova
{'P', 'B', 'U', 'I', 'S', 'Q'};
51 WrStr('1) prevod strane reci'); WrLn
;
52 WrStr('2) prevod domace reci'); WrLn
;
54 WrStr("Unesite '1' ili '2' --- ");
57 UNTIL (Izb
= '1') OR (Izb
= '2');
60 WrStr('Unesite stranu rec ---- ');
62 Prevedi(StrNaDom
, Rec
, Prevod
, R
, Ok
);
64 WrStr('Prevod ---------------- ');
67 WrStr('Zadata rec se ne nalazi u recniku.');
70 WrStr('Unesite domacu rec ---- ');
72 Prevedi(StrNaDom
, Rec
, Prevod
, R
, Ok
);
74 WrStr('Prevod ---------------- ');
77 WrStr('Zadata rec se ne nalazi u recniku.');
81 'B': WrStr('Recnik raspolaze fondom od ');
82 WrCard(R.BrojReci
, 1);
85 'U': WrStr('Unesite novu domacu rec ----- ');
87 WrStr('Unesite njen prevod -------- ');
89 Ubaci(Rec
, Prevod
, R
, Duplikat
);
91 WrStr('U recniku se vec nalazi data rec.');
96 'I': WrStr('Unesite rec --- ');
99 WrStr('Da li je uneta rec domaca ili strana? (d/s) ');
102 UNTIL (CAP(Izb
) = 'D') OR (CAP(Izb
) = 'S');
103 Domaca
:= CAP(Izb
) = 'D';
104 Izbaci(Rec
, R
, Domaca
, Ok
);
108 WrStr('Rec se nije ni nalazila u recniku.')
Svarog.pmf.uns.ac.rs/gitweb
maintanance
Doni Pracner