X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=spa1skripta-public.git;a=blobdiff_plain;f=kodovi%2Fpolinomi%2FPOLINOML.MOD;h=6de51656eb818843353f71ae0033a74ea219b60c;hp=309b34905b1a077a6f29fbe326e02c1c25e3e93c;hb=8ea141bd11f257ecaa188607303730099b5c6a67;hpb=9dd437997f7478f943b2f0ab19913737a7b49215

diff --git a/kodovi/polinomi/POLINOML.MOD b/kodovi/polinomi/POLINOML.MOD
index 309b349..6de5165 100644
--- a/kodovi/polinomi/POLINOML.MOD
+++ b/kodovi/polinomi/POLINOML.MOD
@@ -117,6 +117,21 @@ BEGIN
   END;
 END PostaviClan;
 
+PROCEDURE KoeficijentUz(p:Polinom; st:CARDINAL):REAL;
+VAR
+  tekuci : Polinom;
+BEGIN
+  tekuci := p;
+  WHILE (tekuci#NIL) AND (tekuci^.st > st) DO
+    tekuci := tekuci^.veza;
+  END;
+  IF (tekuci # NIL) AND (tekuci^.st = st) THEN
+    RETURN tekuci^.k;
+  ELSE
+    RETURN 0.0;
+  END;
+END KoeficijentUz;
+
 PROCEDURE UbaciMonom(mon:Polinom; VAR p: Polinom);
 VAR
   stari, tekuci, kopija: Polinom;