X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=spa1skripta-public.git;a=blobdiff_plain;f=kodovi%2Fpolinomi%2FPOLINOML.MOD;h=fb6db76caf3e4709f15a62fc33c18d8299bfb240;hp=4bc9ce6c47112853c616db8d0e5d4dfa2d52e311;hb=11f623923fc51d8532dbfb89f151180678e97847;hpb=829952e6425131abf0199158d63a68d1e075ddc8

diff --git a/kodovi/polinomi/POLINOML.MOD b/kodovi/polinomi/POLINOML.MOD
index 4bc9ce6..fb6db76 100644
--- a/kodovi/polinomi/POLINOML.MOD
+++ b/kodovi/polinomi/POLINOML.MOD
@@ -131,6 +131,15 @@ BEGIN
   END;
 END KoeficijentUz;
 
+PROCEDURE MaksimalniStepen(p:Polinom):CARDINAL;
+BEGIN
+  IF p#NIL THEN
+    RETURN p^.st;
+  ELSE
+    RETURN 0;
+  END;
+END MaksimalniStepen;
+
 PROCEDURE UbaciMonom(mon:Polinom; VAR p: Polinom);
 VAR
   stari, tekuci, kopija: Polinom;