PolinomL dodata KoeficijentUz

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

diff --git a/kodovi/polinomi/POLINOML.MOD b/kodovi/polinomi/POLINOML.MOD
index 3781d25..6de5165 100644 (file)
--- a/kodovi/polinomi/POLINOML.MOD
+++ b/kodovi/polinomi/POLINOML.MOD
@@ -83,31 +83,31 @@ BEGIN
     prethodni := cilj;\r
     cilj := cilj^.veza;\r
   END;\r
-  IF (cilj = NIL) THEN\r
+  IF cilj = NIL THEN\r
     IF k#0.0 THEN\r
       NEW(cilj);\r
       cilj^.k := k;\r
       cilj^.st := st;\r
       cilj^.veza := NIL;\r
-      IF (p = NIL) THEN\r
+      IF p = NIL THEN\r
        p := cilj;\r
       ELSE\r
        prethodni^.veza := cilj;\r
       END;\r
     END;\r
   ELSIF cilj^.st=st THEN\r
-    IF k#0.0 THEN\r
+    IF k # 0.0 THEN\r
       cilj^.k:=k;\r
     ELSE\r
-      IF (p=cilj) THEN\r
-       DISPOSE(p);\r
+      IF p = cilj THEN\r
+       p := p^.veza;\r
       ELSE\r
        prethodni^.veza:= prethodni^.veza^.veza;\r
-       DISPOSE(cilj);\r
       END;\r
+      DISPOSE(cilj);\r
     END;\r
   ELSE\r
-    IF k#0.0 THEN\r
+    IF k # 0.0 THEN\r
       NEW(cilj);\r
       cilj^.k := k;\r
       cilj^.st := st;\r
@@ -117,6 +117,21 @@ BEGIN
   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 UbaciMonom(mon:Polinom; VAR p: Polinom);\r
 VAR\r
   stari, tekuci, kopija: Polinom;\r