From ecd8664d575d7606d6f1a3739e67b9d884b6a572 Mon Sep 17 00:00:00 2001 From: Doni Pracner Date: Thu, 6 Feb 2014 16:21:13 +0100 Subject: [PATCH] PolinomL - formatiranje u novoj proceduri --- kodovi/polinomi/POLINOML.MOD | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/kodovi/polinomi/POLINOML.MOD b/kodovi/polinomi/POLINOML.MOD index 3781d25..6063d5d 100644 --- a/kodovi/polinomi/POLINOML.MOD +++ b/kodovi/polinomi/POLINOML.MOD @@ -83,23 +83,23 @@ BEGIN prethodni := cilj; cilj := cilj^.veza; END; - IF (cilj = NIL) THEN + IF cilj = NIL THEN IF k#0.0 THEN NEW(cilj); cilj^.k := k; cilj^.st := st; cilj^.veza := NIL; - IF (p = NIL) THEN + IF p = NIL THEN p := cilj; ELSE prethodni^.veza := cilj; END; END; ELSIF cilj^.st=st THEN - IF k#0.0 THEN + IF k # 0.0 THEN cilj^.k:=k; ELSE - IF (p=cilj) THEN + IF p = cilj THEN DISPOSE(p); ELSE prethodni^.veza:= prethodni^.veza^.veza; @@ -107,7 +107,7 @@ BEGIN END; END; ELSE - IF k#0.0 THEN + IF k # 0.0 THEN NEW(cilj); cilj^.k := k; cilj^.st := st; -- 2.25.1