Stek - primer provere ispravnosti parova zagrada

[spa1-materijali.git] / kodovi / stek-i-red-opsluzivanja / tekst4.txt

diff --git a/kodovi/stek-i-red-opsluzivanja/tekst4.txt b/kodovi/stek-i-red-opsluzivanja/tekst4.txt
new file mode 100644 (file)
index 0000000..2dbb04e
--- /dev/null
+++ b/kodovi/stek-i-red-opsluzivanja/tekst4.txt
@@ -0,0 +1,25 @@
+MODULE test1;\r
+FROM InOut IMPORT WriteLn, WriteInt;\r
+(* prost program za sumiranje niza *)\r
+TYPE\r
+       array = ARRAY[1..4] OF INTEGER;\r
+(* koristicemo konstantan niz.\r
+   to se moze uraditi koriscenjem viticastih zagrada {}\r
+*)\r
+\r
+CONST\r
+       arr = array{1,2,3,4;\r
+       len = 4;\r
+VAR\r
+       i,sum: INTEGER;\r
+\r
+BEGIN\r
+       sum := arr[1];\r
+       i := 2;\r
+       WHILE (i <= len) DO\r
+               sum := sum + arr[i];\r
+               INC(i);\r
+       END;\r
+       WriteInt(sum,1);\r
+       WriteLn;\r
+END test1.
\ No newline at end of file