X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=spa1skripta-public.git;a=blobdiff_plain;f=kodovi%2Fpolinomi%2Fpolinom.MOD;fp=kodovi%2Fpolinomi%2Fpolinom.MOD;h=cfba1b123f58d949a9c320bae0cccc038b4d6efc;hp=3e46e5421c2f8bb256d92f8c009e1ac06461c6ab;hb=5032b8ef31be8b199297901b7fe1ec2c6dccea37;hpb=74eec3956c02c387de6afb0839d112544881cd3e

diff --git a/kodovi/polinomi/polinom.MOD b/kodovi/polinomi/polinom.MOD
index 3e46e54..cfba1b1 100644
--- a/kodovi/polinomi/polinom.MOD
+++ b/kodovi/polinomi/polinom.MOD
@@ -1,11 +1,10 @@
 MODULE polinom;
 FROM PolinomL IMPORT Polinom, Stampaj, Anuliraj,
-              DisposePolinom, UbaciMonom, Unos, Saberi;
+              DisposePolinom, PostaviClan, Unos, Saberi;
 FROM InOut IMPORT WriteString, WriteLn;
-FROM Storage IMPORT ALLOCATE, DEALLOCATE;
 
 VAR
-  p,q,rez,pom : Polinom;
+  p,q,rez : Polinom;
 
 BEGIN
   (* korisnik unosi prvi polinom *)
@@ -15,31 +14,14 @@ BEGIN
   (* drugi polinom kreiramo mi, 
      monom po monom *)
   Anuliraj(q); (* isto sto i q:=NIL; *)
-  (* formiramo monom x^5 *)
-  NEW(pom);
-  pom^.st:=5;
-  pom^.k:=1.0;
-  (* dodajemo ga u polinom *)
-  UbaciMonom(pom,q);
-  DISPOSE(pom);
+  (* postavimo clan x^5 *)
+  PostaviClan(1.0,5,q);
   (* -3 x^4 *)
-  NEW(pom);
-  pom^.st := 4;
-  pom^.k := -3.0;
-  UbaciMonom(pom,q);
-  DISPOSE(pom);
+  PostaviClan(-3.0,4,q);
   (* 4 x *)
-  NEW(pom);
-  pom^.st := 1;
-  pom^.k := 4.0;
-  UbaciMonom(pom,q);
-  DISPOSE(pom);
+  PostaviClan(4.0,1,q);
   (* 7 (x^0) *)
-  NEW(pom);
-  pom^.st := 0;
-  pom^.k := 7.0;
-  UbaciMonom(pom,q);
-  DISPOSE(pom);
+  PostaviClan(7.0,0,q);
   (* saberemo polinome *)
   Saberi(p, q, rez);
   (* odstampamo rezultat i polinome *)