gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under
the git version control system
4 WrStr
, WrLn
, WrLngCard
;
11 RangImena
= [1 .. DuzinaImena
];
12 Zemlja
= [1 .. MaxBrojZemalja
];
13 SkupZ
= SET OF Zemlja
;
14 Boja
= (Crvena
, Plava
, Zelena
, Zuta
);
15 GraniceTip
= ARRAY Zemlja
OF SkupZ
;
16 BojeZemalja
= ARRAY Boja
OF SkupZ
;
17 ImenaZemalja
= ARRAY Zemlja
, RangImena
OF CHAR;
26 PROCEDURE Inicijalizacija
;
30 FOR i
:= MIN(Boja
) TO MAX(Boja
) DO
31 Obojeno
[i
]:= SkupZ
{};
34 Ime
[ 2]:= 'Zapadna Sahara';
37 Ime
[ 5]:= 'Mauritanija';
43 Ime
[11]:= 'Obala Slonovace';
44 Ime
[12]:= 'Burkina Faso';
51 Ime
[19]:= 'Gvineja Bisao';
52 Ime
[20]:= 'Siera Leone';
53 Granice
[ 1]:= SkupZ
{3, 2};
54 Granice
[ 2]:= SkupZ
{1, 3, 5};
55 Granice
[ 3]:= SkupZ
{1, 2, 5, 6, 7, 8, 4};
56 Granice
[ 4]:= SkupZ
{3, 8};
57 Granice
[ 5]:= SkupZ
{2, 3, 6, 9};
58 Granice
[ 6]:= SkupZ
{3, 5, 9, 10, 11, 12, 7};
59 Granice
[ 7]:= SkupZ
{3, 6, 12, 13, 14, 15, 8};
60 Granice
[ 8]:= SkupZ
{4, 3, 7, 15, 16, 17};
61 Granice
[ 9]:= SkupZ
{18, 19, 10, 6, 5};
62 Granice
[10]:= SkupZ
{19, 9, 6, 20, 11};
63 Granice
[11]:= SkupZ
{10, 6, 12};
64 Granice
[12]:= SkupZ
{6, 11, 13, 7};
65 Granice
[13]:= SkupZ
{12, 7, 14};
66 Granice
[14]:= SkupZ
{13, 7, 15};
67 Granice
[15]:= SkupZ
{14, 7, 8, 16};
68 Granice
[16]:= SkupZ
{17, 8, 15};
69 Granice
[17]:= SkupZ
{8, 15, 16};
70 Granice
[18]:= SkupZ
{9};
71 Granice
[19]:= SkupZ
{9, 10};
72 Granice
[20]:= SkupZ
{10};
77 PROCEDURE StampajSkup(VAR S
: SkupZ
);
83 FOR z
:= 1 TO MaxBrojZemalja
DO
97 PROCEDURE Stampa(RBr
: LONGCARD; VAR Obojeno
: BojeZemalja
);
99 WrLn
; WrLn
; WrLngCard(RBr
, 1);
100 WrLn
; WrStr('Crvena: '); StampajSkup(Obojeno
[Crvena
]);
101 WrLn
; WrStr('Plava: '); StampajSkup(Obojeno
[Plava
]);
102 WrLn
; WrStr('Zelena: '); StampajSkup(Obojeno
[Zelena
]);
103 WrLn
; WrStr('Zuta: '); StampajSkup(Obojeno
[Zuta
]);
106 PROCEDURE Oboji(z
: Zemlja
);
110 FOR i
:= MIN(Boja
) TO MAX(Boja
) DO
111 IF Granice
[z
] * Obojeno
[i
] = SkupZ
{} THEN
112 Obojeno
[i
]:= Obojeno
[i
] + SkupZ
{z
};
115 Stampa(RBr
, Obojeno
);
119 Obojeno
[i
]:= Obojeno
[i
] - SkupZ
{z
};
127 (* Broj mogucih bojenja je 1 527 552 *)
Svarog.pmf.uns.ac.rs/gitweb
maintanance
Doni Pracner