gitweb on Svarog

projekti pod git sistemom za održavanje verzija -- projects under the git version control system
6156e777048e0b34fc4cdcb9a512da78faf1a53d
[spa2-teorijske-vezbe.git] / 05. NizDin / kod / NIZDIN.MOD
1 MODULE NizDin;
3 FROM IO IMPORT
4 WrStr, RdInt, WrInt;
6 CONST
7 MaxN = 1000;
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;
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;
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;
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;
60 BEGIN
61 Unos;
62 Resi;
63 WrStr('Podniz: ');
64 Ispis(n);
65 END NizDin.
Svarog.pmf.uns.ac.rs/gitweb maintanance Doni Pracner