PolinomL dodata KoeficijentUz

diff --git a/kodovi/polinomi/POLINOML.DEF b/kodovi/polinomi/POLINOML.DEF
index a88e55b..da9ff34 100644 (file)
--- a/kodovi/polinomi/POLINOML.DEF
+++ b/kodovi/polinomi/POLINOML.DEF
@@ -16,6 +16,7 @@ PROCEDURE Kopiraj(p: Polinom;
                   VAR kopija: Polinom);\r
 PROCEDURE PostaviClan(k: REAL; st:CARDINAL; \r
                   VAR p:Polinom);\r
                   VAR kopija: Polinom);\r
 PROCEDURE PostaviClan(k: REAL; st:CARDINAL; \r
                   VAR p:Polinom);\r

+PROCEDURE KoeficijentUz(p:Polinom; st:CARDINAL):REAL;\r

 PROCEDURE UbaciMonom(mon:Polinom; \r
                      VAR p: Polinom);\r
 PROCEDURE PromeniZnak(VAR p: Polinom);\r
 PROCEDURE UbaciMonom(mon:Polinom; \r
                      VAR p: Polinom);\r
 PROCEDURE PromeniZnak(VAR p: Polinom);\r

diff --git a/kodovi/polinomi/POLINOML.MOD b/kodovi/polinomi/POLINOML.MOD
index 309b349..6de5165 100644 (file)
--- a/kodovi/polinomi/POLINOML.MOD
+++ b/kodovi/polinomi/POLINOML.MOD
@@ -117,6 +117,21 @@ BEGIN
   END;\r
 END PostaviClan;\r
 \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 UbaciMonom(mon:Polinom; VAR p: Polinom);\r
 VAR\r
   stari, tekuci, kopija: Polinom;\r
 PROCEDURE UbaciMonom(mon:Polinom; VAR p: Polinom);\r
 VAR\r
   stari, tekuci, kopija: Polinom;\r