X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?a=blobdiff_plain;ds=sidebyside;f=kodovi%2Fstek-i-red-opsluzivanja%2Ftekst4.txt;fp=kodovi%2Fstek-i-red-opsluzivanja%2Ftekst4.txt;h=2dbb04e038b972ee09fff5c97e011fefbf24fc08;hb=2c69f2d561452b83cbf75032b086f9d027fe9599;hp=0000000000000000000000000000000000000000;hpb=c6141934049f141ec95faa6c44aac67c0be89f17;p=spa1-materijali.git

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