polinoml - deli, doterivanje potrosnje memorije

[spa1skripta-public.git] / kodovi / polinomi / POLINOML.MOD

diff --git a/kodovi/polinomi/POLINOML.MOD b/kodovi/polinomi/POLINOML.MOD
index 405e485..1f53f28 100644 (file)
--- a/kodovi/polinomi/POLINOML.MOD
+++ b/kodovi/polinomi/POLINOML.MOD
@@ -1,5 +1,5 @@
 (* Modul za rad sa polinomima preko listi\r
-   verzija 2012, rev 1 *)\r
+   verzija 2014 *)\r
 IMPLEMENTATION MODULE PolinomL;\r
 FROM InOut IMPORT Write, WriteString, WriteLn,\r
            WriteCard, ReadCard, Done;\r
@@ -72,6 +72,74 @@ BEGIN
   END\r
 END Stampaj;\r
 \r
+PROCEDURE PostaviClan(k:REAL; st:CARDINAL;\r
+                      VAR p:Polinom);\r
+VAR\r
+  cilj, prethodni : Polinom;\r
+BEGIN\r
+  cilj := p;\r
+  prethodni := NIL;\r
+  WHILE (cilj # NIL) AND (cilj^.st>st) DO\r
+    prethodni := cilj;\r
+    cilj := cilj^.veza;\r
+  END;\r
+  (* da li upisujemo vrednost ili sklanjamo clan *)\r
+  IF k#0.0 THEN\r
+    (* da li menjamo clan ili pravimo novi *)\r
+    IF (cilj # NIL) AND (cilj^.st = st) THEN\r
+      cilj^.k:=k;\r
+    ELSE\r
+      NEW(cilj);\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
+       p := cilj;\r
+      ELSE\r
+       cilj^.veza := prethodni^.veza;\r
+       prethodni^.veza := cilj;\r
+      END;\r
+    END;\r
+  ELSE\r
+    (* da li postoji ovakav clan *)\r
+    IF (cilj # NIL) AND (cilj^.st = st) THEN\r
+      IF p = cilj THEN\r
+       p := p^.veza;\r
+      ELSE\r
+       prethodni^.veza:= prethodni^.veza^.veza;\r
+      END;\r
+      DISPOSE(cilj);      \r
+    END;\r
+  END;\r
+END PostaviClan;\r
+\r
+PROCEDURE KoeficijentUz(p:Polinom; st:CARDINAL):REAL;\r
+VAR\r
+  tekuci : Polinom;\r
+BEGIN\r
+  tekuci := p;\r
+  WHILE (tekuci#NIL) AND (tekuci^.st > st) DO\r
+    tekuci := tekuci^.veza;\r
+  END;\r
+  IF (tekuci # NIL) AND (tekuci^.st = st) THEN\r
+    RETURN tekuci^.k;\r
+  ELSE\r
+    RETURN 0.0;\r
+  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
@@ -234,7 +302,8 @@ PROCEDURE Kolicnik(p1, p2: Polinom; VAR kol, ost: Polinom; VAR ok: BOOLEAN);
         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