Cas06/NIZDIN.MOD

   1 MODULE NizDin;
   2
   3   FROM IO IMPORT
   4     WrStr, RdInt, WrInt;
   5
   6   CONST
   7     MaxN = 1000;
   8
   9   VAR
  10     a, b: ARRAY [0 .. MaxN] OF INTEGER;
  11     (* b[i] je suma elemenata u resenju za *)
  12     (* deo niza 'a' do 'i'-tog elementa    *)
  13     n: INTEGER;
  14
  15   PROCEDURE Unos;
  16     VAR
  17       i: CARDINAL;
  18   BEGIN
  19     WrStr('Unesite N: ');
  20     n:= RdInt();
  21     FOR i:= 1 TO n DO
  22       WrStr('A[');
  23       WrInt(i, 1);
  24       WrStr('] = ');
  25       a[i]:= RdInt();
  26     END;
  27   END Unos;
  28
  29   PROCEDURE Resi;
  30     VAR
  31       i, j, Pom: CARDINAL;
  32   BEGIN
  33     b[0]:= 0;
  34     IF a[1] > 0 THEN
  35       b[1]:= a[1];
  36     ELSE
  37       b[1]:= 0;
  38     END;
  39     FOR i:= 2 TO n DO
  40       IF b[i - 2] + a[i] > b[i - 1] THEN
  41         b[i]:= b[i - 2] + a[i];
  42       ELSE
  43         b[i]:= b[i - 1];
  44       END
  45     END;
  46   END Resi;
  47
  48   PROCEDURE Ispis(n: CARDINAL);
  49   BEGIN
  50     IF n > 0 THEN
  51       IF b[n] = b[n - 1] THEN
  52         Ispis(n - 1);
  53       ELSE
  54         Ispis(n - 2);
  55         WrInt(a[n], 8);
  56       END;
  57     END;
  58   END Ispis;
  59
  60 BEGIN
  61   Unos;
  62   Resi;
  63   WrStr('Podniz: ');
  64   Ispis(n);
  65 END NizDin.