skripta verzija 14c

[spa1skripta-public.git] / kodovi / polinomi / POLINOML.MOD

diff --git a/kodovi/polinomi/POLINOML.MOD b/kodovi/polinomi/POLINOML.MOD
index 20e64ea..12fc5b1 100644 (file)
--- a/kodovi/polinomi/POLINOML.MOD
+++ b/kodovi/polinomi/POLINOML.MOD
@@ -1,5 +1,5 @@
 (* Modul za rad sa polinomima preko listi\r
-   verzija 2014 *)\r
+   verzija 2014; rev 1 *)\r
 IMPLEMENTATION MODULE PolinomL;\r
 FROM InOut IMPORT Write, WriteString, WriteLn,\r
            WriteCard, ReadCard, Done;\r
@@ -93,10 +93,9 @@ BEGIN
       cilj^.k := k;\r
       cilj^.st := st;\r
       cilj^.veza := NIL;\r
-      IF p = NIL THEN\r
-       p := cilj;\r
-      ELSIF prethodni = NIL THEN\r
-       cilj^.veza := p^.veza;\r
+      IF prethodni = NIL THEN\r
+       (* ili je prazan polinom, ili dodajemo na pocetak *)\r
+       cilj^.veza := p;\r
        p := cilj;\r
       ELSE\r
        cilj^.veza := prethodni^.veza;\r
@@ -284,7 +283,7 @@ BEGIN
       REPEAT\r
         UbaciMonom(pomocni, pr);\r
         brisi := pomocni;\r
-        pomocni := pomocni^.veza\r
+        pomocni := pomocni^.veza;\r
         DISPOSE(brisi);\r
       UNTIL pomocni = NIL;\r
       p2 := p2^.veza\r