gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under the git version control system 1 (*polinomL - debug verzija *)
9 BEGIN
10 (* IF p # NIL THEN
11 DisposePolinom(p);
12 END;*)
18 VAR
20 BEGIN
23 ELSE
32 p := p^.veza
33 END
34 END
40 BEGIN
50 END
51 ELSE
53 END
54 END
57 BEGIN
60 ELSE
69 ELSE
73 p := p^.veza
74 END
75 END
79 VAR
81 BEGIN
90 tekuci := tekuci^.veza
94 p := kopija
95 ELSE
96 stari^.veza := kopija
104 p := kopija^.veza
105 ELSE
106 stari^.veza := kopija^.veza
109 END
110 END
116 VAR
119 BEGIN
121 REPEAT
122 WriteLn;
126 WriteLn;
130 REPEAT
135 WriteLn
137 REPEAT
138 WriteLn;
144 WriteLn;
148 END
152 BEGIN
156 p2 := p2^.veza
157 END
161 BEGIN
169 VAR
171 BEGIN
175 t := t^.veza
176 END
180 BEGIN
185 p1 := p1^.veza
186 END
190 VAR
192 BEGIN
206 WriteLn;
211 p := p^.veza
219 VAR
221 BEGIN
231 WriteLn;
232 REPEAT
234 pomocni := pomocni^.veza
236 p2 := p2^.veza
237 END
238 END
244 VAR
246 BEGIN
258 END
259 END
267 ELSE
270 END
275 VAR
277 BEGIN
285 ELSE
289 END
294 VAR
296 BEGIN
301 pomocni := p
302 END
305 END PolinomL.