gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under the git version control system END;\r
END KoeficijentUz;\r
\r
+PROCEDURE MaksimalniStepen(p:Polinom):CARDINAL;\r
+BEGIN\r
+ IF p#NIL THEN\r
+ RETURN p^.st;\r
+ ELSE\r
+ RETURN 0;\r
+ END;\r
+END MaksimalniStepen;\r
+\r
PROCEDURE UbaciMonom(mon:Polinom; VAR p: Polinom);\r
VAR\r
stari, tekuci, kopija: Polinom;\r
novi^.k := - ost^.k / p2^.k;\r
novi^.st := ost^.st - p2^.st;\r
MonomPuta(p2, novi, pomocni);\r
- Saberi(ost, pomocni, ost);\r
+ SaberiNa(pomocni, ost);\r
+ DisposePolinom(pomocni);\r
novi^.k := - novi^.k;\r
UbaciMonom(novi, kol);\r
DISPOSE(novi);\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