From: Doni Pracner <quinnuendo@gmail.com>
Date: Wed, 6 Nov 2013 12:25:08 +0000 (+0100)
Subject: 06. doterivanje tipova i par sitnica za XDS
X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=spa2-teorijske-vezbe.git;a=commitdiff_plain;h=a35f3e51789ace81cea01e548963568da918635f

06. doterivanje tipova i par sitnica za XDS
---

diff --git a/05. NizDin/kod/NIZDIN.MOD b/05. NizDin/kod/NIZDIN.MOD
index 6156e77..0e63683 100644
--- a/05. NizDin/kod/NIZDIN.MOD	
+++ b/05. NizDin/kod/NIZDIN.MOD	
@@ -14,7 +14,7 @@ MODULE NizDin;
 
   PROCEDURE Unos;
     VAR
-      i: CARDINAL;
+      i: INTEGER;
   BEGIN
     WrStr('Unesite N: ');
     n:= RdInt();
@@ -28,7 +28,7 @@ MODULE NizDin;
   
   PROCEDURE Resi;
     VAR
-      i, j, Pom: CARDINAL;
+      i: INTEGER;
   BEGIN
     b[0]:= 0;
     IF a[1] > 0 THEN
@@ -45,7 +45,7 @@ MODULE NizDin;
     END;
   END Resi;
 
-  PROCEDURE Ispis(n: CARDINAL);
+  PROCEDURE Ispis(n: INTEGER);
   BEGIN
     IF n > 0 THEN
       IF b[n] = b[n - 1] THEN