From a545651abc2ca9888aa682a96dc34a9ba16257bd Mon Sep 17 00:00:00 2001 From: Doni Pracner Date: Fri, 25 Apr 2014 17:05:39 +0200 Subject: [PATCH] PolinomL - spajanje dva uslova u jedan; popravka greske u dodavanju na pocetak --- kodovi/polinomi/POLINOML.MOD | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/kodovi/polinomi/POLINOML.MOD b/kodovi/polinomi/POLINOML.MOD index 1623cb8..03dd95d 100644 --- a/kodovi/polinomi/POLINOML.MOD +++ b/kodovi/polinomi/POLINOML.MOD @@ -93,10 +93,9 @@ BEGIN cilj^.k := k; cilj^.st := st; cilj^.veza := NIL; - IF p = NIL THEN - p := cilj; - ELSIF prethodni = NIL THEN - cilj^.veza := p^.veza; + IF prethodni = NIL THEN + (* ili je prazan polinom, ili dodajemo na pocetak *) + cilj^.veza := p; p := cilj; ELSE cilj^.veza := prethodni^.veza; -- 2.25.1