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 (parent: 9dd4379)
raw | patch | inline | side by side (parent: 9dd4379)
author | Doni Pracner <quinnuendo@gmail.com> | |
Thu, 6 Feb 2014 15:29:50 +0000 (16:29 +0100) | ||
committer | Doni Pracner <quinnuendo@gmail.com> | |
Thu, 6 Feb 2014 15:29:50 +0000 (16:29 +0100) |
kodovi/polinomi/POLINOML.DEF | patch | blob | history | |
kodovi/polinomi/POLINOML.MOD | patch | blob | history |
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
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