dodati Stek i RedOpsl kodovi u repo (ne i skriptu)

[spa1skripta-public.git] / kodovi / stek-redopsl / stekred.mod

diff --git a/kodovi/stek-redopsl/stekred.mod b/kodovi/stek-redopsl/stekred.mod
new file mode 100755 (executable)
index 0000000..ba3a3ac
--- /dev/null
+++ b/kodovi/stek-redopsl/stekred.mod
@@ -0,0 +1,52 @@
+MODULE stekred;\r
+(* prvo importujemo cele module, da bi mogli da koristimo istoimene\r
+  procedure (kao MakeNull) iz oba modula *)\r
+IMPORT RedOpsl;\r
+IMPORT Stek;\r
+(* nakon toga importujemo i sve raznoimene delove, da ne bi morali\r
+   da kucamo puna imena modula svaki put i kad ne moramo *)\r
+FROM Stek IMPORT StekTip, Top, Pop, Push;\r
+FROM RedOpsl IMPORT RedOpslTip, First, PopFirst, AddRear;\r
+FROM InOut IMPORT ReadString,WriteString,Write,WriteLn;\r
+FROM Strings IMPORT Length;\r
+\r
+VAR\r
+  str : ARRAY[1..256] OF CHAR;\r
+  q :RedOpslTip;\r
+  s :StekTip;\r
+  i : CARDINAL;\r
+  ok,palin : BOOLEAN;\r
+  c,c1 : CHAR;\r
+BEGIN\r
+   WriteString("unesite string: ");\r
+   ReadString(str);\r
+\r
+   (* inicijalizujemo strukture *)\r
+   Stek.MakeNull(s);\r
+   RedOpsl.MakeNull(q);\r
+   (* ubacujemo elemente u stek *)\r
+   FOR i:=1 TO Length(str) DO\r
+        Push(s, str[i], ok);\r
+   END;\r
+   (* ubacujemo elemente u red opsl *)\r
+   FOR i:=1 TO Length(str) DO\r
+        Push(s, str[i], ok);\r
+   END;\r
+   WriteLn;\r
+   WriteString("sadrzaj steka");\r
+   WriteLn;\r
+   WHILE NOT Stek.Empty(s) DO\r
+       Top(s,c,ok);\r
+       Pop(s,ok);\r
+       Write(c);\r
+   END;\r
+   WriteLn;\r
+   WriteString("sadrzaj reda opsl.");\r
+   WriteLn;\r
+   WHILE NOT RedOpsl.Empty(q) DO\r
+       First(q,c,ok);\r
+       PopFirst(q,ok);\r
+       Write(c);\r
+   END;\r
+   WriteLn;\r
+END stekred.
\ No newline at end of file