Cas06 - 05. NizDin

diff --git a/05. NizDin/NIZDIN.MOD b/05. NizDin/NIZDIN.MOD
new file mode 100644 (file)
index 0000000..6156e77
--- /dev/null
+++ b/05. NizDin/NIZDIN.MOD
@@ -0,0 +1,65 @@
+MODULE NizDin;\r
+\r
+  FROM IO IMPORT\r
+    WrStr, RdInt, WrInt;\r
+\r
+  CONST\r
+    MaxN = 1000;\r
+\r
+  VAR\r
+    a, b: ARRAY [0 .. MaxN] OF INTEGER;\r
+    (* b[i] je suma elemenata u resenju za *)\r
+    (* deo niza 'a' do 'i'-tog elementa    *)\r
+    n: INTEGER;\r
+\r
+  PROCEDURE Unos;\r
+    VAR\r
+      i: CARDINAL;\r
+  BEGIN\r
+    WrStr('Unesite N: ');\r
+    n:= RdInt();\r
+    FOR i:= 1 TO n DO\r
+      WrStr('A[');\r
+      WrInt(i, 1);\r
+      WrStr('] = ');\r
+      a[i]:= RdInt();\r
+    END;\r
+  END Unos;\r
+  \r
+  PROCEDURE Resi;\r
+    VAR\r
+      i, j, Pom: CARDINAL;\r
+  BEGIN\r
+    b[0]:= 0;\r
+    IF a[1] > 0 THEN\r
+      b[1]:= a[1];\r
+    ELSE\r
+      b[1]:= 0;\r
+    END;\r
+    FOR i:= 2 TO n DO\r
+      IF b[i - 2] + a[i] > b[i - 1] THEN\r
+        b[i]:= b[i - 2] + a[i];\r
+      ELSE\r
+        b[i]:= b[i - 1];\r
+      END\r
+    END;\r
+  END Resi;\r
+\r
+  PROCEDURE Ispis(n: CARDINAL);\r
+  BEGIN\r
+    IF n > 0 THEN\r
+      IF b[n] = b[n - 1] THEN\r
+        Ispis(n - 1);\r
+      ELSE\r
+        Ispis(n - 2);\r
+        WrInt(a[n], 8);\r
+      END;\r
+    END;\r
+  END Ispis;\r
+\r
+BEGIN\r
+  Unos;\r
+  Resi;\r
+  WrStr('Podniz: ');\r
+  Ispis(n);\r
+END NizDin.\r

diff --git a/05. NizDin/Prezentacija.ppt b/05. NizDin/Prezentacija.ppt
new file mode 100644 (file)
index 0000000..c0ab24e
Binary files /dev/null and b/05. NizDin/Prezentacija.ppt differ

diff --git a/Cas06/NIZDIN.MOD b/Cas06/NIZDIN.MOD
deleted file mode 100644 (file)
index 6156e77..0000000
--- a/Cas06/NIZDIN.MOD
+++ /dev/null
@@ -1,65 +0,0 @@
-MODULE NizDin;\r
-\r
-  FROM IO IMPORT\r
-    WrStr, RdInt, WrInt;\r
-\r
-  CONST\r
-    MaxN = 1000;\r
-\r
-  VAR\r
-    a, b: ARRAY [0 .. MaxN] OF INTEGER;\r
-    (* b[i] je suma elemenata u resenju za *)\r
-    (* deo niza 'a' do 'i'-tog elementa    *)\r
-    n: INTEGER;\r
-\r
-  PROCEDURE Unos;\r
-    VAR\r
-      i: CARDINAL;\r
-  BEGIN\r
-    WrStr('Unesite N: ');\r
-    n:= RdInt();\r
-    FOR i:= 1 TO n DO\r
-      WrStr('A[');\r
-      WrInt(i, 1);\r
-      WrStr('] = ');\r
-      a[i]:= RdInt();\r
-    END;\r
-  END Unos;\r
-  \r
-  PROCEDURE Resi;\r
-    VAR\r
-      i, j, Pom: CARDINAL;\r
-  BEGIN\r
-    b[0]:= 0;\r
-    IF a[1] > 0 THEN\r
-      b[1]:= a[1];\r
-    ELSE\r
-      b[1]:= 0;\r
-    END;\r
-    FOR i:= 2 TO n DO\r
-      IF b[i - 2] + a[i] > b[i - 1] THEN\r
-        b[i]:= b[i - 2] + a[i];\r
-      ELSE\r
-        b[i]:= b[i - 1];\r
-      END\r
-    END;\r
-  END Resi;\r
-\r
-  PROCEDURE Ispis(n: CARDINAL);\r
-  BEGIN\r
-    IF n > 0 THEN\r
-      IF b[n] = b[n - 1] THEN\r
-        Ispis(n - 1);\r
-      ELSE\r
-        Ispis(n - 2);\r
-        WrInt(a[n], 8);\r
-      END;\r
-    END;\r
-  END Ispis;\r
-\r
-BEGIN\r
-  Unos;\r
-  Resi;\r
-  WrStr('Podniz: ');\r
-  Ispis(n);\r
-END NizDin.\r

diff --git a/Cas06/Prezentacija.ppt b/Cas06/Prezentacija.ppt
deleted file mode 100644 (file)
index c0ab24e..0000000
Binary files a/Cas06/Prezentacija.ppt and /dev/null differ