gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under the git version control system 6 TYPE
13 VAR
18 (* dodaje broj pom na pocetak liste *)
19 VAR
21 BEGIN
22 (* kreiramo novi element *)
25 (* treba da pokazuje na ostatak liste *)
27 (* pocetak liste je novi element *)
32 (* dodaje n brojeva u listu *)
33 VAR
35 BEGIN
47 (* -- procedure za stampu -- *)
50 (* stampa sadrzaj liste na ekran *)
51 VAR
53 BEGIN
54 WriteLn;
56 WriteLn;
60 WriteLn;
66 (* stampa k-ti element (k unosi korisnik) *)
67 VAR
70 BEGIN
81 ELSE
90 (* nalazi i stampa minimalni element liste *)
91 VAR
94 BEGIN
97 ELSE
109 WriteLn;
112 (* -- pomocne procedure, bez ispisa -- *)
116 (* vraca da li se 'br' nalazi u listi 'lista' *)
117 VAR
119 BEGIN
122 (* dok ne dodjemo do kraja liste
123 ili ne nadjemo broj *)
127 (* znaci da nismo na kraju liste,
128 tj da je nadjen broj *)
137 (* izbacuje broj 'br' iz liste, naravno ako
138 postoji i vraca da li je operacija uspesno
139 obavljena *)
140 VAR
142 BEGIN
143 (* proverimo da li je prvi element *)
149 ELSE
150 (* trazimo u ostatku liste *)
154 (* dok ne dodjemo do kraja liste
155 ili ne nadjemo broj *)
160 (* znaci da nismo na kraju liste,
161 odnosno da smo nasli broj *)
162 (* prevezemo listu oko elementa *)
166 ELSE
174 (* izbacuje sve brojeve 'br' iz liste, naravno ako
175 postoje i vraca koliko ih je bilo *)
176 VAR
179 BEGIN
181 (* uklanjamo sa pocetka koliko je potrebno *)
188 (* trazimo u ostatku liste *)
192 (* idemo do poslednjeg elementa liste *)
196 (* prevezemo listu oko elementa *)
200 (* vracamo se jedan korak da bi
201 u novom krugu proverili i ovaj element *)
209 (* - procedure sa interakcijom sa korisnikom - *)
212 (* izbacuje uneti broj iz liste koristeci proceduru IzbaciIzListe *)
213 VAR
215 BEGIN
220 ELSE
223 WriteLn;
227 (* izbacuje sve primeke unetog broj iz liste
228 koristeci proceduru IzbaciIzListeSve *)
229 VAR
231 BEGIN
238 WriteLn;
242 (* izbacuje k-ti element iz liste *)
243 VAR
246 BEGIN
250 ELSE
258 ELSE
262 (* idemo kroz listu do k-tog el *)
267 (* pamtimo element za brisanje *)
269 (* prevezujemo listu oko njega*)
272 ELSE
283 (* provera da li se uneti broj nalazi u listi *)
284 VAR
286 BEGIN
291 ELSE
294 WriteLn;
297 (* -- oslobadjanje memorije -- *)
300 VAR
302 BEGIN
311 BEGIN
312 (* pocinjemo od prazne liste *)
314 REPEAT
315 WriteLn;
318 WriteLn;
320 WriteLn;
324 WriteLn;
326 WriteLn;
328 WriteLn;
330 WriteLn;
332 WriteLn;
334 WriteLn;
335 WriteLn;
337 REPEAT
352 WriteLn;
356 ELSE
359 WriteLn;
362 END liste2.