gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under
the git version control system
4 WrLn
, WrStr
, RdCard
, WrCard
, OK
;
13 Lista
= POINTER TO Grad
;
18 Mreza
= ARRAY [1 .. MaxBrGrad
] OF Lista
;
19 Posecen
= ARRAY [1 .. MaxBrGrad
] OF BOOLEAN;
26 PROCEDURE Ubaci(VAR L
: Lista
; G
: CARDINAL);
30 IF (L
= NIL) OR (G
< L^.Info
) THEN
37 WHILE (Tek^.Veza #
NIL) AND (Tek^.Veza^.Info
< G
) DO
40 IF (Tek^.Veza
= NIL) OR (Tek^.Veza^.Info
> G
) THEN
43 Novi^.Veza
:= Tek^.Veza
;
49 PROCEDURE Povezi(G1
, G2
: CARDINAL);
55 PROCEDURE Unos(VAR G1
, G2
: CARDINAL);
60 WrStr('Unesite broj gradova (od 2 do ');
65 UNTIL OK
AND (2 <= BrojGr
) AND (BrojGr
<= MaxBrGrad
);
66 FOR G
:= 1 TO BrojGr
DO
70 WrStr('Unesite dva grada koji su povezani linijom.');
73 WrStr('Unesite red. br. prvog grada (ili 0 za kraj unosa linija) -- ');
75 UNTIL OK
AND (G1
<= BrojGr
);
78 WrStr('Unesite red. br. drugog grada ------------------------------ ');
80 UNTIL OK
AND (1 <= G2
) AND (G2
<= BrojGr
) AND (G1 # G2
);
88 WrStr('Unesite red. br. pocetnog grada -- ');
90 UNTIL OK
AND (1 <= G1
) AND (G1
<= BrojGr
);
93 WrStr('Unesite red. br ciljnog grada -- ');
95 UNTIL OK
AND (1 <= G2
) AND (G2
<= BrojGr
) AND (G1 # G2
);
98 PROCEDURE NadjiPut(Od
, Do
, brojGr
: CARDINAL);
103 Resenje
: ARRAY [1 .. MaxBrGrad
] OF CARDINAL;
105 PROCEDURE Pokusaj(Od
, Br
: CARDINAL; VAR Reseno
: BOOLEAN);
114 WrStr('Put koji treba precji je sledeci:');
117 WrCard(Resenje
[i
], 4);
121 WHILE (Pok #
NIL) AND NOT Reseno
DO
122 WHILE (Pok #
NIL) AND Pos
[Pok^.Info
] DO
126 Pokusaj(Pok^.Info
, Br
+ 1, Reseno
);
134 FOR i
:= 1 TO BrojGr
DO
137 Pokusaj(Od
, 1, Reseno
);
142 NadjiPut(GPoc
, GKra
, BrojGr
);
Svarog.pmf.uns.ac.rs/gitweb
maintanance
Doni Pracner