gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under the git version control system 1 (* Modul za rad sa polinomima preko listi
2 verzija 2014 *)
10 BEGIN
15 VAR
17 BEGIN
20 ELSE
29 p := p^.veza
30 END
31 END
37 BEGIN
47 END
48 ELSE
50 END
51 END
54 BEGIN
57 ELSE
66 ELSE
70 p := p^.veza
71 END
72 END
77 VAR
79 BEGIN
86 (* da li upisujemo vrednost ili sklanjamo clan *)
88 (* da li menjamo clan ili pravimo novi *)
91 ELSE
101 ELSE
106 ELSE
107 (* da li postoji ovakav clan *)
111 ELSE
120 VAR
122 BEGIN
129 ELSE
135 BEGIN
138 ELSE
144 VAR
146 BEGIN
154 tekuci := tekuci^.veza
158 p := kopija
159 ELSE
160 stari^.veza := kopija
168 p := kopija^.veza
169 ELSE
170 stari^.veza := kopija^.veza
173 END
174 END
175 END
179 VAR
182 BEGIN
184 REPEAT
185 WriteLn;
189 WriteLn;
193 REPEAT
198 WriteLn
200 REPEAT
201 WriteLn;
207 WriteLn;
211 END
215 BEGIN
219 p2 := p2^.veza
220 END
224 BEGIN
232 VAR
234 BEGIN
238 t := t^.veza
239 END
243 BEGIN
248 p1 := p1^.veza
249 END
253 VAR
255 BEGIN
268 p := p^.veza
271 END
275 VAR
277 BEGIN
284 REPEAT
287 pomocni := pomocni^.veza
290 p2 := p2^.veza
291 END
292 END
298 VAR
300 BEGIN
313 END
314 END
322 ELSE
325 END
330 VAR
333 BEGIN
339 ELSE
345 END
350 VAR
352 BEGIN
357 pomocni := p
358 END
361 END PolinomL.