Cas01/RECNIKTE.MOD

   1 MODULE RecnikTest;
   2
   3   FROM RecnikATP IMPORT
   4     String, Recnik, Inicijalizuj, Ubaci, Izbaci, Sadrzaj, Prevedi, Unisti;
   5   FROM IO IMPORT
   6     WrLn, WrStr, RdStr, WrCard, RdKey, WrChar;
   7   FROM Window IMPORT
   8     Clear;
   9
  10   VAR
  11     R: Recnik;
  12     Rec, Prevod: String;
  13     Izbor, Izb: CHAR;
  14     Ok, Duplikat, Domaca, StrNaDom: BOOLEAN;
  15
  16   PROCEDURE Meni(VAR Izbor: CHAR);
  17     TYPE
  18       Slova = SET OF CHAR;
  19     VAR
  20       i: CARDINAL;
  21   BEGIN
  22     Clear;
  23     FOR i:= 1 TO 8 DO
  24       WrLn;
  25     END;
  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');
  32     REPEAT
  33       Izbor:= CAP(RdKey());
  34     UNTIL Izbor IN Slova {'P', 'B', 'U', 'I', 'S', 'Q'};
  35     Clear;
  36   END Meni;
  37
  38   PROCEDURE Pauza;
  39     VAR
  40       Ch: CHAR;
  41   BEGIN
  42     Ch:= RdKey();
  43   END Pauza;
  44
  45 BEGIN
  46   Inicijalizuj(R);
  47   REPEAT
  48     Meni(Izbor);
  49     CASE Izbor OF
  50       'P': REPEAT
  51              WrStr('1) prevod strane reci'); WrLn;
  52              WrStr('2) prevod domace reci'); WrLn;
  53              WrLn;
  54              WrStr("Unesite '1' ili '2' --- ");
  55              Izb:= RdKey();
  56              WrChar(Izb); WrLn;
  57            UNTIL (Izb = '1') OR (Izb = '2');
  58            StrNaDom:= Izb = '1';
  59            IF StrNaDom THEN
  60              WrStr('Unesite stranu rec ---- ');
  61              RdStr(Rec);
  62              Prevedi(StrNaDom, Rec, Prevod, R, Ok);
  63              IF Ok THEN
  64                WrStr('Prevod ---------------- ');
  65                WrStr(Prevod);
  66              ELSE
  67                WrStr('Zadata rec se ne nalazi u recniku.');
  68              END;
  69            ELSE
  70              WrStr('Unesite domacu rec ---- ');
  71              RdStr(Rec);
  72              Prevedi(StrNaDom, Rec, Prevod, R, Ok);
  73              IF Ok THEN
  74                WrStr('Prevod ---------------- ');
  75                WrStr(Prevod);
  76              ELSE
  77                WrStr('Zadata rec se ne nalazi u recniku.');
  78              END;
  79            END;
  80            Pauza; |
  81       'B': WrStr('Recnik raspolaze fondom od ');
  82            WrCard(R.BrojReci, 1);
  83            WrStr(' reci.');
  84            Pauza; |
  85       'U': WrStr('Unesite novu domacu rec ----- ');
  86            RdStr(Rec);
  87            WrStr('Unesite njen prevod  -------- ');
  88            RdStr(Prevod);
  89            Ubaci(Rec, Prevod, R, Duplikat);
  90            IF Duplikat THEN
  91              WrStr('U recniku se vec nalazi data rec.');
  92            ELSE
  93              WrStr('Upisano.');
  94            END;
  95            Pauza; |
  96       'I': WrStr('Unesite rec --- ');
  97            RdStr(Rec);
  98            REPEAT
  99              WrStr('Da li je uneta rec domaca ili strana? (d/s)  ');
 100              Izb:= RdKey();
 101              WrLn;
 102            UNTIL (CAP(Izb) = 'D') OR (CAP(Izb) = 'S');
 103            Domaca:= CAP(Izb) = 'D';
 104            Izbaci(Rec, R, Domaca, Ok);
 105            IF Ok THEN
 106              WrStr('Izbrisano.')
 107            ELSE
 108              WrStr('Rec se nije ni nalazila u recniku.')
 109            END;
 110            Pauza; |
 111       'S': Sadrzaj(R);
 112            Pauza;
 113     END;
 114   UNTIL Izbor = 'Q';
 115   Unisti(R);
 116 END RecnikTest.