gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under the git version control system (* Modul za rad sa polinomima preko listi\r
(* Modul za rad sa polinomima preko listi\r
- verzija 2012, rev 1 *)\r
+ verzija 2014 *)\r
IMPLEMENTATION MODULE PolinomL;\r
FROM InOut IMPORT Write, WriteString, WriteLn,\r
WriteCard, ReadCard, Done;\r
IMPLEMENTATION MODULE PolinomL;\r
FROM InOut IMPORT Write, WriteString, WriteLn,\r
WriteCard, ReadCard, Done;\r
END\r
END Stampaj;\r
\r
END\r
END Stampaj;\r
\r
+PROCEDURE PostaviClan(k:REAL; st:CARDINAL;\r
+ VAR p:Polinom);\r
+VAR\r
+ cilj, prethodni : Polinom;\r
+BEGIN\r
+ cilj := p;\r
+ prethodni := NIL;\r
+ WHILE (cilj # NIL) AND (cilj^.st>st) DO\r
+ prethodni := cilj;\r
+ cilj := cilj^.veza;\r
+ END;\r
+ IF (cilj = NIL) THEN\r
+ IF k#0.0 THEN\r
+ NEW(cilj);\r
+ cilj^.k := k;\r
+ cilj^.st := st;\r
+ cilj^.veza := NIL;\r
+ IF (p = NIL) THEN\r
+ p := cilj;\r
+ ELSE\r
+ prethodni^.veza := cilj;\r
+ END;\r
+ END;\r
+ ELSIF cilj^.st=st THEN\r
+ IF k#0.0 THEN\r
+ cilj^.k:=k;\r
+ ELSE\r
+ IF (p=cilj) THEN\r
+ DISPOSE(p);\r
+ ELSE\r
+ prethodni^.veza:= prethodni^.veza^.veza;\r
+ DISPOSE(cilj);\r
+ END;\r
+ END;\r
+ ELSE\r
+ IF k#0.0 THEN\r
+ NEW(cilj);\r
+ cilj^.k := k;\r
+ cilj^.st := st;\r
+ cilj^.veza := prethodni^.veza;\r
+ prethodni^.veza := cilj;\r
+ END;\r
+ END;\r
+END PostaviClan;\r
+\r
PROCEDURE UbaciMonom(mon:Polinom; VAR p: Polinom);\r
VAR\r
stari, tekuci, kopija: Polinom;\r
PROCEDURE UbaciMonom(mon:Polinom; VAR p: Polinom);\r
VAR\r
stari, tekuci, kopija: Polinom;\r