gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under the git version control system \r
PROCEDURE Puta(p1, p2: Polinom; VAR pr: Polinom);\r
VAR\r
- pomocni: Polinom;\r
+ pomocni, brisi: Polinom;\r
BEGIN\r
Anuliraj(pr);\r
IF (p1 <> NIL) AND (p2 <> NIL) THEN\r
MonomPuta(p1, p2, pomocni);\r
REPEAT\r
UbaciMonom(pomocni, pr);\r
- pomocni := pomocni^.veza\r
+ brisi := pomocni;\r
+ pomocni := pomocni^.veza;\r
+ DISPOSE(brisi);\r
UNTIL pomocni = NIL;\r
p2 := p2^.veza\r
END\r
VAR rez: Polinom);\r
VAR\r
i: CARDINAL;\r
+ pret : Polinom;\r
BEGIN\r
IF n = 0 THEN\r
NEW(rez);\r
rez^.k := 1.0;\r
rez^.st := 0;\r
rez^.veza := NIL;\r
- ELSIF n = 1 THEN\r
- Kopiraj( p, rez );\r
ELSE\r
- rez := p;\r
+ Kopiraj( p, rez );\r
FOR i := 2 TO n DO\r
- Puta(rez, p, rez)\r
+ pret := rez;\r
+ Puta(pret, p, rez);\r
+ DisposePolinom(pret);\r
END\r
END;\r
END PolinomNaN;\r