gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under the git version control system
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (from parent 1: 829952e)
raw | patch | inline | side by side (from parent 1: 829952e)
author | Doni Pracner <quinnuendo@gmail.com> | |
Wed, 12 Feb 2014 11:14:41 +0000 (12:14 +0100) | ||
committer | Doni Pracner <quinnuendo@gmail.com> | |
Wed, 12 Feb 2014 11:14:41 +0000 (12:14 +0100) |
kodovi/polinomi/POLINOML.DEF | patch | blob | history | |
kodovi/polinomi/POLINOML.MOD | patch | blob | history |
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
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