kodovi/stek-redopsl/stekred.mod

   1 MODULE stekred;
   2 (* prvo importujemo cele module, da bi mogli da koristimo istoimene
   3   procedure (kao MakeNull) iz oba modula *)
   4 IMPORT RedOpsl;
   5 IMPORT Stek;
   6 (* nakon toga importujemo i sve raznoimene delove, da ne bi morali
   7    da kucamo puna imena modula svaki put i kad ne moramo *)
   8 FROM Stek IMPORT StekTip, Top, Pop, Push;
   9 FROM RedOpsl IMPORT RedOpslTip, First, PopFirst, AddRear;
  10 FROM InOut IMPORT ReadString,WriteString,Write,WriteLn;
  11 FROM Strings IMPORT Length;
  12
  13 VAR
  14   str : ARRAY[1..256] OF CHAR;
  15   q :RedOpslTip;
  16   s :StekTip;
  17   i : CARDINAL;
  18   ok,palin : BOOLEAN;
  19   c,c1 : CHAR;
  20 BEGIN
  21    WriteString("unesite string: ");
  22    ReadString(str);
  23
  24    (* inicijalizujemo strukture *)
  25    Stek.MakeNull(s);
  26    RedOpsl.MakeNull(q);
  27    (* ubacujemo elemente u stek *)
  28    FOR i:=1 TO Length(str) DO
  29         Push(s, str[i], ok);
  30    END;
  31    (* ubacujemo elemente u red opsl *)
  32    FOR i:=1 TO Length(str) DO
  33         AddRear(q, str[i], ok);
  34    END;
  35    WriteLn;
  36    WriteString("sadrzaj steka");
  37    WriteLn;
  38    WHILE NOT Stek.Empty(s) DO
  39         Top(s,c,ok);
  40         Pop(s,ok);
  41         Write(c);
  42    END;
  43    WriteLn;
  44    WriteString("sadrzaj reda opsl.");
  45    WriteLn;
  46    WHILE NOT RedOpsl.Empty(q) DO
  47         First(q,c,ok);
  48         PopFirst(q,ok);
  49         Write(c);
  50    END;
  51    WriteLn;
  52 END stekred.