kodovi/polinomi/polinom2.mod

   1 MODULE polinom2;
   2 FROM PolinomL IMPORT Polinom, Stampaj, Anuliraj,
   3               DisposePolinom, UbaciMonom, Unos, Saberi;
   4 FROM InOut IMPORT WriteString, WriteLn;
   5 FROM Storage IMPORT ALLOCATE, DEALLOCATE;
   6
   7 VAR
   8   p,q,rez,pom : Polinom;
   9
  10 BEGIN
  11   Anuliraj(p);
  12         NEW(p);
  13         p^.st := 2;
  14         p^.k := 1.0;
  15         p^.veza := NIL;
  16   Stampaj(p,0);
  17   WriteLn;
  18
  19   Anuliraj(q); (* ovde isto sto i q:=NIL; *)
  20   (* formiramo monom x^5 *)
  21   NEW(pom);
  22   pom^.st:=5;
  23   pom^.k:=1.0;
  24   (* dodajemo ga u polinom *)
  25   UbaciMonom(pom,q);
  26   DISPOSE(pom);
  27   (* -3 x^4 *)
  28   NEW(pom);
  29   pom^.st := 4;
  30   pom^.k := -3.0;
  31   UbaciMonom(pom,q);
  32   DISPOSE(pom);
  33   (* 4 x *)
  34   NEW(pom);
  35   pom^.st := 1;
  36   pom^.k := 4.0;
  37   UbaciMonom(pom,q);
  38   DISPOSE(pom);
  39   (* 7 (x^0) *)
  40   NEW(pom);
  41   pom^.st := 0;
  42   pom^.k := 7.0;
  43   UbaciMonom(pom,q);
  44   DISPOSE(pom);
  45   (* saberemo polinome *)
  46   Stampaj(q,0);
  47   WriteLn;
  48
  49   Saberi(q, q, q);
  50   (* odstampamo rezultat *)
  51   Stampaj(q,4);
  52   WriteLn;
  53   DisposePolinom(p);
  54   DisposePolinom(q);
  55   DisposePolinom(rez);
  56 END polinom2.