gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under the git version control system (* Modul za rad sa polinomima preko listi\r
- verzija 2014 *)\r
+ verzija 2014; rev 1 *)\r
IMPLEMENTATION MODULE PolinomL;\r
FROM InOut IMPORT Write, WriteString, WriteLn,\r
WriteCard, ReadCard, Done;\r
cilj^.k := k;\r
cilj^.st := st;\r
cilj^.veza := NIL;\r
- IF p = NIL THEN\r
- p := cilj;\r
- ELSIF prethodni = NIL THEN\r
- cilj^.veza := p^.veza;\r
+ IF prethodni = NIL THEN\r
+ (* ili je prazan polinom, ili dodajemo na pocetak *)\r
+ cilj^.veza := p;\r
p := cilj;\r
ELSE\r
cilj^.veza := prethodni^.veza;\r
REPEAT\r
UbaciMonom(pomocni, pr);\r
brisi := pomocni;\r
- pomocni := pomocni^.veza\r
+ pomocni := pomocni^.veza;\r
DISPOSE(brisi);\r
UNTIL pomocni = NIL;\r
p2 := p2^.veza\r