polinoml - dodat MaksimalniStepen

diff --git a/kodovi/polinomi/POLINOML.DEF b/kodovi/polinomi/POLINOML.DEF
index da9ff342524a144e7927db4f9b3a8ed9153cf673..e11f4cee832171a18281f12156bf58996117bc10 100644 (file)
--- a/kodovi/polinomi/POLINOML.DEF
+++ b/kodovi/polinomi/POLINOML.DEF
@@ -17,6 +17,7 @@ PROCEDURE Kopiraj(p: Polinom;
 PROCEDURE PostaviClan(k: REAL; st:CARDINAL; \r
                   VAR p:Polinom);\r
 PROCEDURE KoeficijentUz(p:Polinom; st:CARDINAL):REAL;\r
+PROCEDURE MaksimalniStepen(p:Polinom):CARDINAL;\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 4bc9ce6c47112853c616db8d0e5d4dfa2d52e311..fb6db76caf3e4709f15a62fc33c18d8299bfb240 100644 (file)
--- a/kodovi/polinomi/POLINOML.MOD
+++ b/kodovi/polinomi/POLINOML.MOD
@@ -131,6 +131,15 @@ BEGIN
   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